HMGforum.com

Code: Select all

      WITH OBJECT MainMenu():New( "MainMenu" )
         :FontSize   := 16
         WITH OBJECT MenuPopup():New( 'File',, 'File' )
            WITH OBJECT MenuItem():New( 'ItemOpen' ,, 'Open'  , { || MsgInfo( 'Open'  ) } ); END WITH
            WITH OBJECT MenuItem():New( 'ItemClose',, 'Close' , { || MsgInfo( 'Close' ) } ); END WITH
            WITH OBJECT MenuPopup():New( 'PopUp',, 'PopUp' )
               WITH OBJECT MenuItem():New( 'Item1' ,, 'Open'  , { || MsgInfo( 'Open'  ) } ); END WITH
               WITH OBJECT MenuItem():New( 'Item2',, 'Close' , { || MsgInfo( 'Close' ) } ); END WITH
            END WITH
         END WITH
      END WITH

Code: Select all

      WITH OBJECT MainMenu():New( "MainMenu" )
         :FontSize   := 16
         WITH OBJECT MenuPopup():New( 'File',, 'File' )
          :FontSize   := 10
           WITH OBJECT MenuItem():New( 'ItemOpen' ,, 'Open'  , { || MsgInfo( 'Open'  ) } )
              :FontSize   := 8
           END WITH
         END WITH
      END WITH

Code: Select all

      WITH OBJECT MainMenu():New( "MainMenu" )
         WITH OBJECT MenuPopup():New( 'File',, 'File' )
            WITH OBJECT MenuItem():New( 'ItemOpen' ,, 'Open'  , { || MsgInfo( 'Open'  ) } ); END WITH
         END WITH
      END WITH

Code: Select all

      WITH OBJECT MainMenu():New( "MainMenu" )
         :FontSize := 16
         WITH OBJECT MenuPopup():New( 'File',, 'File' )
            WITH OBJECT MenuItem():New( 'ItemOpen' ,, 'Open'  , { || MsgInfo( 'Open'  ) } ); END WITH
         END WITH
      END WITH

Code: Select all

#include "hmg.ch"
#include "hbqtgui.ch"

static Form_1

Function Main

   HbQt_ErrorSys()

   WITH OBJECT Form_1 := MAINWINDOW():New( "Form_1" )
      :Row           := 10
      :Col           := 10
      :Width         := 1024
      :Height        := 630
      :Title         := "HMG4 demo change font menu"
      :Icon          := ":HMG_ICO"

     DEFINE TOOLBAR oToolBar1 BUTTONSIZE 120, 80 FONT "ms sans serif" SIZE 12 MOVEABLE .F.

         TOOLBUTTON oButton1 ;
            Caption 'Font Menu Main' ;
            picture 'open.png' ;
            ACTION  { || Form_1:MainMenu:FontSize ++ }
            tooltip 'Change font of <Menu Main>'

         TOOLBUTTON oButton2 ;
            Caption 'Font Menu File' ;
            picture 'open.png' ;
            ACTION  { || Form_1:MainMenu:ItemFile:FontSize ++ }
            tooltip 'Change font of Option <File>'

         TOOLBUTTON oButton3 ;
            Caption 'Font Menu Help' ;
            picture 'open.png' ;
            ACTION  { || Form_1:MainMenu:ItemHelp:FontSize ++ }
            tooltip 'Change font of Option <Help>'

      END TOOLBAR

      WITH OBJECT MainMenu():New( "MainMenu" )
         :FontSize  := 16
         WITH OBJECT MenuPopup():New( 'ItemFile',, 'File' )
           WITH OBJECT MenuItem():New( ,, 'Open'  , { || MsgInfo( 'Open'  ) } )
           END WITH
           WITH OBJECT MenuItem():New( ,, 'Save'  , { || MsgInfo( 'Save'  ) } )
           END WITH
         END WITH

         WITH OBJECT MenuPopup():New( 'ItemHelp',, 'Help' )
           WITH OBJECT MenuItem():New( ,, 'About'  , { || MsgInfo( 'About'  ) } )
           END WITH
         END WITH

      END WITH

END WITH

ACTIVATE WINDOW Form_1

return NIL