/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc19_StatusBar.pas
17 строк
595 B
Mikhalkovich Stanislav
Controls - примеры
01 авг 2020, 00:13
01 авг 2020, 00:13
a4804f3
Код
Авторство
О чём код?
// Модуль Controls - StatusBar uses Controls,GraphWPF; begin Window.Title := 'Модуль Controls - StatusBar'; var l := LeftPanel(150,Colors.Orange); l.Tooltip := 'Измените размеры окна'; var sb := StatusBar(24,55); sb.AddText('',55); Button('Очистить поле W').Click := procedure -> sb.ItemText[0] := ''; Button('Очистить поле H').Click := procedure -> sb.ItemText[1] := ''; OnResize := () -> begin sb.ItemText[0] := 'W=' + Window.Width.Round; sb.ItemText[1] := 'H=' + Window.Height.Round; end; OnResize(); end.