Скачать: CL | DM;

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

← →
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 загляни.

---

← →
Rouse_ ©   (2004-07-28 23:50) [4]

пример:


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;

---

← →
Iconka ©   (2004-07-29 11:11) [5]

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


Если ты знаешь имя шрифта, то это легко:

AddFontResource(PChar(FontFileName));
Form1.Font.Name:= Известное_Наименование_Шрифта

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


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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c