Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
GDIplusX
Message
De
19/11/2007 08:48:49
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
GDIplusX
Versions des environnements
Visual FoxPro:
VFP 9
Divers
Thread ID:
01269875
Message ID:
01269875
Vues:
79
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform