Delphi TColor -> String?

Computer: Software & Programmierung Delphi & Pascal
#1

Hallo,

wie kann ich meinem Programm sagen, dass es die Hexadezimalen Farbcodes von Delphi in die Zahlencodes von Windows umwandelt?

z.B.
Delphi (Hex): $00D4D0D8
Windows (RGB): 212 208 200

Danke schonmal,

CS

#2

wie kann ich meinem Programm sagen, dass es die Hexadezimalen
Farbcodes von Delphi in die Zahlencodes von Windows umwandelt?

Hallo Christoph,

hier ist eine Procedure, die die Umwandlung erledigt:

procedure rgbValues(color:TColor;var red,green,blue:byte);
begin
red :=GetRValue(color);
green:=GetGValue(color);
blue :=GetBValue(color);
end;

Für den Wert $00D4D0D8 ergeben sich folgende Werte:
RED:216
GREEN:208
BLUE:212

Viele Grüße, Joachim

#3

Yo, Danke für die schnelle Hilfe! (o.w.T.)
leer