[Non-VCL] Zeichnen flackert

[Apollonius]

Wenn ich mich nicht täusche, geht es so:

Delphi-Quellcode:

var BufferDC: HDC; Bmp, OldBmp: HBITMAP;

BufferDC := CreateCompatibleDC(RealDC);
Bmp := CreateCompatibleBitmap(BufferDC, Width, Height);
OldBmp := SelectObject(BufferDC, Bmp);

//auf BufferDC zeichnen

//BufferDC auf RealDC blitten

SelectObject(BufferDC, OldBmp);
DeleteObject(Bmp);

DeleteDC(BufferDC);