CreateBitmap

[omata]

Moin,

da man nicht viel von deinem Code sehen kann...

Habe ich mal folgendes probiert...

Delphi-Quellcode:

procedure malen;
var bmp:HBITMAP;
    _HDC, hDC: windows.HDC;
begin
  _HDC := GetDC(Self.Handle);
  hDC := CreateCompatibleDC(_HDC);
  bmp := CreateBitmap(100,100,1,GetDeviceCaps(hDC, BITSPIXEL),nil);
  SelectObject(hDC, bmp);

  BitBlt(hDC, 0, 0, 480, 320, image1.Canvas.Handle, 0, 0, cmSrcCopy); // Nur zum Füllen von bmp

  BitBlt(_HDC, 0, 0, 480, 320, hDC, 0, 0, cmSrcCopy);
end;

das funktioniert.

Als Beispiel habe ich ein Image, dessen Inhalt ich nur über den Handle auf die Form male.

MfG
Thorsten