Hexadezimal Farben als Hintergrund

[f4r]

Hi Leute,

eigentlich aus m topic ersichlich was ich will

kann man farben von labels hintergrundfarben usw... auch hexadezimal definieren ?

gruss
f4r

[ichbins]

Delphi-Quellcode:

label1.font.color:=stringtocolor('$123456');
label1.font.color:=stringtocolor('clblack');

[Christian18]

Hallo f4r,

das ist eigentlich ganz einfach. Einfach Den Hex Code als String betrachten und und dann in eine Farbe umwandeln.
Label1.Font.Color:=StringToColor('$FFFFFF'); MFG Christian18

[NACHTARG]
Ups, da war wohl einer schneller als ich. Sry für den Doppelpost.
[/NACHTRAG]

[ichbins]

Wenn du den Hex-Wert nicht als String betrachten willst, dann mach es so:
form1.color:=$ABCDEF;

[f4r]

danke

[f4r]

kann man die border color seperat einstellen ?

gruss

[ichbins]

welche border-color?

meinst du die Farbe von der Titelleiste? Das sowieso nicht, weil das unter XP ja ganz anderst aussieht.

[iHanns]

Ich bekomme die gleiche Fehlermeldung aber zu nem einfacheren Text, vllt kennt da ja jmd die Lösung:

procedure TFenster.Button1Click(Sender: TObject);
var a, s : integer;
Zeichen : string;
begin
s:=1;
for s := 1 to length(edit1.Text) do
begin
Zeichen := Edit1.Text[s];
if Zeichen = 'A'
then Zeichen.Font.Color:=StringToColor('$FFFF00')
else Zeichen.Font.Color:=StringToColor('$00FF00');
end;

end;

[Medium]

Abgesehen davon, dass der Thread fast 7 Jahre alt ist, steht die Lösung in Posting #4.

[Amateurprofi]

Zitat von iHanns:

Ich bekomme die gleiche Fehlermeldung aber zu nem einfacheren Text, vllt kennt da ja jmd die Lösung:

procedure TFenster.Button1Click(Sender: TObject);
var a, s : integer;
Zeichen : string;
begin
s:=1;
for s := 1 to length(edit1.Text) do
begin
Zeichen := Edit1.Text[s];
if Zeichen = 'A'
then Zeichen.Font.Color:=StringToColor('$FFFF00')
else Zeichen.Font.Color:=StringToColor('$00FF00');
end;

end;

Ein String hat keinen Font, dem du eine Color zuweisen könntest.