Рисование на 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;
|
|
|
  |
|
двери калинка . Купить готовый интернет магазин недорого. Купить готовый интернет магазин новости сайт. . куплю пистолет тт боевой . Центр лазерной медицины МедЭра: удаление волос навсегда. Мечтаете удалить волосы? . Поиск любой запчасти за 20 минут - ремонт кпп грузовиков. . |