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
Source / Exemple :
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
30 déc. 2006 à 23:53
8 déc. 2006 à 17:50
MOUSSAFII, les codes sont mis sur codesources pour que tout un chacun puisse les télécharger et les adapter à sa guise.
Si ce principe ne te plait pas, tu n'est effectivement pas obligé de venir sur ce site.
Cordialement
Aumeric
8 déc. 2006 à 13:12
bye
je vous souhat une mauvaise continuation!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.