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

ETAT DYNAMIQUE   



L'auteur

eric leissler
France France
Membre Simple
# 0000002784
enregistré le 06/03/2010
http://www.aumeric.fr
68 ans
LEISSLER Eric
85290 MORTAGNE SUR SEVRE
de la société AUMERIC LOGICIELS
Fiche personnelle


Note des membres
pas de note

Contributions > 03 - FRX : Etat, impression, Report

ETAT DYNAMIQUE
# 0000000334
ajouté le 21/06/2006 10:30:45 et modifié le 12/02/2012
consulté 10014 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0


Le téléchargement des pièces jointes est limité aux membres
Veuillez vous identifier ou vous inscrire si vous n'avez pas encore de compte ...
Description

Afin d'obtenir dans un état des objets dynamiquement paramétrable.

Mettre le contenu du zip dans le répertoire de l'appli

Le principe fonctionne sur un objet champ sur lequel on va pouvoir parametrer la couleur des caractères, la couleur du fond et le style ( Gras ou pas)

Dans l'exemple de l'image jointe, la table initiale possède un champ COULSTAT1 qui est numérique. Ce champ contient la couleur voulue. ce champ a été alimenté auparavant par un bete getcolor()

les commandes
*:EFFECTS BACKCOLOR = PREPPLAN.COULSTAT1
*:EFFECTS FORECOLOR = PREPPLAN.COULSTAT1

insérées dans l'onglet autre, données utilisateur, permettent d'avoir la même couleur de caractères et de fond pour simuler un rectangle plein.

Ci-dessous, le code pour appeler l'état.

Bonne journée à tous

Code source :
loListener  = newobject('EffectsListener', ;
  'DynamicFormatting.prg')
loListener.OutputType = 1

report form PLANNPOINT TO print PROMPT PREVIEW object loListener
RELEASE lolistener
cLEAR CLASS effectslistener
cLEAR CLASS effecthandler
cLEAR CLASS usereffecthandler
cLEAR CLASS DynamicForeColorEffect
cLEAR CLASS DynamicBackColorEffect
cLEAR CLASS DynamicStyleEffect
CLEAR CLASS effectobject


Commentaires
le 31/10/2019, Rol3813 a écrit :
Bonjour
Commentaire tardif.
Ce code est certainement très intéressant mais pas évident, loin sans faut, pour le comprendre en ce qui me concerne.
PREPLAN ? je pense qu'il s'agit du nom de la table ?
au final rien ne se passe.
peut-être qu'un peu plus de clarté dans l'explication serait la bien venue.
Dommage car ce code serait sympa dans mes applications
Cordialement
Roland

le 01/11/2019, eric leissler a écrit :
Bonjour , comme indiqué dans la description une table appelée prepplan contient deux champs numériques.
A vous de mettre une table nommée toto avec un champs ch1 et ch2 si vous voulez.
Du moment que dans l'état, vous indiquez dans le getcolor()
*:EFFECTS BACKCOLOR = toto.ch1
*:EFFECTS FORECOLOR = toto.ch2

et dans votre programme d'appeler votre état par le code mis dans le cadre code source:
soit

loListener = newobject('EffectsListener', ;
'DynamicFormatting.prg')
loListener.OutputType = 1

report form monetat TO print PROMPT PREVIEW object loListener
RELEASE lolistener
cLEAR CLASS effectslistener
cLEAR CLASS effecthandler
cLEAR CLASS usereffecthandler
cLEAR CLASS DynamicForeColorEffect
cLEAR CLASS DynamicBackColorEffect
cLEAR CLASS DynamicStyleEffect
CLEAR CLASS effectobject


Cordialement
Eric


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