Шрифты

← →
Yaral (2004-07-28 21:51) [0]

Здравствуйте
1 Подскажите как можно открыть файл шрифта т.е. запихать в переменную TFont шрифт из файла.
2 Может кто-нибудь знает где взять описание TTF желательно на русском?

← →
parovoZZ © (2004-07-28 21:58) [1]

CreateFont ()

← →
Yaral (2004-07-28 23:29) [2]

В CreateFont () куча параметров, только имени файла шрифта я чего-то не нашел.

← →
parovoZZ © (2004-07-28 23:41) [3]

Имя шрифта в самом последнем параметре функции, писать надо так: PChar ("имя шрифта"). В справку по SDK загляни.

пример:

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;

> 1 Подскажите как можно открыть файл шрифта т.е. запихать в переменную TFont шрифт из файла.

Если ты знаешь имя шрифта, то это легко:
AddFontResource(PChar(FontFileName)); Form1.Font.Name:= Известное_Наименование_Шрифта

в конце не забуть RemoveFontResource(...);

> 2 Может кто-нибудь знает где взять описание TTF желательно
> на русском?

На руском незнаю, а на английcком на сайте Microsoft есть. Где точно не помню - ищи.

Шрифты Найти похожие ветки