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

TestSamples/CompilationSamples/GrFont1.pas

23 строки494 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������������ ������ �� ��������
uses GraphABC;

begin
  Window.Title := '������';
  SetWindowSize(750,520);
  Font.Name := 'Arial';
  Font.Style := fsBoldItalic;
  for var i:=4 to 15 do
  begin
    Font.Size := 2*i;
    Font.Color := clRandom;
    TextOut(50,2*i*i-15,'Pascal ABC');
  end;
  Font.Name := 'Times New Roman';
  Font.Style := fsBoldUnderline;
  for var i:=4 to 15 do
  begin
    Font.Size := 2*i;
    Font.Color := clRandom;
    TextOut(450,2*i*i-15,'Pascal ABC');
  end;
end.