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

Вниз

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

← →
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;

---

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

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

Наверх

Память: 0.43 MB
Время: 0.005 c