BitBlt( form1.PaintBox1.Canvas.Handle ...

← →
Delphi5.01 © (2004-03-21 19:56) [0]

Здравствуйте!
Хочется найти аналог BitMap-а в КОЛ, у которого есть свойство Canvas.
В принципе мне нужно вывести изображение методом Draw, так как такого у BitMap не оказалось пришлось использовать API функцию BitBlt. Но у BitMap-а нет свойства Canvas, по этой причине я не могу его(BitMap) использовать в данной функции. Посоветуйте как решить проблему.

BitMap.LoadFromFile("pic.bmp");
BitBlt( form1.PaintBox1.Canvas.Handle,
0,0,BitMap.Width,BitMap.Height,
BitMap.????.Handle,
0,0,SRCCOPY);

П.С. Перевожу свой, очень хороший компонент на КОЛ. В нем часто используется BitMap, так как он был самим быстрым из аналогов в ВСЛ.

← →
Delphi5.01 © (2004-03-21 20:05) [1]

Извиняюсь, сам нашел вешение :-)

var BitMap: PBitMap;
begin
BitMap:=NewBitmap(0,0);
BitMap.LoadFromFile("pic.bmp");
BitBlt( form1.PaintBox1.Canvas.Handle,
0,0,BitMap.Width,BitMap.Height,
BitMap.Canvas.Handle,
0,0,SRCCOPY);
end;

Немного покопал глубже, круто сказал :-)
Надо было грубо прописать Canvas.Handle (хоть и компилятор не давал подсказки о существования этого свойства)

BitBlt( form1.PaintBox1.Canvas.Handle ... Найти похожие ветки