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

TestSamples/ABCObjectsLibTest.pas

21 строка408 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ��������� ������� ������� StarABC
#reference 'ABCObjectsLib.dll'
#reference 'System.Drawing.dll'

uses ABCObjectsLib;

var z: ABCObjectsLib.StarABC;

begin
  z := new ABCObjectsLib.StarABC(200,200,190,210,6,System.Drawing.Color.Red);
  for var i:=1 to 20 do
  begin
    Sleep(100);
    z.Count := z.Count + 1;
  end;
  for var i:=1 to 180 do
  begin
    Sleep(10);
    z.Angle := z.Angle + 1;
  end;
end.