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

TestSamples/CompilationSamples/gr_Text.pas

21 строка295 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses ABCObjects,GraphABC;

type TClass = class
end;

var
  bt: TextABC;
  x: integer;
  
begin
  x:=224;
  bt:=new TextABC(60,110,110,'Hello!',RGB(x,x,x));
  while x>32 do
  begin
    Sleep(40);
    Dec(x,32);
    bt:=TextABC(bt.Clone);
    bt.Color:=RGB(x,x,x);
    bt.MoveOn(7,7);
  end;
end.