Введение в ABCButtons: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 59: | Строка 59: | ||
* Вывод "Привет мир!" по щелчку на кнопку. |
* Вывод "Привет мир!" по щелчку на кнопку. |
||
<source lang="pascal"> |
<source lang="pascal"> |
||
uses GraphABC, ABCButtons; |
uses crt, GraphABC, ABCButtons; |
||
var a:ButtonABC; |
var a:ButtonABC; |
||
procedure p():=system.console.writeline('Привет мир!'); |
procedure p():=system.console.writeline('Привет мир!'); |
Версия от 04:52, 26 июля 2016
Содержание |
|
ABCButtons - модуль для создания кнопок на PascalABC.Net.
Использование ABCButtons
Все программы, использующие модуль должны иметь следующий вид:
uses GraphABC, ABCButtons;
var
//объявление кнопок
begin
end.
Класс ButtonABC
ABCButton - класс кнопки.
- Декларировать в секции var кнопку можно так:
name:ButtonABC;
name - имя кнопки;
- Инициализировать с помощью new кнопку можно следующим образом:
name:=new ButtonABC(x,y,w,h,t,c);
x, y - координаты левого верхнего угла кнопки; w, h - ширина и высота кнопки соответственно; t - текст на кнопке; c - цвет кнопки.
Свойство | Значение |
---|---|
Text | Текст на кнопке. |
Filled | Заполнена ли цветом кнопка (true, false). |
Color | Цвет внутренности кнопки. |
FontColor | Цвет текста кнопки. |
Visible | Видимость кнопки (true, false). |
TextVisible | Видимость текста на кнопке (true, false). |
Курсор
Параметры x и y в обработчиках OnMouseDown, OnMouseUp и OnMouseMove определяют координаты курсора мыши в момент наступления события.
Привязка обработчиков событий
Чтобы выполнялась некоторая процедура при нажатии на кнопку пишите:
a.OnClick:=p;
a - имя кнопки, p - процедура, которая выполниться по нажатию на кнопку a.
Окно GraphABC
GraphABCWindow - класс главного единственного графического окна.
Процедура | Значение |
---|---|
GraphABCWindow.SetSize(x,y) | Устанавливает размер окна xxy в пикселях. |
SetWindowIsFixedSize(x) | Устанавливает, возможно ли изменять размер окна или нет.
|
Пример программы
- Вывод "Привет мир!" по щелчку на кнопку.
uses crt, GraphABC, ABCButtons;
var a:ButtonABC;
procedure p():=system.console.writeline('Привет мир!');
begin
a:=new ButtonABC(0,0,100,40,'Button',clred);
a.OnClick:=p;
end.