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??
hier mal mein hex in
RGB umwandel-Qelltext:
Bitte auf kommentare antworten!!
Delphi-Quellcode:
procedure TForm1.Umwandeln1Click(Sender: TObject);
begin
Hex1 := Hexcolor.Text;
Col := Hex1;
// 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???
Panel1.Color:=
RGB(GetBValue(Col),GetGValue(Col),GetRValue(Col));
// Funktioniert das so???
end;
Und hier mein
RGB in Hex umwandel - quelltext:
Bitte auch auf Kommentare antworten!!
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 ???
end;