Введение в ABCButtons: различия между версиями
Содержимое удалено Содержимое добавлено
Метка: редактор вики-текста 2017 |
Метка: редактор вики-текста 2017 |
||
Строка 49:
ButtonSize = 25;
BoxSize = 100;
MoveValue =
begin
Window().Caption := 'Figure translating';
var left := new ButtonABC(0, 0, ButtonSize, ButtonSize, 'L', clRed);
var right := new ButtonABC(ButtonSize, 0, ButtonSize, ButtonSize, 'R', clYellow);
Строка 57 ⟶ 59 :
var down := new ButtonABC(ButtonSize * 3, 0, ButtonSize, ButtonSize, 'D', clBlue);
var rectangle := new RectangleABC(Window().Width div 2 - BoxSize div 2, Window().Height div 2
BoxSize, BoxSize, clGray);
left.OnClick := procedure() -> rectangle.MoveOn(-MoveValue, 0);
|