Convertir un TColor en RGB et vice-versa

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Color := RGB(58, 110, 165);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Color: Longint;
r, g, b: Byte;
begin
Color := ColorToRGB(Edit1.Color);
r := Color;
g := Color shr 8;
b := Color shr 16;
Label1.Caption := 'Red: ' + IntToStr(r) +
' Green: ' + IntToStr(g) +
' Blue : ' + IntToStr(b);
end;






Commentaire des internautes
avatar
deefaze le 27/08/2008
Label1.Caption := format(\'Red: $%.2x, Green : $%.2x, Blue : $%.2x\',[R,G,B]);

:)
avatar
deefaze le 27/08/2007
R := Byte(Color);
G := Byte(Color shr 8);
B := Byte(Color shr 16);
avatar
Christof le 11/05/2007
Je pense qu'il y a un problème au niveau de l'affectation du longint "Color" dans la
variable de type byte "r". A mon avis, cela risque de provoquer une erreur de
vérification d'étendue.

Du coup, je crois qu\'il vaut mieux utiliser le code suivant

R := GetRValue(Color);
G := GetGValue(Color);
B := GetBValue(Color);
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour27/08/2007
VisualisationVu 3488 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