Форум: "Основная";
Текущий архив: 2009.09.13;
Скачать: [xml.tar.bz2];
ВнизКак провести линию на компоненте фигура(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]Во втором способе забыл "убить" в заключении созданный и использованный объект С... сорри.
← →
Zheksik © (2008-07-03 22:22) [3]спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2009.09.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c