Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Есть ли у панели канва? 


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;


Удачи.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.019 c
1-8814            Molotov               2002-01-18 21:04  2002.02.04  
Скин для формы


1-8956            Pimin                 2002-01-18 23:32  2002.02.04  
Транслитерация


6-8960            SemFLY                2001-11-11 18:56  2002.02.04  
Почему никак не разберусь ! :-(


1-8817            DJ X                  2002-01-19 15:52  2002.02.04  
Web браузер


1-8919            Alku                  2002-01-17 14:36  2002.02.04  
Как в программе получить Handle запускаемой из нее подпрограммы?