Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Etat dynamique

0/5 (3 avis)

Vue 15 800 fois - Téléchargée 960 fois

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

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

Codes Sources

A voir également

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.