Отобразить в Label текст неустановленным на компе шрифтом

← →
Дмитрий_177 (2006-03-21 17:59) [0]

Вобщем скачал я на компъютер шрифт с расширением *.ttf поместил его в папку Fonts, в папке где лежит моя программа. Вот хотел бы его какнибудь в Label-е отобразить, точнее текст таким шрифтом, не устанавливая его на компъютере. Как так можно сделать?

← →
TStas © (2006-03-21 18:15) [1]

А разве он подобным образом не установился? Может, стоило перезапустить Дельфи, чтобы они шрифт увидели

← →
clickmaker © (2006-03-21 18:16) [2]

AddFontResourceEx

← →
Дмитрий_177 (2006-03-21 18:19) [3]

я имел ввиду папку Fonts не в папке Windows, а в своей папке Fonts, она находится где exe-файл программы

← →
Дмитрий_177 (2006-03-21 18:52) [4]

делаю я так: поправьте если неправильно что-то... Я там с флажками не очень разобрался, но думаю что FR_PRIVATE нужно а не FR_NOT_ENUM. Вот я "загрузил" шрифт, а как мне его Label.Font.Name присвоить? случаянно не так Label.Font.Name:="cristal";?
FontPath: String; procedure TForm1.FormCreate(Sender: TObject); begin FontPath := ExtractFilePath(Application.ExeName) + "Fonts\cristal.ttf"; if AddFontResourceEx(PChar(FontPath), FR_PRIVATE, 0) <> 0 then begin end; Label1.Caption := FormatDateTime("tt", Time); end; procedure TForm1.FormDestroy(Sender: TObject); begin RemoveFontResourceEx(PChar(FontPath), FR_PRIVATE, 0); end;

← →
clickmaker © (2006-03-21 18:53) [5]

> случаянно не так Label.Font.Name:="cristal";

если это его имя, то так

← →
Дмитрий_177 (2006-03-21 18:55) [6]

не работает почему-то...(((

← →
clickmaker © (2006-03-21 18:58) [7]

имя шрифта не всегда = имени файла

← →
Дмитрий_177 (2006-03-21 18:59) [8]

т.е. так у меня не работает почему-то:
FontPath: String; procedure TForm1.FormCreate(Sender: TObject); begin FontPath := ExtractFilePath(Application.ExeName) + "Fonts\cristal.ttf"; if AddFontResourceEx(PChar(FontPath), FR_PRIVATE, 0) <> 0 then Label1.Font.Name := "cristal"; Label1.Caption := FormatDateTime("tt", Time); end; procedure TForm1.FormDestroy(Sender: TObject); begin RemoveFontResourceEx(PChar(FontPath), FR_PRIVATE, 0); end;

← →
Дмитрий_177 (2006-03-21 19:00) [9]

я и так попробовал, всеравно... Label1.Font.Name := "cristal.ttf";

← →
clickmaker © (2006-03-21 19:09) [10]

> Дмитрий_177 (21.03.06 19:00) [9]

ну если ты его просто откроешь даблкликом, то что у тебя в окне инфы о шрифте?

← →
Дмитрий_177 (2006-03-21 19:10) [11]

я разобрался ))) спасибо ))

← →
Дмитрий_177 (2006-03-21 19:12) [12]

у меня его ACDSee открывала... и там ничего небыло, просто как пример как им будет написано слово "Font" этим шрифтом, как фотка и все... я сейчас скачал программу для просмотра шрифтов, и там все увидел )))

> сейчас скачал программу для просмотра шрифтов

дык винда сама умеет. По даблклику-то

← →
Дмитрий_177 (2006-03-21 21:47) [14]

по даблклику-то в ACDSee и открывается ))))

HKEY_CLASSES_ROOT\ttffile\shell\open\command
(Default) = %SystemRoot%\System32\fontview.exe %1

Отобразить в Label текст неустановленным на компе шрифтом Найти похожие ветки