nonVCL Controls - Doublebuffered

[Neutral General]

Ja Leute. Ihr werdets mir nicht glauben aber auch ich hab mir die Controls.pas vorher angeschaut

Ich hab es im Moment so:

Delphi-Quellcode:

procedure TNVCLControl.DoPaint;
var ps: TPaintStruct;
    dc,MemDC: HDC;
begin
  DC := BeginPaint(Handle, PS);
  try
    pb := BeginBufferedPaint(DC, PS.rcPaint, BPBF_COMPOSITED, nil, MemDC);
    Perform(WM_ERASEBKGND, MemDC, MemDC);
    Perform(WM_PRINTCLIENT, MemDC, PRF_CLIENT);
    if not (Self is TNVCLForm) then
      BufferedPaintMakeOpaque(pb, @PS.rcPaint);
    EndBufferedPaint(pb,false);
  finally
    EndPaint(Handle, PS);
  end;
end;

procedure TNVCLControl.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    {...}
    WM_PAINT: begin
                if FVisible then
                  DoPaint;
              end;
  end;
  Message.Result := DefProc(FHandle,Message.Msg,Message.WParam,Message.LParam);
end;

EDIT: Was mir grad auffällt.. BeginBufferedPaint liefert mir ne 0 und GetLastError "Handle is invalid". Wobei ich nicht weiß was an meinem HDC falsch sein soll

Anbei noch zwei Screenshots wie das ganze aussieht. Einmal vor weißem und einmal vor schwarzem Hintergrund.
Über dem Memo (unter dem DP-Logo) ist rechts noch ein Button und links eine Checkbox, die man jedoch nicht sieht. Die sieht man nur nachdem man die anklickt. Wenn man dann mit nem anderen Fenster "drüberwischt" sind die wieder weg.

PS: Das mit dem CreateCompatibleBitmap und BitBlt usw. hatte ich auch ausprobiert aber mein Bitmap ist immer nur Schwarz.. Hab das dann auch in der VCL versucht.. ungefähr so:

Delphi-Quellcode:

DC := BeginPaint(Button1.Handle,ps);
bmp := CreateCompatibleBitmap(DC,Button1.Width,Button1.Height);
MemDC := CreateCompatibleDC(DC);
SelectObject(MemDC,bmp);
BitBlt(Canvas.Handle,0, 0, // Wills aufs Form malen um zu kontrollieren
            Button1.Width,
            Button1.Height,
            MemDC, // mit MemDC erhalte ich nen schwarzen kasten mit DC wird der Button gemalt
            0, 0,
            SRCCOPY);

Gruß
Neutral General