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

etat dynamique gestion des couleurs de fond et de caractères   



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
20/20
1 vote


Contributions > 03 - FRX : Etat, impression, Report

etat dynamique gestion des couleurs de fond et de caractères
# 0000000445
ajouté le 22/05/2007 08:42:48 et modifié le 22/05/2007
consulté 9869 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

Bonjour à toutes et à tous

Voici un exemple pour comprendre comment utiliser dans un état, des couleurs d'arrière plan ou des couleurs de caractères, de manières dynamique.

Cela offre des possiblités intéressantes, notamment pour la gestion des plannings

Le zip contient ce qu'il faut. décompactez le dans un répertoire de test et lancer le projet

Bonne journée à tous

Aumeric

 

Code source :

*!* Démoétatdynamique   AUMERIC  / 21/05/2007


*!*  Les champs nom, j1a1d1r1p1t1 n'ont aucune importance c'est juste pour
*!* illustrer et remplir l'état
*!* coul1 et coulstat1 sont des champs  (entiers) et contiennent le numéro de la couleur souhaité
*!*  noir = 0
*!*  blanc = 16777215
*!*  ? getgolor() affiche le numéro de la couleur souhaitée


Create Table 'prepplan.dbf' free;
    (nom c(50), ;
    j1  c(10),;
    A1  c(8),;
    D1  c(8),;
    R1  c(8),;
    P1  c(8),;
    T1  c(8),;
    coul1 i ,;
    coulstat1 i )

    INSERT INTO prepplan (j1,a1,d1,r1,p1,t1,coul1,coulstat1) ;
           VALUES ("lundi","10:00","17:00","01","00:30","06:30",16512,65280)
    INSERT INTO prepplan (j1,a1,d1,r1,p1,t1,coul1,coulstat1) ;
           VALUES ("lundi","10:00","17:00","01","00:30","06:30",65535,65280)
           INSERT INTO prepplan (j1,a1,d1,r1,p1,t1,coul1,coulstat1) ;
           VALUES ("lundi","10:00","17:00","01","00:30","06:30",0,65280)
           INSERT INTO prepplan (j1,a1,d1,r1,p1,t1,coul1,coulstat1) ;
           VALUES ("lundi","10:00","17:00","01","00:30","06:30",16512,8000)
           INSERT INTO prepplan (j1,a1,d1,r1,p1,t1,coul1,coulstat1) ;
           VALUES ("lundi","10:00","17:00","01","00:30","06:30",3000,10000)
           INSERT INTO prepplan (j1,a1,d1,r1,p1,t1,coul1,coulstat1) ;
           VALUES ("lundi","10:00","17:00","01","00:30","06:30",8388863,16711680)
           INSERT INTO prepplan (j1,a1,d1,r1,p1,t1,coul1,coulstat1) ;
           VALUES ("lundi","10:00","17:00","01","00:30","06:30",16512,15779958)

  *Donne l'état sans couleur dynamique
REPORT FORM  plannpoint  TO PRINTER PROMPT PREVIEW


* Donne l'état avec des couleurs dymanique
*!* Joies des planning colorés

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

 REPORT FORM plannpoint  TO PRINTER PROMPT preview OBJECT lolistener

*!*  reportform("PLANNPOINT",,loListener)
RELEASE lolistener
cLEAR CLASS effectslistener
cLEAR CLASS effecthandler
cLEAR CLASS usereffecthandler
cLEAR CLASS DynamicForeColorEffect
cLEAR CLASS DynamicBackColorEffect
cLEAR CLASS DynamicStyleEffect
CLEAR CLASS effectobject

CLOSE TABLES ALL
Fichier MHT :
Mettre en plein écran


Commentaires
le 19/03/2011, prince a écrit :
super !
Peut on modifier la taille des caracteres ?
avec un FontSize dans le prg
merci



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