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

Couleur de fond d'écran

	Description
Retour à la liste L'auteur Guy Bonemme Belgique Membre Simple # 0000000029 enregistré le 15/10/2004 79 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é 9276 fois Niveau débutant Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0
	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é ...

Couleur de fond d'écran

Contributions > 20 - Trucs et Astuces