Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Displaying picture files
Message
 
 
À
26/04/2005 08:50:00
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01008054
Message ID:
01008439
Vues:
18
David,

I did actually play around with it some last night.

I set LargeChange = 10, Max = 100 and used this code for each.
PROCEDURE oVScroll.Change

with thisform
   if ( .imgZoom.Height > .Height )
      .imgZoom.Top = - ( this.object.Value / 100 ) * ( .imgZoom.Height - .Height )
   endif
endwith
ENDPROC

PROCEDURE oHScroll.Change

with thisform
   if ( .imgZoom.Width > .Width )
      .imgZoom.Left = - ( this.object.Value / 100 ) * ( .imgZoom.Width - .Width )
   endif
endwith
ENDPROC
>Thanks. Do you have an example on how to use it?
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform