Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ImageList control
Message
From
06/08/2003 05:24:37
 
 
To
05/08/2003 16:41:47
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00817078
Message ID:
00817206
Views:
23
Valentin,

If you are doing this to just retreive the original source image(s) from the imagelist then you can use enumerate the ListImages collection and render them to a form. Once rendered you can then copy the form into the clipboard and take put it into MS Paint or an ActiveX control.
declare integer GetDC in WIN32API integer lnHDC
lnHDC = GetDC(ThisForm.HWnd)

lnWidth = ThisForm.oleImageList.ImageWidth

for lnIndex = 1 to ThisForm.oleImageList.ListImages.Count 
   ThisForm.oleImageList.ListImages(lnIndex).Draw(lnHDC, lnIndex * lnWidth, 1, 1)
endfor
HTH
Neil
Previous
Reply
Map
View

Click here to load this message in the networking platform