Автор | Сообщение |
|
| постоянный участник
|
Пост N: 6540
Зарегистрирован: 12.09.06
|
|
Отправлено: 03.12.19 19:42. Заголовок: Достал шрифт Courier New ...
Корявый какой то шрифт этот Courier New... Полазил по интернету, нашёл пару хороших типа DejaVu Sans Mono и PT Mono Bold - https://www.opennet.ru/opennews/art.shtml?num=33617 Только не нашёл ответ, на каких системах он точно уже установлен. У юзера такого фонта может и не быть и что делать ? Можно ли сделать на МиниГуи проверку нужного фонта и установку фонта в систему если его нет ? Насколько помню для установки фонта нужны права администратора. Как в МиниГуи запросить - есть ли права администратора запущенной программы или нет ?
|
|
|
Ответов - 12
[только новые]
|
|
|
| постоянный участник
|
Пост N: 6541
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.12.19 14:58. Заголовок: А как определить ест..
А как определить есть ли данный фонт в системе ? Делаю так: hFont := GetFontHandle( "DejaVu Sans Mono" ) // даст handle или 0 ? hFont Возвращает 0, хотя данный шрифт у меня установленю
|
|
|
|
| moderator
|
Пост N: 1628
Зарегистрирован: 11.02.10
|
|
Отправлено: 04.12.19 15:59. Заголовок: Andrey пишет: как о..
Andrey пишет: цитата: | как определить есть ли данный фонт в системе ? |
| Ты уже интересовался этим здесь
|
|
|
|
| постоянный участник
|
Пост N: 6542
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.12.19 16:02. Заголовок: Да так и не сделал э..
Да так и не сделал этого. В 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 ?
|
|
|
|
| moderator
|
Пост N: 1629
Зарегистрирован: 11.02.10
|
|
Отправлено: 04.12.19 16:10. Заголовок: Andrey пишет: не в ..
Andrey пишет: Конечно, можно цитата: | function IsFontExist( cFontname ) return ( ascan(rr_GetFontNames(), {|x| x==cFontname}) > 0 ) |
|
|
|
|
|
| |
Пост N: 7144
Зарегистрирован: 17.05.05
|
|
Отправлено: 04.12.19 16:20. Заголовок: WIN_ENUMFONTFAMILIES..
WIN_ENUMFONTFAMILIES()
|
|
|
|
| постоянный участник
|
Пост N: 6543
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.12.19 17:55. Заголовок: Вроде получилась заг..
Вроде получилась загрузка фонта, но почему то проверка фонта "Wingdings" в системе возращает .F. Почему, кто может объяснить ? Вот код: ? IsFontExist( "Wingdings" )
|
|
|
|
| постоянный участник
|
Пост N: 6544
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.12.19 21:26. Заголовок: А как получить весь ..
А как получить весь список установленных фонтов на компе ?
|
|
|
|
| |
Пост N: 7145
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.12.19 21:43. Заголовок: Andrey пишет: А как..
Andrey пишет: цитата: | А как получить весь список установленных фонтов на компе ? |
| Dima пишет:
|
|
|
|
| moderator
|
Пост N: 1630
Зарегистрирован: 11.02.10
|
|
Отправлено: 05.12.19 22:43. Заголовок: Andrey пишет: прове..
Andrey пишет: цитата: | проверка фонта "Wingdings" в системе возращает .F. |
| Отправил исправленный вариант функции IsFontExist() по почте, добавил в эту функцию второй параметр nCharset. Этот параметр важен для определения шрифта Wingdings
|
|
|
|
| постоянный участник
|
Пост N: 6545
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.12.19 01:53. Заголовок: Всё вроде отлично по..
Всё вроде отлично получилось ! Спасибо ! Пример для библиотеки отправил на почту. Вопрос такой возник. Здесь на форуме используются разделители - квадратная скобка, наверное типа такого можно сделать в МиниГуи на кнопки, лабел - чтобы можно было разным шрифтом и цветом делать у себя в программах на ОДНОМ объекте ?
|
|
|
|
| постоянный участник
|
Пост N: 6546
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.12.19 10:58. Заголовок: На ХР фонты Wingding..
На ХР фонты Wingdings содержат меньшее кол-во значков. Если я возьму файл фонтов Wingdings из 10, то там уже будет больше. При загрузке фонта к себе в программу AddFont("Wingdings") какой шрифт будет использоваться у меня в программе ? Имена то одинаковые ! Можно ли как то загрузить этот фонт под своим уникальным именем, типа "MyIcoFont" ?
|
|
|
|
|
| постоянный участник
|
Пост N: 7157
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.12.21 09:16. Заголовок: Загружаю фонт к себе..
Загружаю фонт к себе в программу AddFont("PragmaticashadowcItalic.otf") AddFont("FontAwesome-Solid.otf") С каким именем они загружаются в МиниГуи ? Или нельзя через загрузку определить имя фонта и нужно знать как правильно называется фонт ?
|
|
|
|