c_menu.c 
  
 HB_FUNC( MENUITEM_SETBITMAPS ) 
 { 
    HBITMAP himage1=0; 
    HBITMAP himage2=0; 
  
    himage1 = ( HBITMAP ) LoadImage( GetModuleHandle(NULL), hb_parc_t(3), IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR ); 
    if( himage1 == NULL ) 
       himage1 = ( HBITMAP ) LoadImage( 0, hb_parc_t(3), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE | LR_DEFAULTCOLOR ); 
  
    if( !newStyle ) 
    { 
       // BAA 04.04.2015   HBITMAP himage2; 
  
       himage2 = ( HBITMAP ) LoadImage( GetModuleHandle(NULL), hb_parc_t(4), IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR ); 
       if( himage2 == NULL ) 
          himage2 = ( HBITMAP ) LoadImage( 0, hb_parc_t(4), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE | LR_DEFAULTCOLOR ); 
  
       SetMenuItemBitmaps( ( HMENU ) hb_parnl(1), hb_parni(2), MF_BYCOMMAND, himage1, himage2 ); 
    } 
    else 
    { 
       MENUITEMINFO MenuItemInfo; 
       MYMENUITEM *pmyMenuItem; 
  
       MenuItemInfo.cbSize = sizeof( MENUITEMINFO ); 
       MenuItemInfo.fMask = MIIM_DATA; 
       GetMenuItemInfo( ( HMENU ) hb_parnl(1), hb_parni(2), FALSE, &MenuItemInfo ); 
  
       pmyMenuItem = ( MYMENUITEM * ) MenuItemInfo.dwItemData; 
       if( pmyMenuItem->hBitmap != NULL ) 
          DeleteObject( pmyMenuItem->hBitmap ); 
  
       pmyMenuItem->hBitmap = himage1; 
    } 
  
    hb_reta( 2 );  
    HB_STORNL( ( LONG ) himage1, -1, 1 );  
    HB_STORNL( ( LONG ) himage2, -1, 2 );  
 } 
  
 h_menu.prg 
 ... 
 *-----------------------------------------------------------------------------* 
 Procedure _DefineMenuItem ( caption , action , name , Image , checked , disabled , cMessage, font, check_image ) 
 *-----------------------------------------------------------------------------* 
    Local Controlhandle , mVar , k , id , ContextMenuHandle, ahImage:={0,0} 
 ... 
       If Valtype ( image ) != 'U' 
          ahImage := MenuItem_SetBitMaps ( _HMG_xMenuPopuphandle [_HMG_xMenuPopupLevel ] , id , image , '' ) 
       EndIf 
 ... 
       _HMG_aControlPicture             [k] :=  "" 
       _HMG_aControlContainerHandle     [k] :=  ahImage 
       _HMG_aControlFontName            [k] :=  '' 
 ... 
 h_controlmisc.prg 
 ... 
 *-----------------------------------------------------------------------------* 
 FUNCTION _EraseControl ( i, p ) 
 *-----------------------------------------------------------------------------* 
 ... 
 в DO CASE добавить обработку 
    CASE t == 'MENU' 
          IF hb_IsArray( _HMG_aControlContainerHandle  [ i ] ) .and. len( _HMG_aControlContainerHandle  [ i ] ) == 2 
             IF ! empty( _HMG_aControlContainerHandle  [ i ][ 1 ] ) 
                DeleteObject ( _HMG_aControlContainerHandle  [ i ][ 1 ] ) 
             ENDIF 
             IF ! empty( _HMG_aControlContainerHandle  [ i ][ 2 ] ) 
                DeleteObject ( _HMG_aControlContainerHandle  [ i ][ 2 ] ) 
             ENDIF 
          ENDIF 
 ... 
 

 
   * Fixed: Possible memory leak in the main/context/notify menu with 'Image' 
            clause. Problem was reported by Russian user SergKis. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see menudemo.prg in folder \samples\Basic\Menu) 
   * Enhanced: The ReadOnly property is supported in the function SetProperty() 
            for the Spinner control. 
            You can set/get this property at runtime: 
            - function syntax: 
              SetProperty ( Form, Control, 'ReadOnly', lState ) 
              GetProperty ( Form, Control, 'ReadOnly' ) 
            - pseudo-OOP syntax: 
              Form.Spinner.ReadOnly := lState 
              Form.Spinner.ReadOnly --> lState 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Enhanced: The ComboBox control with DisplayEdit clause supports a changing 
            of the ReadOnly property at runtime: 
            - function syntax: 
              SetProperty ( Form, Control, 'ReadOnly', lState ) 
            - pseudo-OOP syntax: 
              Form.ComboBox.ReadOnly := lState 
            Requested by Vianei Moreira de Lemos <vianeimoreira@gmail.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo2.prg in folder \samples\Basic\COMBO_4) 
   * Updated: DRAW GRAPH: correction of the default height of title and labels 
            for the font's size more than 10. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\Histogram) 
   * Updated: Changed DEFAULT TO command in MiniGUI core to the functions 
            hb_default()/__defaultNIL() and hb_defaultValue() for Harbour 
            requiring compatibility. It will set the value to the default one 
            even when the variable has any other type, not only NIL.  
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG:  
            - updated for xHarbour compatibility after a recent change. 
            Based upon a contribution of Ivanil Marcelino. 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.8.9 (from 3.8.8.3). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2015-04-09 00:20). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'Anchored Child window' sample. 
            Based upon a contribution of Pablo Cesar. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo2.prg in folder \samples\Basic\MoveWindow) 
   * New: 'Read a text from an another application' sample. 
            Contributed by Verchenko Andrey <verchenkoag@gmail.com>. 
            Revised by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\ExternalApp_3) 
   * Updated: 'Get DIR List' sample: pacified the warnings at prg level. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\DirList) 
   * Updated: 'Histogram' sample: added a print graph routine. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\Histogram) 
   * Updated: 'Simple DBU' sample: minor changes. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Applications\MiDBU) 
   * Updated: 'Process Killer' sample: minor changes. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Applications\PROCESS_KILLER) 
   * Updated: 'Sqlite browser' utility: added column's metadata handling. 
            Contributed by Janusz Pora <januszpora@onet.eu> 
            (see in folder \Utils\SqlDBU) 
 

  * Fixed: Old bug at the closing of Edit or Append splitboxed dialog 
            in a Browse control with <Alt+F4> hotkey pressing. 
            Problem was reported by Attila Kovacs <k1attila12@yahoo.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Fixed: Program crash at the modification of a column's header after 
            adding a new column in the Grid control. 
            Problem was reported by Gilbert Vaillancourt. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\ReadXLS) 
   * Fixed: Problem with assigning of the RichEditBox 'FontColor' property. 
            You can establish this propery at definition and modify at runtime: 
            - function syntax: 
              SetProperty ( Form, Control, 'FontColor', BLUE ) 
            - pseudo-OOP syntax: 
              Form.RichEditBox.FontColor := BLUE 
            Bug was reported by Gilbert Vaillancourt. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\Richedit) 
   * Changed: The HMG_HPDF library was moved from samples to folder Source\HMG_HPDF. 
            Based upon a contribution of S.Rathinagiri <srgiri@dataone.in>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\PDF_PRINT) 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.8.10dev (from 3.8.9). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2015-04-27 17:21). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'Check User Login in the transparent form' sample. 
            Based upon a contribution of Bicahi Esgici <esgici@gmail.com>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\Login_2) 
   * New: 'Test a mouse click on the one picture which is divided into 3 parts' sample. 
            Based upon a contribution of Verchenko Andrey <verchenkoag@gmail.com> 
            (see in folder \samples\Basic\Picture_Coords) 
   * New: 'ShellExecuteEx() function using' sample. 
            Based upon a contribution of Verchenko Andrey <verchenkoag@gmail.com> 
            (see in folder \samples\Advanced\ShellExec) 
   * Updated: 'InterNet State Checker' sample: 
            - using of a macro definition for calling of the DLL functions. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\INET_CHECKER)