TMemo и Canvas

← →
TsvIlya (2003-06-25 13:14) [0]

Мастера, выручайте!
Как рисовать на TMemo? У него же нет канвы! Очень надо.
Заранее благодарен...

← →
Dimka Maslov © (2003-06-25 13:52) [1]

У него есть Handle, а значит можно при необходимости её создать

← →
TsvIlya (2003-06-25 14:06) [2]

> Dimka Maslov © (25.06.03 13:52)

Э-э-э... А каким образом?

← →
Думкин © (2003-06-25 14:23) [3]

> TsvIlya (25.06.03 14:06)

DC := GetDC(Handle);

ReleaseDC(Handle, DC);

var DC : HDC;
Canvas : TCanvas;
....
DC:=GetDC(Memo1.Handle);
Canvas:=TCanvas.Create;
try
Canvas.handle:=DC;
Canvas.Rectangle(0,0,100,100);
finally
ReleaseDC(Memo1.Handle, DC);
Canvas.Free;
end;

TMemo и Canvas Найти похожие ветки