Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Image Viewer
Message
 
 
To
22/07/2003 23:45:21
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00812640
Message ID:
00812654
Views:
10
>I need to display, zoom, print images from VFP.

Create a form, drop an image control on it, name it imgZoom.
*Form.Init()
with this.imgZoom
   .Picture = getpict()
   .Left = ( thisform.Width - .Width ) / 2
   .Top = ( thisform.Height - .height ) / 2
   .Stretch = 2
endwith

* imgZoom.RightClick()

with this
   .Height = .Height / 2
   .Width = .Width / 2
   .Left = ( thisform.Width - .Width ) / 2
   .Top = ( thisform.Height - .Height ) / 2
endwith

* imgZoom.Click
with this
   .Height = .Height * 2
   .Width = .Width * 2
   .Left = ( thisform.Width - .Width ) / 2
   .Top = ( thisform.Height - .Height ) / 2
endwith
click to zoom in, rightclick to zoom out. You can add other code to pan the image by just moving the .Top and .Left of the image when it's larger that the form.
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform