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

TestSamples/CompilationSamples/anim_nonblinking.pas

17 строк268 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses GraphABC;

var i: integer;

begin
  SetWindowSize(700,500);
  LockDrawing;
  for i:=1 to 500 do
  begin
    SetBrushColor(clGreen);
    FillEllipse(i,100,i+100,200);
    Redraw;
    Sleep(1);
    SetBrushColor(clWhite);
    FillRect(i,100,i+100,200);
  end;
end.