|
|
|
| |
Определяет шрифт текста.
Доступ к объекту
Через компонент TCanvas:
frm=new TForm();
...
fntObj=frm.Canvas.Font;
Доступ к объекту также можно получить через визуальные компоненты, имеющие свойство Font.
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| Charset
| Enum
| набор символов шрифта (см. ниже)
|
| Color
| TColor
| цвет текста
|
| Height
| Number
| высота символов в пикселях
|
| Name
| String
| название шрифта
|
| Orientation
| Number
| угол наклона текста в единицах измерения 0.1 градуса (против часовой стрелки)
|
| Pitch
| Enum
| способ установки ширины символов (см. ниже)
|
| PixelsPerInch
| Number
| разрешение шрифта в пикселях на дюйм (ppi)
|
| Size
| Number
| размер символов в пунктах (1/72 дюйма)
|
| Style
| Enumset
| стиль начертания символов (см. ниже)
|
| Только чтение
| [TYPE]
| [DESC]
|
| Handle
| Number
| дескриптор шрифта Windows GDI (hFont)
|
|
| Свойство Charset
|
| Значение
| Описание
|
| ANSI_CHARSET
| набор символов ANSI
|
| ARABIC_CHARSET
| арабский
|
| BALTIC_CHARSET
| балтийский
|
| CHINESEBIG5_CHARSET
| китайский традиционный
|
| DEFAULT_CHARSET
| набор символов по умолчанию
|
| EASTEUROPE_CHARSET
| восточно-европейский
|
| GB2312_CHARSET
| китайский континентальный
|
| GREEK_CHARSET
| греческий
|
| HANGEUL_CHARSET
| корейский (Wansung)
|
| HEBREW_CHARSET
| еврейский (Иврит)
|
| JOHAB_CHARSET
| корейский (Johab)
|
| MAC_CHARSET
| набор символов Macintosh
|
| OEM_CHARSET
| набор символов текущей кодовой таблицы Windows
|
| RUSSIAN_CHARSET
| кириллический
|
| SHIFTJIS_CHARSET
| японский
|
| SYMBOL_CHARSET
| набор стандартных символов Windows
|
| THAI_CHARSET
| тайский
|
| TURKISH_CHARSET
| турецкий
|
| VIETNAMESE_CHARSET
| вьетнамский
|
|
| Свойство Pitch
|
| Значение
| Описание
|
| fpDefault
| ширина символов определяется шрифтом
|
| fpFixed
| символы постоянной ширины
|
| fpVariable
| символы переменной ширины
|
|
| Свойство Style
|
| Значение
| Описание
|
| fsBold
| полужирный
|
| fsItalic
| курсив (наклонный)
|
| fsStrikeOut
| перечеркнутый
|
| fsUnderline
| подчеркнутый
|
|
Стандартные свойства
Стандартные методы
// Главная форма
frm=new TForm();
frm.Caption="JS+ - базовый компонент TFont";
frm.Width =525;
frm.Height=375;
// Строка состояния
stb=new TStatusBar(frm);
// Заголовок списка шрифтов
lbl=new TLabel(frm);
lbl.Left=lbl.Top=10;
lbl.Caption="Список доступных экранных шрифтов:";
lbl.Font.Style=fsBold;
// Список шрифтов
lsb=new TListBox(frm);
lsb.BorderStyle=bsSingle;
lsb.Left=lbl.Left;
lsb.Top =lbl.Top+lbl.Height+10;
lsb.Width =frm.ClientWidth/2-5;
lsb.Height=stb.Top-lsb.Top-10;
lsb.Items.Assign(Screen.Fonts);
lsb.ItemIndex=0;
lsb.OnClick=lsb_Click;
// Пример текста
lbl=new TLabel(frm);
lbl.Caption="Example";
lbl.Font.Size*=2;
lsb_Click(lsb);
frm.ShowModal();
// Обработчик события OnClick
function lsb_Click(lsb)
{
var fnt_Name=lsb.Items[lsb.ItemIndex];
var x=lsb.Left+lsb.Width+10;
stb.SimpleText=" Выбран шрифт: "+(lbl.Font.Name=fnt_Name);
lbl.Left=x+(frm.ClientWidth-x-lbl.Width)/2;
lbl.Top =lsb.Top+(lsb.Height-lbl.Height)/2;
}
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
