Скачать: CL | DM;

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 (хоть и компилятор не давал подсказки о существования этого свойства)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c