Отправлено: 03.12.19 19:42. Заголовок: Достал шрифт Courier New ...

Корявый какой то шрифт этот Courier New...
Полазил по интернету, нашёл пару хороших типа DejaVu Sans Mono
и PT Mono Bold - https://www.opennet.ru/opennews/art.shtml?num=33617

Только не нашёл ответ, на каких системах он точно уже установлен.
У юзера такого фонта может и не быть и что делать ?
Можно ли сделать на МиниГуи проверку нужного фонта и установку фонта в систему если его нет ?
Насколько помню для установки фонта нужны права администратора.
Как в МиниГуи запросить - есть ли права администратора запущенной программы или нет ?

 Отправлено: 04.12.19 14:58. Заголовок: А как определить ест..

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

 Отправлено: 04.12.19 15:59. Заголовок: Andrey пишет: как о..

Andrey пишет:

цитата:

как определить есть ли данный фонт в системе ?

Ты уже интересовался этим здесь

 Отправлено: 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 ?

 Отправлено: 04.12.19 16:10. Заголовок: Andrey пишет: не в ..

Andrey пишет:

цитата:

не в одну строчку ?

Конечно, можно

цитата:

function IsFontExist( cFontname ) return ( ascan(rr_GetFontNames(), {|x| x==cFontname}) > 0 )

 Отправлено: 04.12.19 16:20. Заголовок: WIN_ENUMFONTFAMILIES..

WIN_ENUMFONTFAMILIES()

 Отправлено: 05.12.19 17:55. Заголовок: Вроде получилась заг..

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

      ?  IsFontExist( "Wingdings" )

 Отправлено: 05.12.19 21:26. Заголовок: А как получить весь ..

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

 Отправлено: 05.12.19 21:43. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

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

Dima пишет:

цитата:

WIN_ENUMFONTFAMILIES()

 Отправлено: 05.12.19 22:43. Заголовок: Andrey пишет: прове..

Andrey пишет:

цитата:

проверка фонта "Wingdings" в системе возращает .F.

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

 Отправлено: 06.12.19 01:53. Заголовок: Всё вроде отлично по..

Всё вроде отлично получилось ! Спасибо !
Пример для библиотеки отправил на почту.

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

 Отправлено: 06.12.19 10:58. Заголовок: На ХР фонты Wingding..

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

 Отправлено: 06.12.21 09:16. Заголовок: Загружаю фонт к себе..

Загружаю фонт к себе в программу

AddFont("PragmaticashadowcItalic.otf") 
          AddFont("FontAwesome-Solid.otf")

С каким именем они загружаются в МиниГуи ?
Или нельзя через загрузку определить имя фонта и нужно знать как правильно называется фонт ?