On-line: awacli, гостей 0. Всего: 1 [подробнее..]
АвторСообщение
постоянный участник




Пост 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

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

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 11 [только новые]


постоянный участник




Пост N: 6541
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 04.12.19 14:58. Заголовок: А как определить ест..


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

Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1628
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 04.12.19 15:59. Заголовок: Andrey пишет: как о..


Andrey пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост 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 ?

Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1629
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 04.12.19 16:10. Заголовок: Andrey пишет: не в ..


Andrey пишет:

 цитата:
не в одну строчку ?


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

 цитата:

function IsFontExist( cFontname )

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



Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 7144
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 04.12.19 16:20. Заголовок: WIN_ENUMFONTFAMILIES..


WIN_ENUMFONTFAMILIES()

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6543
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 05.12.19 17:55. Заголовок: Вроде получилась заг..


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


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6544
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 05.12.19 21:26. Заголовок: А как получить весь ..


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

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 7145
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 05.12.19 21:43. Заголовок: Andrey пишет: А как..


Andrey пишет:

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


Dima пишет:

 цитата:
WIN_ENUMFONTFAMILIES()



Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1630
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 05.12.19 22:43. Заголовок: Andrey пишет: прове..


Andrey пишет:

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


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

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6545
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 06.12.19 01:53. Заголовок: Всё вроде отлично по..


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

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

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6546
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 06.12.19 10:58. Заголовок: На ХР фонты Wingding..


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

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 100
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет