Действия со шрифтом

procedure SetFontColor(color: integer);

Устанавливает цвет шрифта.

function FontColor: integer;

Возвращает  текущий цвет шрифта.

procedure SetFontSize(sz: integer);

Устанавливает  размер шрифта в пунктах.

function FontSize: integer;

Возвращает  текущий размер шрифта в пунктах.

procedure SetFontName(name: string);

Устанавливает  наименование шрифта.

function FontName: string;

Возвращает  текущее наименование шрифта.

По умолчанию установлен шрифт, имеющий наименование MS Sans Serif.
Наиболее распространенные шрифты – это Times, Arial и Courier New.
Наименование шрифта можно набирать без учета регистра.

procedure SetFontStyle(fs: integer);

Устанавливает  стиль шрифта.

function FontStyle: integer;

Возвращает  текущий стиль шрифта.

Стили шрифта задаются следующими именованными константами:

fsNormal – обычный;

fsBold – жирный;

fsItalic – наклонный;

fsBoldItalic – жирный наклонный;

fsUnderline – подчеркнутый;

fsBoldUnderline – жирный подчеркнутый;

fsItalicUnderline – наклонный подчеркнутый;

fsBoldItalicUnderline – жирный наклонный подчеркнутый.

function TextWidth(s: string): integer;

Возвращает ширину строки s в пикселях при текущих настройках шрифта.

function TextHeight(s: string): integer;

Возвращает высоту строки s в пикселях при текущих настройках шрифта.