Este es un excelente truco si deseas hacer una especie de ZOOM a un gráfico . En este caso utilizamos la rueda (Scroll) del mouse para alejar o acercar. No recuerdo quien fue el que escribió este código.
Public oform1
oform1=Newobject("form1")
oform1.Show
Return
Define Class form1 As Form
Top = 12
Left = 77
DoCreate = .T.
Caption = "Form1"
Name
= "Form1"
Add Object image1 As Image With ;
Picture = Home(4)+"BitmapsGaugeDOME.BMP", ;
Stretch = 2, ;
Height = 48, ;
Left
= 54, ;
Top = 47, ;
Width = 64, ;
Name = "Image1"
Procedure image1.Init
This.Left=(This.Parent.Width-This.Width)/2
This.Top =(This.Parent.Height-This.Height)/2
Endproc
Procedure image1.MouseWheel
Lparameters nDirection, nShift, nXCoord, nYCoord
With This
If Sign(nDirection) = 1
.Width = .Width* 1.1
.Height = .Height* 1.1
Else
.Width= .Width/ 1.1
.Height = .Height/ 1.1
Endif
.Left=(.Parent.Width-.Width)/2
.Top =(.Parent.Height-.Height)/2
Endwith
EndProc
Enddefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
