[Del] TCanvas.pixels → HBitMap

[raxp]

так если <Bit> уже создан, тогда CreateBinImage не нужен...

Procedure CreateBinImage(W,H:SmallInt; Var BitMap:HBitMap);
Begin
 hdcImage  := CreateCompatibleDC(0);
 hdcScreen := hdcImage;
 BitMap    := CreateCompatibleBitmap(hdcScreen, MaxX, MaxY);

 SelectObject(hdcImage, BitMap); 
 BitBlt(hdcScreen, 0, 0, MaxX, MaxY, hdcImage, 0, 0, SRCCOPY); - эм, скопировать-бы контекст, тогда SetPixel() должна
End;

кстати, если есть возможность работать с канвасом Bit "Bit.Canvas.Pixels[X,Y]:=", зачем тогда контекст... в топку


UPD
-------

С раскомментенным нет вообще ничего

странно... а без SelectObject ?

[Alex Cones]

Так появляется хотя бы черный прямоугольник:

Procedure CreateBinImage(W,H:SmallInt; Var BitMap:HBitMap);
Begin
 hdcImage  := CreateCompatibleDC(0);
 hdcScreen := hdcImage;
 BitMap    := CreateCompatibleBitmap(hdcScreen, W, H);
// SelectObject(hdcImage, BitMap);
// BitBlt(hdcScreen, 0, 0, W, H, hdcImage, 0, 0, SRCCOPY);
End;

С раскомментенным нет вообще ничего.

в топку

Если б был, отправил бы. Код скопировал из своего рабочего (не апишного) проекта, там использовал холст.