|
#1
|
|||
|
|||
Шрифты
Помогите реализовать: надо проверить наличие определённого шрифта в системе и если его нет, то установить (шрифт с собой).
|
#2
|
||||
|
||||
Код:
function sfg(ds: string): boolean; var i: integer; begin Result:= false; for i := 0 to Screen.Fonts.Count-1 do if Screen.Fonts[i] = ds then Result:= true; end; procedure TForm1.FormCreate(Sender: TObject); begin if not sfg('myfont') then AddFontResource('myfont.ttf'); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Gakuro (15.12.2017)
|
#3
|
|||
|
|||
Спасибо, Alegum! Поясню свой вопрос: есть специфичные шрифты (например с буквой "ять") и есть книги, использующие такие шрифты.
|
#4
|
||||
|
||||
Ну и? В "книжках" может быть сноска на используемый шрифт, или даже как в epub-формате (посути это архивированные html странички) шрифт в ресурсах лежит, там и картинки хранятся, смотрим какой нужон и в зависимости от наличия грузим
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Спасибо, всё ОК. Загрузил сразу архив шрифтов и все дела!
|