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

TestSamples/CompilationSamples/GrFont2.pas

16 строк380 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������������ ������������� TextWidth � TextHeight
uses GraphABC;

const s = 'Width & Height';
  
begin
  Window.Title := '����� �� ������';
  Window.IsFixedSize := True;
  SetWindowSize(700,300);
  Window.Center;
  Font.Name := 'Times';
  Font.Size := 50;
  var tw := TextWidth(s);
  var th := TextHeight(s);
  TextOut((Window.Width-tw) div 2,(Window.Height-th) div 2,s);
end.