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

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

Есть ли у панели канва? [D5, Win95/98]

ilg ©   (2002-01-17 13:15:00) 

Здравствуйте!
Есть ли у панели (TPanel) канва (Canvas) и как до нее "добраться" (через какие свойства)?

---

Dmitriy K.   (2002-01-17 13:37:00) [1]

У TPanelесть свойство Canvas, но оно не public.
Можно объявить наследника, описав Canvas в секции public.


В Интернете как-то нашел следующее решение:

type
TPanel = Class(Extctrls.TPanel)
public
property Canvas;
end;

Удачи.

---

Alx2   (2002-01-17 13:33:00) [2]

Напрмер, так:

type
TPanelWithCanvas = class(TPanel)
public
property Canvas;
end;

procedure TDiagramForm.Panel1Click(Sender: TObject);
begin
with TPanelWithCanvas(Panel1) do
begin
Canvas.Brush.Color := clGreen;
Canvas.FillRect(Rect(1,1,20,20));
end;
end;


Здесь Panel1 типа TPanel;

---

Наверх