n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/GrAnim2.pas

18 строк394 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// �������. ������������� LockDrawing-Redraw. �������� �����������
uses GraphABC;

begin
  Window.Title := '�������� ��� ��������';
  var y := 200;
  Brush.Color := clGreen;
  // ��������� ��������� � ����
  LockDrawing;
  for var x := 70 to 500 do
  begin
    Window.Clear(clWhite);    
    Circle(x,y,50);
    // �������������� ���� �� ����������� ������
    Redraw;
    Sleep(3);
  end;
end.