Форум » GUI » Достал шрифт Courier New ... » Ответить

Достал шрифт Courier New ...

Andrey: Корявый какой то шрифт этот Courier New... Полазил по интернету, нашёл пару хороших типа DejaVu Sans Mono и PT Mono Bold - https://www.opennet.ru/opennews/art.shtml?num=33617 Только не нашёл ответ, на каких системах он точно уже установлен. У юзера такого фонта может и не быть и что делать ? Можно ли сделать на МиниГуи проверку нужного фонта и установку фонта в систему если его нет ? Насколько помню для установки фонта нужны права администратора. Как в МиниГуи запросить - есть ли права администратора запущенной программы или нет ?

Ответов - 11

Andrey: А как определить есть ли данный фонт в системе ? Делаю так: hFont := GetFontHandle( "DejaVu Sans Mono" ) // даст handle или 0 ? hFont Возвращает 0, хотя данный шрифт у меня установленю

gfilatov2002: Andrey пишет: как определить есть ли данный фонт в системе ? Ты уже интересовался этим здесь

Andrey: Да так и не сделал этого. В 2016 году это ещё было. gfilatov2002 пишет: DEFINE TOOLBAR TB1 BUTTONSIZE 50, 37 FONT iif(ascan(rr_GetFontNames(), {|x| x==cToolButtonFont }) > 0, cToolButtonFont, 'Arial') SIZE 8 FLAT BREAK А попроще можно, не в одну строчку ? Что такое FLAT, BREAK ?


gfilatov2002: Andrey пишет: не в одну строчку ? Конечно, можно function IsFontExist( cFontname ) return ( ascan(rr_GetFontNames(), {|x| x==cFontname}) > 0 )

Dima: WIN_ENUMFONTFAMILIES()

Andrey: Вроде получилась загрузка фонта, но почему то проверка фонта "Wingdings" в системе возращает .F. Почему, кто может объяснить ? Вот код: [pre2] ? IsFontExist( "Wingdings" )[/pre2]

Andrey: А как получить весь список установленных фонтов на компе ?

Dima: Andrey пишет: А как получить весь список установленных фонтов на компе ? Dima пишет: WIN_ENUMFONTFAMILIES()

gfilatov2002: Andrey пишет: проверка фонта "Wingdings" в системе возращает .F. Отправил исправленный вариант функции IsFontExist() по почте, добавил в эту функцию второй параметр nCharset. Этот параметр важен для определения шрифта Wingdings

Andrey: Всё вроде отлично получилось ! Спасибо ! Пример для библиотеки отправил на почту. Вопрос такой возник. Здесь на форуме используются разделители - квадратная скобка, наверное типа такого можно сделать в МиниГуи на кнопки, лабел - чтобы можно было разным шрифтом и цветом делать у себя в программах на ОДНОМ объекте ?

Andrey: На ХР фонты Wingdings содержат меньшее кол-во значков. Если я возьму файл фонтов Wingdings из 10, то там уже будет больше. При загрузке фонта к себе в программу AddFont("Wingdings") какой шрифт будет использоваться у меня в программе ? Имена то одинаковые ! Можно ли как то загрузить этот фонт под своим уникальным именем, типа "MyIcoFont" ?



полная версия страницы