https://foro.gambas-es.org/viewtopic.php?f=5&t=3173&p=17914#p17914
-----------------------------------
Shell
Domingo, 09 Junio 2013, 14:01

Efecto Del Metodo Resize Con Un Dibujo
-----------------------------------
Hola!.

Jugando a intentar encontrar propiedades como ScaleLeft, ScaleTop...
salio esto, que no tiene nada que ver, pero te fumas un peta y te pones a verlo y hipnotiza...  :shock: 

 [img]http://foro.gambas-es.org/files/images/768/quemareo.png[/img] 

[code linenumbers=false syntax=gambas]
Private centrox As Integer = 50
Private centroy As Integer = 50
Private pasos As Integer = 25

Public Sub _new()

End

Public Sub Form_Open()
  
  Dibuja
End

Public Sub Form_Resize()
 drwPizarra.Clear
 centrox = drwPizarra.Width / 2
 centroy = drwPizarra.Height / 2
 Dibuja
End

Public Sub Dibuja()
Dim radio As Integer

Draw.Begin(drwPizarra)
  For radio = pasos To drwPizarra.Width Step pasos
    Draw.Circle(centrox, centroy, radio)    
  Next
Draw.End    
  
End
[/code]

El código. En otro mensaje os subo el de VB y los motivos de este ejemplo.Se viene la hora... :sad:

Saludos


