| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Zheksik ©   (2008-07-03 21:48:00) 

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

---

Zheksik   (2008-07-03 22:22:00) [1]

спасибо

---

{RASkov}   (2008-07-03 21:57:00) [2]

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

---

{RASkov}   (2008-07-03 21:56:00) [3]

Первый способ:
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;

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

---

Наверх