Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
GDIplusX
Message
From
19/11/2007 08:48:49
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
GDIplusX
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01269875
Message ID:
01269875
Views:
78
this code works if I have a multipage Tiff
it shows nothing when its a one page TIFF
What should be done in the case of a single page tiff?
WITH _SCREEN.SYSTEM.Drawing
	* Load the multiframe TIFF to GDI+
	this.oMultif = .BITMAP.New(ALLTRIM(THIS.cSourceFile))
	this.nFrames = this.oMultif.GetFrameCount()
	this.txt3.Refresh()
	IF this.nFrames > 1
		this.nPictureCounter=0
		this.oMultif.SelectActiveFrame(.Imaging.FrameDimension.PAGE, this.nPictureCounter)
		This.Image1.PictureVal = this.oMultif.GetPictureVal(.Imaging.ImageFormat.Tiff)
	ELSE
		MESSAGEBOX("The selected file is not a Multiframe TIFF",0,'',5000)
		*this.oMultif.SelectActiveFrame(.Imaging.FrameDimension.PAGE, this.nPictureCounter)
		This.Image1.Picture = ALLTRIM(THIS.cSourceFile)
		
	ENDIF
Thanks

Peter
Peter Cortiel
Next
Reply
Map
View

Click here to load this message in the networking platform