| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Шрифты [D6, WinXP]
Yaral © (2004-07-28 21:51:00)Здравствуйте
1 Подскажите как можно открыть файл шрифта т.е. запихать в переменную TFont шрифт из файла.
2 Может кто-нибудь знает где взять описание TTF желательно на русском?
Iconka (2004-07-29 11:11:00) [1]
> 1 Подскажите как можно открыть файл шрифта т.е. запихать в переменную TFont шрифт из файла.
Если ты знаешь имя шрифта, то это легко:
AddFontResource(PChar(FontFileName));
Form1.Font.Name:= Известное_Наименование_Шрифта
в конце не забуть RemoveFontResource(...);
> 2 Может кто-нибудь знает где взять описание TTF желательно
> на русском?
На руском незнаю, а на английcком на сайте Microsoft есть. Где точно не помню - ищи.
Rouse_ (2004-07-28 23:50:00) [2]пример:
uses ..., ComCtrls, CommCtrl;
...
// Для ввода IP адреса будем использовать класс WC_IPADDRESS
// именно для этого и предназначеный...
procedure TMainForm.FormCreate(Sender: TObject);
begin
// Зададим первоначальный IP адрес (это адрес моей машины)
IP := MAKEIPADDRESS(192,168,24,2);
// Инициализируем дополнительные классы библиотеки ComCtl32.dll.
InitCommonControl(ICC_INTERNET_CLASSES);
// Создадим само окошко (предком ему будет gbIP)
edIP:= CreateWindow(WC_IPADDRESS, nil, WS_CHILD or WS_VISIBLE,
6, 16, 100, 21, gbIP.Handle, 0, hInstance, nil);
// Укажем ему какой IP показывать
SendMessage(edIP, IPM_SETADDRESS, 0, IP);
// Подберем нужный шрифтик для него...
Font := CreateFont(-11, 0, 0, 0, 400, 0, 0, 0, DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');
// и скажем, чтоб он был с этим шрифтом (а то больно уж неказистый...)
SendMessage(edIP, WM_SETFONT, Font, 0);
end;
parovoZZ (2004-07-28 23:41:00) [3]Имя шрифта в самом последнем параметре функции, писать надо так: PChar ('имя шрифта'). В справку по SDK загляни.
Yaral (2004-07-28 23:29:00) [4]В CreateFont () куча параметров, только имени файла шрифта я чего-то не нашел.
parovoZZ (2004-07-28 21:58:00) [5]CreateFont ()
| |
