Welche Windows-Events zum Zeichnen eines Buttons

[sh17]

Hab das Problem gefunden. Der ThemeManager muss auf dem Formular liegen, dann gehts.

Allerdings sollte in DefaultDrawBackground folgendes entfernt werden:

Delphi-Quellcode:

    { Note that changing the background color with active
      visual styles will *NOT* look good in most cases!
    }
    if (Brush.Color <> clBtnFace) and (Brush.Color <> clNone) then
    begin
      InflateRect(Rect, -1, -1);
      FillRect(Canvas.Handle, Rect, Brush.Handle);
      InflateRect(Rect, 1, 1);
    end;

und folgendes abgeändert:

Delphi-Quellcode:

    if Brush.Color <> clNone then
      FillRect(Canvas.Handle, Rect, Brush.Handle);

in

Delphi-Quellcode:

  FillRect(Canvas.Handle, Rect, GetSysColorBrush(COLOR_BTNFACE));Rect, Brush.Handle);

So wird das "normale" Verhalten von Windows erzeugt.

Ich nutze teilweise andersfarbige Hintergründe.