Действия со шрифтом
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 в пикселях при текущих настройках шрифта.
|