Введение в ABCButtons: различия между версиями
Содержимое удалено Содержимое добавлено
Нет описания правки Метка: редактор вики-текста 2017 |
Метка: редактор вики-текста 2017 |
||
Строка 42:
</syntaxhighlight>
==Перемещение фигуры кнопками==
<syntaxhighlight lang="pascal">
uses
const
BoxSize = 100;
MoveValue = 2;
begin
var right := new ButtonABC(ButtonSize, 0, ButtonSize, ButtonSize, 'R', clYellow);
var up := new ButtonABC(ButtonSize * 2, 0, ButtonSize, ButtonSize, 'U', clGreen);
var down := new ButtonABC(ButtonSize * 3, 0, ButtonSize, ButtonSize, 'D', clBlue);
var rectangle := new RectangleABC(Window().Width div 2, Window().Height div 2, BoxSize, BoxSize, clGray);
▲ Start := new ButtonABC(0, Y, W, H, 'Start', clMoneyGreen);
left.OnClick := procedure() -> rectangle.MoveOn(-MoveValue, 0);
right.OnClick := procedure() -> rectangle.MoveOn(MoveValue, 0);
up.OnClick := procedure() -> rectangle.MoveOn(0, -MoveValue);
down.OnClick := procedure() -> rectangle.MoveOn(0, MoveValue);
end.
</syntaxhighlight>
|