2015-12-28 14:25:15 +03:00
|
|
|
// Демонстрация использования TextWidth и TextHeight
|
2015-05-14 22:35:07 +03:00
|
|
|
uses GraphABC;
|
|
|
|
|
|
|
|
|
|
const s = 'Width & Height';
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
Window.Title := 'Текст по центру';
|
2015-05-14 22:35:07 +03:00
|
|
|
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.
|
