Convertir une Couleur de RGB en COLORREF (BGR)

function rgb2bgr(R,G,B: byte): COLORREF;overload;
begin
Result:= (Integer(B) shl 16) + (Integer(G) shl 8) + R;
end;

function rgb2bgr(RGB: integer): COLORREF;overload;
var
R,G,B: integer;
begin
R:= RGB div $10000;
G:= ((RGB mod $10000) div $100) shl 8;
B:= (RGB mod $100) shl 16;
Result:= B + G + R;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour22/09/2002
VisualisationVu 2388 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Graphisme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur