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

Содержимое удалено Содержимое добавлено
Метка: редактор вики-текста 2017
Метка: редактор вики-текста 2017
Строка 49:
ButtonSize = 25;
BoxSize = 100;
MoveValue = 25;
 
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);div 2,
BoxSize, BoxSize, clGray);
left.OnClick := procedure() -> rectangle.MoveOn(-MoveValue, 0);