* Deux fonctions, deux utilités. * ColorToRGB() devrais être plus lent que cColorToRGB(). * Mais, dans bien des cas, j'ai besoin d'une extraction immédiate d'une des couleurs * Donc ColorToRGB(iRGB,@r,@g,@b) par son passage par référence me retourne la couleur * désirée sans autres traitements * cColorToRGB() je ne m'en suis jamais servit jusqu'à présent mais elle présente dans mon fichier de * procédure de fonction pour traitement de couleurs. *``````````````````````````````````````````````````````````````````````````````````````````````````` *
#If.F. Local ;
ir AsInteger ,;
ig AsInteger ,;
ib AsInteger ,;
iRGB AsInteger ,;
lcRGB AsCharacter
Function cColorToRGB(nRGB) ReturnTransform(Bitand(0xff,nRGB))+","+Transform(Bitand(0xff,Bitrshift(nRGB,8)))+","+Transform(Bitand(0xff,Bitrshift(nRGB,16))) * *```````````````````````````````````````````````````````````````````````````````````````````````````
Commentaires
le 01/12/2004, Mike Gagnon a écrit : En passant, je ne crois pas que TRANSFORM() existait avec FPD et FPW2.6 et VFP3.0 et VFP5.0 (je ne suis pas sur de VFP6.0)
le 01/12/2004, FredA a écrit : VFP6 : ok fpd26 : manque le deuxieme parametre "999"
le 21/04/2007, eddymaue a écrit : Fred ca fait un bout que je ne me suis pas servit de la 2.6. Enfin je dirais même que je suis passé de la 2.5 à 6 directement. Fait que si un jour ça te tente et que t'en a là motivation corrige et dit moi quoi faire
En passant, je ne crois pas que TRANSFORM() existait avec FPD et FPW2.6 et VFP3.0 et VFP5.0 (je ne suis pas sur de VFP6.0)