В общем-то ленту (как AppFrame) настраивать и не нужно.
Там либо настраиваемые кнопки-картинки с нужными операциями, либо понятное меню.
Настраивать надо окнам с содержанием, с которым идёт работа.
В Microsoft Office это есть (на примере OutLook):
Модератор: Дед Пахом
В общем-то ленту (как AppFrame) настраивать и не нужно.
В документации к SETFONT и PROP:Font чёрным по белому написано почему.Игорь Столяров писал(а): ↑05 Октябрь 2020, 7:36 Ожидания таковы, что текущий шрифт окна изменится, да и вообще-то размер окна тоже.
Почему не меняется размер шрифта окна ?
Да я то прочитал ... Но всё равно, мне не понятно, почему я не могу просто в динамике сменить шрифт окна
Наверно, окно ломается. Смысла никакого нет в этой операции.Игорь Столяров писал(а): ↑05 Октябрь 2020, 19:01Да я то прочитал ... Но всё равно, мне не понятно, почему я не могу просто в динамике сменить шрифт окна
(и всех контролов в нём, для которых не переопределён FONT()). Что это за целибат вообще такой ?
Ну как не нужно? Пункты меню и подписи к иконкам мелкие. Если нет иконок, то тоже всё мелко.Игорь Столяров писал(а): ↑05 Октябрь 2020, 17:08 В общем-то ленту (как AppFrame) настраивать и не нужно.
Вот это всё - очень относительно.
А все другие масштабы, к сожалению, приводят к размытости шрифта на светодиодных мониторах.
Убогий он в Windows 10.
Это относительно MS Sans Serif, а с Arial такая же.
Ещё раз спасибо. Очень приятный в работе прибамбас.
Код: Выделить всё
AnyFont.SetWindow PROCEDURE ...
...
self.inited = 1
ThisField# = 0 ! Перерисовка иконок после штатной отработки метода изменения шрифта
Loop
ThisField# = 0{Prop:NextField,ThisField#} ! По всем полям в окне
If ThisField# = 0 then Break
elsIf (ThisField#{Prop:InToolBar} <> True) and |
InList(ThisField#{Prop:Type},Create:Button,Create:Check,Create:Radio) and |
Clip(ThisField#{Prop:Icon}) <> ''
ThisField#{Prop:Icon} = ThisField#{Prop:Icon}
end
end
Нет. Автоматически от размера кнопки (как правило высоты Prop:Height).