Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.09.13;
Скачать: CL | DM;

Вниз

Как провести линию на компоненте фигура(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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
15-1247257804
Юрий
2009-07-11 00:30
2009.09.13
С днем рождения ! 11 июля 2009 суббота


15-1247320167
TIF
2009-07-11 17:49
2009.09.13
Windows 98


15-1246903377
TUser
2009-07-06 22:02
2009.09.13
"Экономия" на Линуксе


15-1247455425
vajo
2009-07-13 07:23
2009.09.13
Что может означать длинный писк материнки?


15-1247603405
Юрий
2009-07-15 00:30
2009.09.13
С днем рождения ! 15 июля 2009 среда