hex-codes in RGB werte und umgekehrt??

[jfheins]

Zitat von maxmax:

ich hab jetzt noch ein problem:
bei der umwandlung von hex in rgb muss ja die Hexfarbe vom typ Cardinal sein...
wie kann ich einen Inhalt eines Edit's (typ = String) in den typ Cardinal umwandeln??

StringToColor();

Delphi-Quellcode:

procedure TForm1.Umwandeln1Click(Sender: TObject);
begin
Hex1 := Hexcolor.Text;
Col := Stringtocolor('$00FF0088'); // Hier von String in Cardinal umwandeln!!!!

RGBan.Caption :=  Format('%d %d %d',[GetBValue(Col), GetGValue(Col),GetRValue(Col)]); // Muss man hier 
// auch was wieder in einen String umwandeln??? Mht Format doch ...?

Panel1.Color:= Col; // Funktioniert das so??? -> nein, auch einfacher ;-)
end;

Delphi-Quellcode:

procedure TForm1.Umwandeln2Click(Sender: TObject);
begin
R := ran.Text; //String
G := gan.Text; //String
B := ban.Text; //String
Hexcolor2.Caption :=  Format('#%.2x%.2x%.2x', [R,G,B]); // R,G,B hier Float oder Integer sein müssen ??? Weder noch - es müssen imho Byte-Werte sein (Ganzzahlig bis 255)
end;