Top Menu

[AUGE_OHR]

hi,

i try to find a Sample where i have a "Top" Menu ... i just found PopUp-Menu.

[dragancesu]

What do you mean when you say "Top Menu"?

[AUGE_OHR]

hi,

What do you mean when you say "Top Menu"?

i just mean a normal Windows App Menu under Titlebar.

Top_Menu.jpg (6.78 KiB) Viewed 1417 times

[AUGE_OHR]

hi,

i saw in Demo "Own Button"

Code: Select all

    DEFINE MAINMENU
      DEFINE POPUP "BTN &1"

so that horizontal Menu are what i mean with "Top Menu" ... but it is "xcommand Syntax"

---

i found c:\hmg.3.4.4\SOURCE\c_menu.c

Code: Select all

HB_FUNC ( CREATEMENU )
{
	HMG_retnl ((LONG_PTR) CreateMenu() );
}


HB_FUNC ( CREATEPOPUPMENU )
{
	HMG_retnl ((LONG_PTR) CreatePopupMenu() );
}

and in h_menu.prg

Code: Select all

   _HMG_SYSDATA [ 172 ] := CreateMenu()
   ...
	_HMG_SYSDATA [ 335 ] [ _HMG_SYSDATA [ 174 ] ] := CreatePopupMenu()

		_HMG_SYSDATA [1] [k] :=  "POPUP" 
		_HMG_SYSDATA [3]  [k] :=  _HMG_SYSDATA [ 172 ]   // Main Menu Handle   // Dr. Claudio Soto (July 2013)  Controlhandle   // This Not a Handle, this is lBoolean value
		_HMG_SYSDATA [4]  [k] :=  _HMG_SYSDATA [ 173 ]   // Form Parent Handle
		_HMG_SYSDATA [  7 ]  [k] :=  _HMG_SYSDATA [ 335 ] [_HMG_SYSDATA [ 174 ] ]   // Popup Menu Handle
		_HMG_SYSDATA [ 22 ]  [k] :=  _HMG_SYSDATA [ 335 ] [ _HMG_SYSDATA [ 174 ] ]   // Popup Menu Handle

		_HMG_SYSDATA [1] [k] := "MENU" 
		_HMG_SYSDATA [  3 ]  [k] :=   _HMG_SYSDATA [ 175 ]   // Popup Menu Handle  // Dr. Claudio Soto (July 2013)   Controlhandle   // This Not a Handle, this is lBoolean value
		_HMG_SYSDATA [  4 ]  [k] :=   _HMG_SYSDATA [ 176 ]   // _HMG_SYSDATA [ 176 ] := GetFormHandle ( Parent )   // Form Parent Handle
		_HMG_SYSDATA [  7 ]  [k] :=   _HMG_SYSDATA [ 175 ]   //_HMG_SYSDATA [ 175 ] := CreatePopupMenu()   // Popup Menu Handle 
		_HMG_SYSDATA [ 22 ]  [k] :=  0 

so that seem the different Style "POPUP" and "MENU"

---

in c:\hmg.3.4.4\SOURCE\c_menu.c i found

Code: Select all

HB_FUNC ( MENUITEM_SETBITMAPS )
{
   HMENU hMenu       = (HMENU)   HMG_parnl (1);
   INT   nID         = (INT)     hb_parni  (2);
   TCHAR *FileName1  = (TCHAR *) HMG_parc  (3);
   TCHAR *FileName2  = (TCHAR *) HMG_parc  (4);

   int   Transparent = hb_parl (5) ? 0 : 1;
                                                          //    ScaleStretch, Transparent, BackgroundColor,  AdjustImage,   TransparentColor
   HBITMAP hBitmap1 = HMG_LoadPicture (FileName1, -1, -1, NULL,            0, Transparent,              -1,            0,                 -1 );
   HBITMAP hBitmap2 = HMG_LoadPicture (FileName2, -1, -1, NULL,            0, Transparent,              -1,            0,                 -1 );

   SetMenuItemBitmaps (hMenu, nID, MF_BYCOMMAND, hBitmap1, hBitmap2);
}

so how to implement a Bitmap in MenuItem ( HMG Syntax)