17 lines
773 B
ObjectPascal
17 lines
773 B
ObjectPascal
// Модуль Controls - замена графической панели на элемент управления "Канва"
|
||
uses Controls,GraphWPF;
|
||
|
||
begin
|
||
Window.Title := 'Модуль Controls - замена графической панели на элемент управления "Канва"';
|
||
var left := LeftPanel(150,Colors.Orange);
|
||
var can := SetMainControl.AsCanvas;
|
||
can.Color := Colors.AntiqueWhite;
|
||
|
||
Button(100,100,'На Канве можно располагать элементы');
|
||
Button(50,300,'в любом месте,');
|
||
TextBlock(150,500,'указывая их координаты');
|
||
|
||
// Смена активной панели
|
||
SetActivePanel(left);
|
||
Button('Закрыть').Click := procedure → Window.Close;
|
||
end. |