Рисование на GroupBox
Автор: Ralph Friedman
Я хочу рисовать на холсте (Canvas) моего компонента GroupBox.
Но когда я пробую рисовать на Component.Parent.Canvas, рисование происходит на
форме, а не на моем компоненте GroupBox. Что я делаю неправильно?
Canvas - защищенное свойство TGroupBox и, поэтому, недоступное. Вы можете
сделать его доступным следующим образом:
type
TMyGroupBox = class(TGroupBox)
public
property Canvas;
end;
procedure SomeProcedure;
begin
...
with TMyGroupBox(GroupBox1).Canvas do
CopyRect(ClipRect, Image1.Canvas, ClipRect);
...
end;
|
|