AnimateWindow Non-vcl Hintergrundfarbe

[EWeiss]

Falls es daran liegt das ihr nicht antwortet weil ihr nicht wisst wie man das macht hier ist der Code Teil zum Testen.

Im Quelltext von OTTB die Zeilen einfügen und WM_PAINT aus kommentieren.
PopUpProc..

Delphi-Quellcode:

    WM_PRINTCLIENT:
      begin
        GetClientRect(WinHandle, Rect);

        DC := HDC(wp);
        SrcDC := SKAERO_GetProperty(WinHandle, FORM_PaintDC);
        SKAERO_MoveBackground(WinHandle, Rect.Left, Rect.Top, True);

        BitBlt(DC, 0, 0, Rect.Right, Rect.Bottom, SrcDC, 0, 0, SRCCOPY);

        if not DrawSideBar then
        begin
          GetClipBox(DC, Rect);

          Rect.Top := 198;
          Rect.Left := 12;

          GDIP_DrawTextToDC(DC, 'Over The Task Bar', Rect, SKAERO_ACTIVECAPTION,
            'Nasalization Free', 14, FontStyleBoldItalic, 1.1,
          ZD_TextVertUp, MainApp.FPrivateFont);

          DrawSideBar := True;
        end;

        ReleaseDC(Winhandle, DC);
        ReleaseDC(Winhandle, SrcDC);
      end;

WndProc..

Delphi-Quellcode:

WM_RBUTTONDOWN:
...
//ShowWindow(Prop.PopupMenu, SW_SHOW);
AnimateWindow(Prop.PopupMenu, 500, AW_CENTER or AW_ACTIVATE);

Bei mir kommt immer ein weißer rahmen beim animieren.
Wie bekomme ich den weg? (denke gar nicht hat sich also erledigt)

gruss