PHP DM Gate v0.9 » Как провести линию на компоненте фигура(Shape)? <span class="vd">[D7, WinXP]</span>

Zheksik © (03.07.08 21:48) [0]

У компонента фигура(Shape) нет Canvas_a, как на нём рисовать? Спасибо.

<Цитата>
{RASkov} © (03.07.08 21:56) [1]

Первый способ:
type TGrCtrl = class(TGraphicControl);
procedure .....;
begin
with TGrCtrl(Shape).Canvas do begin
Rectangle(....);
....
end;
end;

Второй способ:
var C: TControlCanvas;
begin
C:=TControlCanvas.Create;
C.Control:=Shape;
with C do begin
TextOut(.....);
......
end;
end;

Есть и третий и может так далее, но думаю хватит....

<Цитата>
{RASkov} © (03.07.08 21:57) [2]

Во втором способе забыл "убить" в заключении созданный и использованный объект С... сорри.

<Цитата>
Zheksik © (03.07.08 22:22) [3]

спасибо

<Цитата>