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

Вниз

Есть ли у панели канва?   Найти похожие ветки 

 
ilg ©   (2002-01-17 13:15) [0]

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


 
Alx2 ©   (2002-01-17 13:33) [1]

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

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;


 
Dmitriy K. ©   (2002-01-17 13:37) [2]

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


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

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


Удачи.



Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-8940
TAN
2002-01-18 09:57
2002.02.04
как поставить курсор в конец строки


1-8848
Vlad@Delphi
2002-01-18 21:37
2002.02.04
Работа с архивами


1-8934
Хлор
2002-01-18 03:21
2002.02.04
Люди... помогите!!! Как удалить выбранный item из ListBox


3-8774
Sergant
2002-01-06 17:03
2002.02.04
Просмотр БД в Dos и Win-кодровках без BDE


1-8824
MJH
2002-01-19 18:17
2002.02.04
AnimatedMenus2000