Ändern der Schriftfarbe

[Hellcat]

Hi Leute!

Woran kann es liegen, dass sich mein Programm weigert, die Schriftfarbe eines Labels zu ändern?

Delphi-Quellcode:

procedure TForm1.PanHalle01MouseDown(Sender: TObject; Button: TMouseButton;//Panel 1
  Shift: TShiftState; X, Y: Integer);
begin
  if button = mbleft then                   {ändert Farbe wenn Halle sich füllt}
    if Form1.PanHalle01.Color <> $0000FF then{Kontrolle ob Farbe <> Rot}
      PanLab1T.Caption := Zeitangabe;
  if button = mbright then                  {ändert Farbe wenn Halle sich leert}
    if Form1.PanHalle01.Color <> $FFFFFF then{Kontrolle ob Farbe <> Weiß}
      PanLab1T.Caption := Zeitangabe;
  Farbewechseln (Sender as TPanel, Button);
  if PanHalle01.color = clgreen or clmaroon
    then Panlab1T.font.color := clwhite  {Änderung erfolgt nicht}
    else Panlab1T.font.color := clblack; {Änderung erfolgt nicht}
end;

[Helld_River]

Zitat:

Zitat von Hellcat

Delphi-Quellcode:

  if PanHalle01.color = clgreen or clmaroon
    then Panlab1T.font.color := clwhite  {Änderung erfolgt nicht}
    else Panlab1T.font.color := clblack; {Änderung erfolgt nicht}
end;

Hey !
Versuch mal :

Delphi-Quellcode:

if (PanHalle01.color = clgreen) or (PanHalle01.color = clmaroon)
    then
      ...

GRuß, Helld

[Hellcat]

Danke, ich hab's jetzt über einen Case...of gelöst...
Auf deine Variante bin ich nicht gekommen...dabei wäre es das einfachste gewesen... :roll:

[Helld_River]

Na ja, ist aber logisch, denn deine 2te OR-Prüfung war, ob clMaroon TRUE ist. Und wann ist clMaroon denn schon mal true :-)

GRuß, Helld