ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment créer un niveau custom du zoom dans la pré-visualisation d'un état

	Description
Retour à la liste L'auteur Mike Gagnon Canada Membre Simple # 0000000025 enregistré le 14/10/2004 Gagnon Mike Pointe Cla H9R 3K8 de la société Carver Technologies Inc. Fiche personnelle Note des membres pas de note	Contributions > 03 - FRX : Etat, impression, Report Comment créer un niveau custom du zoom dans la pré-visualisation d'un état # 0000000051 ajouté le 11/11/2004 22:26:22 et modifié le 11/11/2004 consulté 7692 fois Niveau initié Version(s) Foxpro : VFP 7.0
	Voici un moyen de surpasser la limite de 100% en mode preview d'un état en utilisant les ViewPort. Pour le but de l'exemple qui suit, le code crée un rapport de la table FoxUser. Vous pouvez adapter ce code à vos propres rapports.
	Code source :
	PUBLIC oOuter,oInner CREATE REPORT TEST FROM SYS(2005) oOuter = CREATEOBJECT("OuterForm") oInner= CREATEOBJECT("InnerForm") ACTIVATE WINDOW (oInner.Name) IN (oOuter.Name) oOuter.show() KEYBOARD "Z" PLAIN REPORT FORM TEST PREVIEW IN WINDOW (oInner.Name); WINDOW (oInner.Name) NOWAIT NAME oOuter.oEnvironment DEFINE CLASS OuterForm as Form oEnvironment = NULL ScrollBars = 3 ADD OBJECT Dummy as Label WITH top =1000, Left = 1000 Width = 800 Height = 600 PROCEDURE scrolled(tnDirection) oInner.Move (-This.ViewPortLeft,-This.ViewPortTop) ENDPROC PROCEDURE oEvironment_Assign LPARAMETERS toEnVironment IF ISNULL(toEnvironment) oInner.Release() oOuter.Release() ENDIF ENDPROC ENDDEFINE DEFINE CLASS InnerForm as Form borderstyle = 0 TitleBar = 0 Width = 2000 Height = 4000 ENDDEFINE
	Commentaires
	le 09/05/2006, lotfi072003 a écrit : c'est tres bien mike le beau ds ce code c'est tres simple bravo le 09/05/2006, Mike Gagnon a écrit : Merci

Comment créer un niveau custom du zoom dans la pré-visualisation d'un état

Contributions > 03 - FRX : Etat, impression, Report