16 lines
276 B
ObjectPascal
16 lines
276 B
ObjectPascal
uses GraphWPF;
|
|
|
|
begin
|
|
Window.Title := 'Ïðîñòàÿ àíèìàöèÿ';
|
|
var x := 30;
|
|
Brush.Color := Colors.Beige;
|
|
Circle(x,50,20);
|
|
loop 600 do
|
|
begin
|
|
Sleep(10);
|
|
Window.Clear;
|
|
x += 1;
|
|
Circle(x,50,20);
|
|
Window.Title := '' + (Milliseconds div 100)/10;
|
|
end;
|
|
end. |