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

TestSamples/CompilationSamples/ABC.pas

41 строка705 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������ ABCObjects. ��������� ������� �������
uses ABCObjects,GraphABC;

const delay = 300;

procedure Pause;
begin
  Sleep(delay);
end;

var 
  r: RectangleABC;
  z: StarABC;

begin
  z := new StarABC(Window.Center.X,Window.Center.Y,70,30,6,Color.Green);
  r := new RectangleABC(100,100,200,100,Color.Gold);
  Pause;
  r.Center := Window.Center;
  Pause;
  r.Height := 70;
  Pause;
  r.Width := 220;
  Pause;
  z.Radius := 150;
  Pause;
  z.Color := Color.LightCoral;
  Pause;
  z.Count := 5;
  Pause;
 
  r.Text := 'PascalABC.NET';
  r.Color := Color.Gainsboro;
  Pause;
  r.BorderWidth := 3;
  r.BorderColor := Color.Blue;
  Pause;
  r.Center := Window.Center;
  Pause;
//  r.Bordered := False;
end.