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




Пост N: 7003
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 25.07.21 18:55. Заголовок: Как сделать в меню изменение размера шрифта ?


         DEFINE POPUP 'Tests-2' 
MENUITEM 'Change Font Size - 12' ACTION ( Form_1.tab_1.Fontsize := 12, SizeTest(nG) )
MENUITEM 'Change Font Size - 14' ACTION ( Form_1.tab_1.Fontsize := 14, SizeTest(nG) )
MENUITEM 'Change Font Size - 16' ACTION ( Form_1.tab_1.Fontsize := 16, SizeTest(nG) )
MENUITEM 'Change Font Size - 18' ACTION ( Form_1.tab_1.Fontsize := 18, SizeTest(nG) )
MENUITEM 'Change Font Size - 20' ACTION ( Form_1.tab_1.Fontsize := 20, SizeTest(nG) )
MENUITEM 'Change Font Size - 22' ACTION ( Form_1.tab_1.Fontsize := 22, SizeTest(nG) )
MENUITEM 'Change Font Size - 24' ACTION ( Form_1.tab_1.Fontsize := 24, SizeTest(nG) )
END POPUP

Можно ли сделать ОДНУ СТРОКУ в МЕНЮ для изменения размера фонта ?
Не хочется делать отдельную форму для этого !

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


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




Пост N: 3797
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 25.07.21 19:27. Заголовок: Andrey пишет Можно л..


Andrey пишет
 цитата:
Можно ли сделать ОДНУ СТРОКУ в МЕНЮ для изменения размера фонта ?


MENUITEM 'Change Font Size - 12' ACTION ( App.FontSize := 12, MsgBox(App.FontName+CRLF+hb_ntos(App.FontSize), "INFO") )

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




Пост N: 7004
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 25.07.21 21:23. Заголовок: Не то ! Нужно чтобы ..


Не то !
Нужно чтобы можно в GET или SPINNER задавать размер фонта.
Или в ComboBox задавать размер фонта.
Главное чтобы потом этот размер показывался в Контекстном меню или POPUP меню в одной строчке.
Вот примерно так:


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




Пост N: 3798
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 25.07.21 22:23. Заголовок: Andrey Определись, ..


Andrey
Определись, надо
 цитата:

сделать ОДНУ СТРОКУ в МЕНЮ для изменения размера фонта ?
или
Нужно чтобы можно в GET или SPINNER задавать размер фонта.
Или в ComboBox задавать размер фонта.


ничего не понял

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




Пост N: 7005
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 26.07.21 08:53. Заголовок: Вот так примерно нуж..


Вот так примерно нужно:


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




Пост N: 3799
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 26.07.21 09:58. Заголовок: Andrey пишет Вот так..


Andrey пишет
 цитата:
Вот так примерно нужно:


Смотри BASIC\Menu\demomenu.prg
 
Popup 'Test'
Item 'Item 1' Action MsgInfo ( 'Item 1' )
Item 'Item 2' Action MsgInfo ( 'Item 2' )

Popup 'Item 3'
Item 'Item 3.1' Action MsgInfo ( 'Item 3.1' )
Item 'Item 3.2' Action MsgInfo ( 'Item 3.2' )
... т.е.
This.Cargo := oKeyData() ; This.Cargo:nFontsize := 18
(This.Object):Event(10, {|ow| // Change Font Size TAB
Local nSize := ow:Cargo:nFontsize // This.Cargo:nFontsize
...
Return Nil
})
DEFINE POPUP 'Tests-2'
POPUP 'Change Font Size TAB - '+hb_ntos(This.Cargo:nFontsize)
MENUITEM 'Change Font Size - 12' ACTION ( ThisWindow.Cargo:nFontsize := 12, _wPost(10) )
MENUITEM 'Change Font Size - 14' ACTION ( ThisWindow.Cargo:nFontsize := 14, _wPost(10) )
MENUITEM 'Change Font Size - 16' ACTION ( ThisWindow.Cargo:nFontsize := 16, _wPost(10) )
MENUITEM 'Change Font Size - 18' ACTION ( ThisWindow.Cargo:nFontsize := 18, _wPost(10) )
MENUITEM 'Change Font Size - 20' ACTION ( ThisWindow.Cargo:nFontsize := 20, _wPost(10) )
MENUITEM 'Change Font Size - 22' ACTION ( ThisWindow.Cargo:nFontsize := 22, _wPost(10) )
MENUITEM 'Change Font Size - 24' ACTION ( ThisWindow.Cargo:nFontsize := 24, _wPost(10) )
END POPUP
...


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




Пост N: 7006
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 26.07.21 18:14. Заголовок: Классно ! Получилось..


Классно ! Получилось изменение размера фонта !
Только не получается изменить размер фонта в самом меню. Как это сделать ?
Помню, давно что-то такое делал, но забыл уже.

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




Пост N: 3802
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 26.07.21 18:21. Заголовок: Andrey пишет Только ..


Andrey пишет
 цитата:
Только не получается изменить размер фонта в самом меню. Как это сделать ?


Смотри свои примеры с MENU EXTENDED, там применяешь фонты, в main menu, наверно, не выйдет (или ф-ии применять\смотреть надо), не использую и тоже не помню

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




Пост N: 7417
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 26.07.21 19:22. Заголовок: Andrey пишет: Тольк..


Andrey пишет:

 цитата:
Только не получается изменить размер фонта в самом меню. Как это сделать ?


 
2020/04/30: HMG Extended Edition version 20.04.
* Enhanced: The FONT clause in the POPUP and MENUITEM commands supports
a font name for the fonts which were defined by the command
DEFINE FONT <font> FONTNAME <name>.
Contributed by Ivanil Marcelino <ivanil/at/linkbr.com.br>
(see demo in folder \samples\Advanced\MenuEx)


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




Пост N: 7007
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 26.07.21 22:59. Заголовок: Не надо менять свойс..


Не надо менять свойство фонта. мне нужно поменять вот здесь:
POPUP 'Change Font Size TAB - ХХ' 

где вместо ХХ - писать размер фонта из ThisWindow.Cargo:nFontsize или M->nPubTabFontSize !

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




Пост N: 3803
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 26.07.21 23:20. Заголовок: Andrey POPUP 'C..


Andrey
POPUP 'Change Font Size TAB - '+hb_ntos(M->nPubTabFontSize )
если через нее работаешь

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




Пост N: 7008
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 27.07.21 14:53. Заголовок: SergKis пишет: если..


SergKis пишет:

 цитата:
если через нее работаешь


Не работает.
Вот пример - https://cloud.mail.ru/public/EHYk%2FCZ2DQm15u

Вот исходник:
         DEFINE POPUP 'Tests-2' 
POPUP 'Change Font Size Tab - ' + hb_ntos( M->nPubTabFontSize )
MENUITEM '10' ACTION ( M->nPubTabFontSize := 10, _wPost(10) )
MENUITEM '12' ACTION ( M->nPubTabFontSize := 12, _wPost(10) )
MENUITEM '14' ACTION ( M->nPubTabFontSize := 14, _wPost(10) )
....
END POPUP

END MENU

(This.Object):Event(10, {|ow| // Change Font Size TAB
Local nSize := M->nPubTabFontSize
? "---- Event 10 --- nSize=", nSize
?? " NameWin=", ow:Name
DO EVENTS
Form_1.tab_1.Fontsize := nSize
SizeTest()
DO EVENTS
// Как изменить название в меню ? вот здесь ?????
// POPUP 'Change Font Size Tab - ' + hb_ntos( M->nPubTabFontSize )
Return Nil
})

SetTab_1() // building a TAB object

END WINDOW


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


Пост N: 1693
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 27.07.21 16:44. Заголовок: Andrey пишет: // К..


Andrey пишет:

 цитата:
// Как изменить название в меню ? вот здесь ?????



Функция _ModifyMenuItem
Пример basic\menu\menudemo1

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




Пост N: 7009
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 27.07.21 17:18. Заголовок: Петр пишет: Пример ..


Петр пишет:

 цитата:
Пример basic\menu\menudemo1


Спасибо БОЛЬШОЕ !

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




Пост N: 3804
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 27.07.21 18:00. Заголовок: Один раз меняет толь..


Один раз меняет только
 
POPUP 'Change Font Size Tab - ' + hb_ntos( M->nPubTabFontSize ) NAME I00
...
(This.Object):Event(10, {|ow| // Change Font Size TAB
Local nSize := M->nPubTabFontSize
Local cCaption := 'Change Font Size Tab - ' + hb_ntos(nSize)
? "---- Event 10 --- nSize=", nSize
?? " NameWin=", ow:Name
DO EVENTS
_ModifyMenuItem ( "I00", "Form_1", cCaption )

Form_1.tab_1.Fontsize := nSize
SizeTest()
DO EVENTS
Return Nil
})
...


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




Пост N: 7418
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 27.07.21 18:27. Заголовок: Петр пишет: Функция..


Петр пишет:

 цитата:
Функция _ModifyMenuItem


Андрей про неё уже спрашивал в Теме
аж в 2016 году , но видать снова забыл

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




Пост N: 7010
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 27.07.21 18:55. Заголовок: Dima пишет: аж в 20..


Dima пишет:

 цитата:
аж в 2016 году , но видать снова забыл


Да когда это было то...
А поиск по сайту забыл сделать ... Бывает так.

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




Пост N: 3805
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 27.07.21 19:15. Заголовок: Andrey Так работает..


Andrey
Так работает, ставит\снимает галочку
 
POPUP 'Change Font Size Tab ' NAME I00
ITEM '10' ACTION ( M->nPubTabFontSize := 10, _wPost(10) ) NAME I10
ITEM '12' ACTION ( M->nPubTabFontSize := 12, _wPost(10) ) NAME I12
ITEM '14' ACTION ( M->nPubTabFontSize := 14, _wPost(10) ) NAME I14
ITEM '16' ACTION ( M->nPubTabFontSize := 16, _wPost(10) ) NAME I16
ITEM '18' ACTION ( M->nPubTabFontSize := 18, _wPost(10) ) NAME I18
ITEM '20' ACTION ( M->nPubTabFontSize := 20, _wPost(10) ) NAME I20
ITEM '22' ACTION ( M->nPubTabFontSize := 22, _wPost(10) ) NAME I22
ITEM '24' ACTION ( M->nPubTabFontSize := 24, _wPost(10) ) NAME I24
ITEM '28' ACTION ( M->nPubTabFontSize := 28, _wPost(10) ) NAME I28
END POPUP
...
END MENU

_CheckMenuItem( "I"+hb_ntos(M->nPubTabFontSize), This.Name )

(This.Object):Event(10, {|ow| // Change Font Size TAB
Local nSize := M->nPubTabFontSize
Local nSold := Form_1.tab_1.Fontsize
Local cCaption := 'Change Font Size Tab - ' + hb_ntos(nSize)
? "---- Event 10 --- nSize=", nSize
?? " NameWin=", ow:Name
DO EVENTS
_UnCheckMenuItem( "I"+hb_ntos(nSold), This.Name )
_CheckMenuItem ( "I"+hb_ntos(nSize), This.Name )
//_ModifyMenuItem ( "I00", "Form_1", cCaption )
Form_1.tab_1.Fontsize := nSize
SizeTest()
DO EVENTS
Return Nil
})
...


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




Пост N: 7419
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 27.07.21 19:20. Заголовок: Andrey пишет: Да ко..


Andrey пишет:

 цитата:
Да когда это было то...


Было в этой жизни

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




Пост N: 7011
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 28.07.21 14:23. Заголовок: SergKis пишет: Один..


SergKis пишет:

 цитата:
Один раз меняет только


Опять засада .... Одноразовое меню получается...
А почему так ?

Если поменять другое меню, без выбора, то работает много раз.
            MENUITEM 'Log Change Font Size Tab - from 5 to 38' ACTION TestSizeFont() NAME MENU538 
....
// изменить название в меню
_ModifyMenuItem ( "MENU00" , "Form_1", cCapt )
_ModifyMenuItem ( "MENU538", "Form_1", cCapt )
Return Nil
})

Что-то в МиниГуи не работает.

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




Пост N: 3806
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 28.07.21 16:32. Заголовок: Andrey В POPUP у ме..


Andrey
В POPUP у меня меняет 1 раз, в MENUITEM несколько раз, но по мне вариант с галочкой в списке размеров фонта, показанный выше лучше смотрится

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




Пост N: 7012
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 28.07.21 20:56. Заголовок: SergKis пишет: В PO..


SergKis пишет:

 цитата:
В POPUP у меня меняет 1 раз,


У меня тоже один раз меняется.
SergKis пишет:

 цитата:
но по мне вариант с галочкой в списке размеров фонта, показанный выше лучше смотрится


Раз нет замены, то тогда придётся остановиться на галочке,
НО как быть с галочкой если используешь SET MENUSTYLE EXTENDED ?

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

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