22 lines
427 B
ObjectPascal
22 lines
427 B
ObjectPascal
uses ABCObjects,GraphABC;
|
|
|
|
const
|
|
/// отступ по оси x
|
|
zx = 100;
|
|
/// отступ по оси y
|
|
zy = 50;
|
|
|
|
begin
|
|
Window.IsFixedSize := True;
|
|
Window.Title := 'Секундомер';
|
|
var r := new RoundRectABC(zx,zy,Window.Width-2*zx,Window.Height-2*zy,100,clMoneyGreen);
|
|
r.BorderWidth := 5;
|
|
r.BorderColor := clGreen;
|
|
for var i:=1 to 1000 do
|
|
begin
|
|
r.RealNumber := i/10;
|
|
Sleep(100);
|
|
end;
|
|
end.
|
|
|