bild anzeigen

[Dubino]

was funktioniert hier nicht:

createwindow('STATIC','winpicting',ws_popup, 150, 150, 600,400,
0,0,0,Nil);{}
showwindow(hwnd01,sw_show);
updatewindow(hwnd01);

bmpname:='z01.bmp'
bmp:=LoadBitmap(hwnd01,bmpname);
PaintStrc.hdc:=hwnd01;
PaintStrc.ferase:=false;
PaintStrc.rcpaint.left:=0;
PaintStrc.rcpaint.top:=0;
PaintStrc.rcpaint.right:=600-1;
PaintStrc.rcpaint.bottom:=400-1;
hdcWindow:= BeginPaint(hwnd01,PaintStrc);

hdcMemory:= CreateCompatibleDC(hdcWindow);
SelectObject(hdcMemory, bmp);
BitBlt(hdcWindow, 150, 150, 600,400, hdcMemory, 0, 0, SRCcopy);
DeleteDC(hdcMemory);
EndPaint(hwnd01,PaintStrc);

showwindow(hwnd01,sw_show);
updatewindow(hwnd01);