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   


L'auteur

Mike Gagnon
Canada 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é 7200 fois
Niveau initié

Version(s) Foxpro :
VFP 7.0
Description
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
Publicité

Les pubs en cours :
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2023.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3