[Andorra 2D] Farbe von TextOut

[Spezi]

Hallo Delphi-Gemeinde

Ich habe folgendes Problem:

Ich möchte bei meinem Projekt die Schriftfarbe in Abhängigkeit eines sich ändernden Parameters ändern.

Also in zum Beispiel so:

Delphi-Quellcode:

  if PerfCounter.FPS>500 then
    MainAdDraw.Canvas.Pen.Color := AdCol32_Red
  else
    MainAdDraw.Canvas.Pen.Color := AdCol32_Black;
  MainAdDraw.Canvas.Rectangle(800,32,820,42);
  MainAdDraw.Canvas.TextOut(785,32,'Hallo');

Die Sache ist nun die, dass sich bei dem Rechteck die Farbe des Randes ändert, wenn die FPS größer bzw. kleiner als 500 werden.
Bei dem Schriftzug ist dies allerdings nicht der Fall.

MfG
Spezi

PS: Ich rufe diesen Code zwischen "BeginScene;" und "EndScene;" auf, "Release;" habe ich auch schon probiert.

[Teekeks]

Nimm mal MainAdDraw.Canvas.Font.Color, dann geht es...

[Spezi]

Ok, Danke, funktioniert.

Man muss aber MainAdDraw.Canvas.Font.TextOut nehmen, weil sonst MainAdDraw.Canvas.pen.color die Schriftfarbe bestimmt.