danke bitsetter so funzt es perfekt:
Delphi-Quellcode:
procedure TForm1.Umwandeln2Click(Sender: TObject);
begin
try
R := ran.Text;
G := gan.Text;
B := ban.Text;
Hexcolor2.Caption := Format('
#%.2x%.2x%.2x', [StrToInt(R),StrToInt(G),StrToInt(B)]);
Panel2.Color :=
RGB(StrToInt(R), StrToInt(G), StrToInt(B));
except
ShowMessage('
Ungülte Farbenwerte! Bitte überprüfen!');
end;
end;
@bitsetter:
aber: ich versteh irgendwie deine antwort zu dem nicht, bitsetter! was muss ich da jetzt machen?? :
Delphi-Quellcode:
procedure TForm1.Umwandeln1Click(Sender: TObject);
begin
try
Hex1 := '$'+Hexcolor.Text;
Col := StringToColor(Hex1);
RGBan.Caption := Format('%d %d %d',[GetRValue(Col), GetGValue(Col),GetBValue(Col)]);
Panel1.Color:= Col;
except
ShowMessage ('Ungültige Farbenwerte! Bitte überprüfen!')
end;
end;
Was bewirken eigentlich diese zeichen: %d %d %d
Zitat von
bitsetter:
Auch da musst du wieder darauf achten, dass gültige Zahlen in den Feldern sind und dass der Bereich der Zahlen zwischen 0..255 liegt.
1. Ich hab sie ja richtig eingegeben...
Zitat von
bitsetter:
Zitat von
maxmax:
sry mein 2 post aber:
ich hab noch ein problem!
wenn ich 95CAFF für Hex1 nehme: kommt als
RGB 255 202 149 // es muss 149 202 255 lauten!! Und das Pnael ziegt orange an, obwohl es hellblau ist! (siehe bug1.bmp)
[/b]
Du gibst die Werte andersrum ein:
Delphi-Quellcode:
StringToColor('$0000FF');//= ROT;
StringToColor('$00FF00');//= Grün
StringToColor('$FF0000');//= Blau
Wenn du es trotzdem so rum möchtest, dann gibt es hier im Thread schon einiges an Code dafür.
Ich geb die werte aber per Edit - feld ein und ich will sie ganz normal eingeben... Aber warum funzt es nicht?????
@svenkan: ich komm irgendwie nicht mit deiner funktion zurecht...
außerdem hab ich ja selber auch schon angefangen, aber halt mit fehlern...