Действия с кистью
procedure SetBrushColor(color: integer); - устанавливает цвет кисти, задаваемый параметром color.
function BrushColor: integer; - возвращает текущий цвет кисти.
procedure SetBrushPicture(fname: string); - устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname, при этом текущий цвет кисти при закраске игнорируется.
procedure ClearBrushPicture; - очищает рисунок-образец, выбранный для кисти.
procedure SetBrushStyle(bs: integer); - устанавливает стиль кисти, задаваемый параметром bs.
function BrushStyle: integer; - возвращает текущий стиль кисти.
Стили кисти задаются следующими именованными константами:
Значение
|
Шаблон
|
|
Значение
|
Шаблон
|
bsSolid |
|
|
bsCross |
|
bsClear
|
|
|
bsDiagCross
|
|
bsHorizontal
|
|
|
bsBDiagonal
|
|
bsVertical
|
|
|
bsFDiagonal
|
|
Действия со шрифтом
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 в пикселях при текущих настройках шрифта.
|