Как провести линию на компоненте фигура(Shape)?

← →
Zheksik © (2008-07-03 21:48) [0]

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

← →
{RASkov} © (2008-07-03 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} © (2008-07-03 21:57) [2]

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

спасибо

Как провести линию на компоненте фигура(Shape)? Найти похожие ветки