Форум » GUI » Как сделать в меню изменение размера шрифта ?
	перенос

Автор

Сообщение

Andrey
постоянный участник
Пост 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

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

Не хочется делать отдельную форму для этого !

Ответов - 21 , стр: 1 2 All [только новые]

SergKis
постоянный участник
Пост 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") )

Andrey
постоянный участник
Пост N: 7004 Зарегистрирован: 12.09.06

Отправлено: 25.07.21 21:23. Заголовок: Не то ! Нужно чтобы ..

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

SergKis
постоянный участник
Пост N: 3798 Зарегистрирован: 17.02.12

Отправлено: 25.07.21 22:23. Заголовок: Andrey Определись, ..

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

цитата:

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

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

Andrey
постоянный участник
Пост N: 7005 Зарегистрирован: 12.09.06

Отправлено: 26.07.21 08:53. Заголовок: Вот так примерно нуж..

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

SergKis
постоянный участник
Пост 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 
 ...

Andrey
постоянный участник
Пост N: 7006 Зарегистрирован: 12.09.06

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

Классно ! Получилось изменение размера фонта !

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

Помню, давно что-то такое делал, но забыл уже.

SergKis
постоянный участник
Пост N: 3802 Зарегистрирован: 17.02.12

Отправлено: 26.07.21 18:21. Заголовок: Andrey пишет Только ..

Andrey пишет

цитата:

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

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

Dima
администратор
Пост 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)

Andrey
постоянный участник
Пост N: 7007 Зарегистрирован: 12.09.06

Отправлено: 26.07.21 22:59. Заголовок: Не надо менять свойс..

Не надо менять свойство фонта. мне нужно поменять вот здесь:

POPUP 'Change Font Size TAB - ХХ'

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

SergKis
постоянный участник
Пост N: 3803 Зарегистрирован: 17.02.12

Отправлено: 26.07.21 23:20. Заголовок: Andrey POPUP 'C..

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

Andrey
постоянный участник
Пост 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

Петр
постоянный участник
Пост N: 1693 Зарегистрирован: 09.10.06

Отправлено: 27.07.21 16:44. Заголовок: Andrey пишет: // К..

Andrey пишет:

цитата:

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

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

Andrey
постоянный участник
Пост N: 7009 Зарегистрирован: 12.09.06

Отправлено: 27.07.21 17:18. Заголовок: Петр пишет: Пример ..

Петр пишет:

цитата:

Пример basic\menu\menudemo1

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

SergKis
постоянный участник
Пост 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  
                                     })  
 ...

Dima
администратор
Пост N: 7418 Зарегистрирован: 17.05.05

Отправлено: 27.07.21 18:27. Заголовок: Петр пишет: Функция..

Петр пишет:

цитата:

Функция _ModifyMenuItem

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

Andrey
постоянный участник
Пост N: 7010 Зарегистрирован: 12.09.06

Отправлено: 27.07.21 18:55. Заголовок: Dima пишет: аж в 20..

Dima пишет:

цитата:

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

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

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

SergKis
постоянный участник
Пост 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  
            })  
 ...

Dima
администратор
Пост N: 7419 Зарегистрирован: 17.05.05

Отправлено: 27.07.21 19:20. Заголовок: Andrey пишет: Да ко..

Andrey пишет:

цитата:

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

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

Andrey
постоянный участник
Пост 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  
                                     })

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

SergKis
постоянный участник
Пост N: 3806 Зарегистрирован: 17.02.12

Отправлено: 28.07.21 16:32. Заголовок: Andrey В POPUP у ме..

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

Andrey
постоянный участник
Пост N: 7012 Зарегистрирован: 12.09.06

Отправлено: 28.07.21 20:56. Заголовок: SergKis пишет: В PO..

SergKis пишет:

цитата:

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

У меня тоже один раз меняется.

SergKis пишет:

цитата:

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

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

Ответов - 21 , стр: 1 2 All [только новые]

Ответ:

1 2 3 4 5 6 7 8 9

показывать это сообщение только модераторам
не делать ссылки активными

Имя, пароль:

зарегистрироваться

Форум » GUI » Как сделать в меню изменение размера шрифта ?

Тему читают:

- участник сейчас на форуме

- участник вне форума

Все даты в формате GMT 3 час. Хитов сегодня: 136
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет

Создай свой форум на сервисе Borda.ru
Форум находится на 59 месте в рейтинге
Текстовая версия