DrawText & SetTextColor Textfarbe ändern

[turboPASCAL]

Moin,

ich bin gerade dabei 'ne Komponente umzumodeln. Problem dabei ist dass sich die Farbe der Caption des Panels nicht mit diesem Code ändern lässt.

Delphi-Quellcode:

// ...  
  SetTextColor(Canvas.Handle, Font.Color);

  OldBkMode := SetBkMode(Canvas.Handle, TRANSPARENT);
  DrawText(Canvas.Handle, PChar( Self.Caption), Length(Caption),
          aRect, TextFlag);
  SetBkMode(Canvas.Handle, OldBkMode);
// ...

Wenn ich bei SetTextColor die Farbe direkt Angebe, also z.B. clRed wird das auch korrekt umgesetzt. Font.Color enthält aber die akt. Farbe.
Habe ich was übersehen ?

[negaH]

Delphi-Quellcode:

DC := Canvas.Handle;

SetTextColor(DC, ColorToRGB(Font.Color));

1.) das Canvas.handle in eine lokale Variable DC: hDC zwischenspeichern. Canvas.Handle ist ein Property und macht intern viel mehr als nur ein Handle zurückzugeben, es kommt beim ständigen Zugriff mit Canvas.Handle zu Inkonsistenzen.

2.) ColorToRGB() benutzen.


Gruß Hagen

[turboPASCAL]

Hm, hatte mich schon gewundert, die Farben clRed, clBlue usw. wurden dargestellt aber clMenuHighlight als Systemfarbe nicht.

...tazächlich so wird es was... THX.