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

Couleur de fond d'écran   


L'auteur

Guy Bonemme
Belgique Belgique
Membre Simple
# 0000000029
enregistré le 15/10/2004

78 ans
BONEMME Guy
B-1410 Waterloo
Fiche personnelle

Note des membres
pas de note

Contributions > 20 - Trucs et Astuces

Couleur de fond d'écran
# 0000000049
ajouté le 05/11/2004 18:20:55 et modifié le 05/11/2004
consulté 8998 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
Zoomer sur l'image
Description

Pour ceux qui veulent permettre la modification de couleur du fond d'écran.
deux petites procédures utilisant l'instruction GETCOLOR()

N.B. : [Splash] est la routine de dessin de votre windows d'écran contenant :logo ou autre information.
dans la définition du windows le paramètre RGB(..) est remplacé par la variable :lnReturn déclarée au préalable.
Les valeurs sont conservées en color.old et color.mem )

Code source :
*__________________________________________________________
PROCEDURE ChoixRGB
*__________________________________________________________
RGBChoix = 0
cColor = ""
COPY FILE color.mem TO color.old

RGBChoix = GETCOLOR()
cColor = ReverseRGB(RGBchoix)

SAVE ALL LIKE cColor TO color.mem
RESTORE FROM color.mem ADDITIVE
SET COLOR TO &cColor
CLEAR

DO splash  && fond d'écran, logo etc...

* Question WOuiNon non mentionnée ici(utiliser votre routine de confirmation
IF NOT WOuiNon("Conserver cette couleur de fond ?")
  COPY FILE color.old TO color.mem
  RESTORE FROM color.mem ADDITIVE
  SET COLOR TO &cColor
  CLEAR
  DO splash
ENDIF
RETURN


*__________________________________________________________
PROCEDURE ReverseRGB
*_________________________________________________
PARAMETERS tnRGBValue

LOCAL lnReturn
lnReturn = -1
         lnR = BITAND(tnRGBValue,255)
         lnG = BITAND(BITRSHIFT(tnRGBValue,8),255)
         lnB = BITAND(BITRSHIFT(tnRGBValue,16),255)
lnReturn="RGB(,,,"+ALLTRIM(STR(lnR))+","+ALLTRIM(STR(lnG))+","+ALLTRIM(STR(lnB))+")"
RETURN lnReturn
Commentaires
Aucun commentaire enregistré ...
Publicité

Les pubs en cours :
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