Введение в ABCButtons: различия между версиями

Перейти к навигации Перейти к поиску
нет описания правки
Нет описания правки
Нет описания правки
{{К удалению}}
{{gui_nav|http://нет_источника/данная_статья_оригинал}}
ABCButtons - модуль для создания кнопок на PascalABC.Net.
=Использование ABCButtons=
ABCButtons довольно примитивный модуль , годен для создания только кнопок. Все программы, использующие модуль должны иметь следующий вид:
<source lang="pascal">
uses GraphABC, ABCButtons;
 
=Класс ButtonABC=
ABCButtonButtonABC - класс кнопки.
* Декларировать в секции var кнопку можно так:
<source lang="Pascal">Button: ButtonABC;</source>
* Инициализировать с помощью new кнопку можно следующим образом:
<source lang="pascal">Button := new ButtonABC(x, y, w, h, t, c);</source>
x, y - координаты левого верхнего угла кнопки; w, h - ширина и высота кнопки соответственно; t - текст на кнопке; c - цвет кнопки.
{| class="wikitable sortable"
=Привязка обработчиков событий=
Чтобы выполнялась некоторая процедура при нажатии на кнопку пишите:
<source lang="pascal">a.OnClick :=pnp;
//Альтернативный вариант:
A.OnClick += p;
//Изъятие процедуры:
A.OnClick -= p;
</source>
aA - имя кнопки, p - процедура, которая выполниться по нажатию на кнопку a.
=Пример программы=
* Если ваша процедура содержит бесконечный цикл,то все остальные кнопки на время выполнения цикла дизактивируються (не работают).
* Вывод "Привет мир!" по щелчку на кнопку.
<source lang="pascal">
uses crtCrt, GraphABC, ABCButtons;
var
var a B: ButtonABC;
procedure pP() :=system.console.writeline Writeln('Привет мир!');
 
=Окно GraphABC=
GraphABCWindow - класс графического окна.
{| class="wikitable sortable"
|-
! Процедура !! Значение
|-
| GraphABCWindow.<span style="color:green">'''SetSize'''(x,y)</span> || Устанавливает размер окна '''x'''<small>x</small>'''y''' в пикселях.
|-
| <span style="color:green">'''SetWindowIsFixedSize'''(x)</span> || Устанавливает, возможно ли изменять размер окна или нет.
<span style="color:purple">
* k=true - окно имеет фиксированный размер
* k=false - размер окна можно изменять
</span>
|}
 
=Пример программы=
* Вывод "Привет мир!" по щелчку на кнопку.
<source lang="pascal">
uses crt, GraphABC, ABCButtons;
var a:ButtonABC;
procedure p():=system.console.writeline('Привет мир!');
begin
aB := new ButtonABC(0, 0, 100, 40, 'Button', clred);
aB.OnClick := p;
end.</source>
5266

правок

Навигация