FUNCTION Main() 
 ... 
       :Event( 99, {|ow   | ow:Release()   } ) 
       // Tsb. Right click - context menu 
       :Event( 90, {|ow   | MenuReport(ow) } ) 
       // StatusBar 
       :Event( 91, {|ow   | ow:StatusBar:Say('... W A I T ...') } ) 
 ... 
       DEFINE TBROWSE oTabl  AT nY, nX  ALIAS cAlias  WIDTH nW  HEIGHT nH  CELL ; 
              TOOLTIP 'Right click - context menu'                              ; 
              COLUMNS {"FIRST", "LAST", "AGE", "STATE", "CITY", "INCOMING", "OUTLAY"} 
 ... 
          :bChange      := {|ob| ob:DrawFooters() } 
          :bRClicked    := {|p1,p2,p3,ob| p1:=p2:=p3, wPost(90, ob) } 
 ... 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION _ShowFormContextMenu( cForm, nRow, nCol, lCenter ) 
 *-----------------------------------------------------------------------------* 
    LOCAL xContextMenuParentHandle := 0, hWnd, aRow 
    
    DEFAULT nRow := -1, nCol := -1, lCenter := .F. 
    
    If .Not. _IsWindowDefined(cForm) 
       xContextMenuParentHandle := _HMG_xContextMenuParentHandle 
    Else 
       xContextMenuParentHandle := GetFormHandle(cForm ) 
    Endif 
    
    If xContextMenuParentHandle == 0 
       MsgMiniGuiError("Context Menu is not defined. Program terminated") 
    EndIf 
    
    lCenter := lCenter .or. ( nRow == 0 .or. nCol == 0 ) 
    hWnd    := GetFormHandle(cForm) 
    
    If lCenter                 
       If nCol == 0 
          nCol := int( GetWindowWidth (hWnd) / 2 ) 
       EndIf 
       If nRow == 0 
          nRow := int( GetWindowHeight(hWnd) / 2 ) 
       EndIf 
    ElseIf nRow < 0 .or. nCol < 0     
       aRow := GetCursorPos() 
       nRow := aRow[1] 
       nCol := aRow[2] 
    EndIf 
    
    TrackPopupMenu ( _HMG_xContextMenuHandle , nCol , nRow , xContextMenuParentHandle ) 
  
 RETURN Nil 
  
 *-----------------------------------------------------------------------------* 
 STATIC FUNC MenuReport( oWnd, aTxt, lPost, nRow, nCol, lCenter, nZeroLen ) 
 *-----------------------------------------------------------------------------* 
    LOCAL cWnd := oWnd:Name 
    LOCAL nItm := 0, cNam, cImg, i 
    LOCAL lDis := .F. 
    LOCAL bAct := {|| nItm := Val(This.Name) } 
  
    Default nZeroLen := 4, lPost := .T. 
    Default aTxt := { ; 
                      'Column report FIRST', ; 
                      'Column report LAST ', ; 
                      'Column report AGE  ', ; 
                      'Column report STATE', ; 
                      'Column report CITY ', ; 
                      'Column report STATE + Left(LAST, 1)', ; 
                      'Column report CITY + Left(LAST, 1) '  ; 
                    } 
  
    DEFINE CONTEXT MENU OF &cWnd 
       For i := 1 To len(aTxt) 
           cNam := StrZero(i, nZeroLen) 
           If  i > 9 
              cImg := Nil 
           Else 
              cImg := 'n' + hb_ntos(i) 
           EndIf 
           _DefineMenuItem( aTxt[ i ], bAct, cNam, cImg, .F., lDis, , , , .F., .F.) 
       NEXT 
       SEPARATOR 
       MENUITEM 'Exit'  ACTION NIL                     
    END MENU 
  
    _ShowFormContextMenu(cWnd, nRow, nCol, lCenter ) 
     
    DEFINE CONTEXT MENU OF &cWnd  
    END MENU 
    DO EVENTS 
  
    If nItm > 0 .and. lPost 
       oWnd:PostMsg(nItm) 
    EndIf 
     
 RETURN nItm 
 

  * Fixed: Problem with a showing of the additional information in the ErrorLog 
            at using of xHarbour compiler (introduced in the build 2.3.9). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\ShowDetailError) 
   * Fixed: Program crash at the exit from a Preview window in a graph printing 
            module at using of xHarbour compiler. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\Charts_3) 
   * Enhanced: Added the helpful C-level function GetLastError(). 
            Above function returns the error code of the last API function called. 
            Most API functions merely return a number saying that an error occured, 
            but not what kind of error. This function will return a universal error 
            code identifying the type of error that last occured. 
            Note that most functions set the code to 0 (success) if the function 
            completes successfully, erasing the previous error code. Therefore, 
            be sure to check this error code immediately after an error is found. 
            Suggested and contributed by user on the Russian HMG forum. 
            (see demo in folder \samples\Basic\COMMON_DIALOGS) 
   * Modified: The Spinner control supports the similar tooltip for the arrows as 
            well for an edit field. Above behavior is similar to DatePicker control. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\SPINNER) 
   * Modified: The minor optimizations for a MiniGUI core reducing in the some 
            functions: replace the expression hb_default( @<var>, <value> ) with 
            hb_defaultValue( <var>, <value> ). 
            It's useful for two main reasons: 
            1) we do not damage original parameter value; 
            2) if parameter is used only once then it's a little bit faster. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HBPrinter library v.2.44: 
            - Fixed: conflict with xHarbour internal class NUMERIC (nasty bug). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.23.0 (from 3.23.0dev). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * New: 'Get User Locale Numerics' sample. 
            Based upon a contribution of HMG user Edward. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\GetUserLocaleInfo) 
   * Updated: 'Check User Login in the transparent form' sample: 
            - retrieve the image sizes from an application's resource. 
            Requested by Verchenko Andrey <verchenkoag@gmail.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\Login_2) 
   * Updated: 'StatusBar with ProgressBar' sample: 
            - use the function SuppressKeyAndMouseEvents() for blocking 
              of the mouse and keyboard pressing in a loop. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\StatusBar_ProgressBar) 
   * Updated: 'DBF Header Info' sample: 
            - code cleaning for warnings with Harbour switch -w3. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\dbfHeaderInfo) 
   * Updated: 'Print Pie Graph' sample: updated the data for March 2018. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\GraphPrint) 
   * Updated: MAINDEMO (SYNTAX I) sample: 
            - updated a graph printing for compatibility with xHarbour. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see at folder \samples\Basic\MAINDEMO_(SYNTAX_I)) 
 

  * Fixed: Program crash at using of ANIMATERES User Component 
            (introduced in the build 17.11). 
            Problem was reported by Pierpaolo Martinello. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\AVI_Animation) 
   * New: Added possibility to set/get of the NON CLIENT attributes of windows 
            at runtime. 
            You can get the following properties with the functions: 
            - GetWindowBorderSize(); 
            - GetScrollBarSize(); 
            - GetTitleBarWidth() and GetTitleBarHeight(); 
            - GetMenuBarSize(). 
            You can set these properties with the commands: 
              SET WINDOW BORDER TO <nPixels> 
              SET SCROLLBAR [SIZES] TO <nPixels> 
              SET TITLEBAR [ WIDTH | HEIGHT ] TO <nPixels> 
              SET [STANDARD] MENU [SIZES] TO <nPixels> 
            Warning: Settings of the above attributes will affect on the all 
              opened windows of the external applications also. 
              Please use these possibilities with a caution. 
            Added the new commands to support a font tuning: 
              SET TITLEBAR FONT TO <fontname>, <fontsize> [BOLD] [CHARSET <n>] 
              SET [STANDARD] MENU FONT TO <fname>,<fsize> [BOLD] [CHARSET <n>] 
              SET STATUSBAR FONT TO <fontname>, <fontsize> [BOLD] [CHARSET <n>] 
              SET MESSAGEBOX FONT TO <fontname>, <fontsize> [BOLD] [CHARSET <n>] 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\SETNONCLIENT) 
   * Modified: A minor optimization in the Browse control: 
            - added static function RestoreWorkArea( <Alias> ). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\DATA_BOUND) 
   * Updated: Internal OOP: improved function Do_Obj(). 
            Suggested and contributed by Sergej Kiselev 
            (see demo in folder \samples\Advanced\APP_OOPREPORT) 
   * Updated: Config file of hbmk2 utility: 
            - obsolete HbOle library is not required for Harbour anymore. 
            It was replaced with using of the hbwin and xhb contrib libraries. 
            Remark: It was a postponed modification. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see minigui.hbc in folder \harbour\bin) 
   * Updated: PScript library source code (see in folder \Source\PageScript). 
            Contribution of Richard Visscher <richard/at/irvis.com> 
            (see demo in folder \samples\Advanced\PageScript and 
            help file PageScript.chm in folder \Doc) 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: 
            - New: added method SetKeyEvent() in TSColumn class. 
              Sample code: 
              oBrw:aColumns[nCol]:SetKeyEvent(VK_F2, {|og,vk| ProcessKey(og,vk)}) 
              Suggested and contributed by SergKis. 
            - Updated: minor corrections in the method ExcelOle(). 
              Requested by Verchenko Andrey <verchenkoag@gmail.com>. 
              Contributed by Grigory Filatov <gfilatov@inbox.ru> 
              (see demo in folder \samples\Advanced\Tsb_Brw2xml) 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.24.0dev (from 3.23.1). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2018-05-11 12:23): 
            * Updated: OpenSSL wrapper for using of the version 1.0.2n. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * Updated: HMGS-IDE v.1.4.3.3 Project Manager and Two-Way Visual Form Designer. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look for what's new at changelog.txt in folder \Ide) 
   * New: 'My Error Function' sample is based upon the Harbour DerError function. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\MyErrorFunc_2) 
   * New: 'Virtual Keyboard' sample. Based upon a contribution of Paulo Toledo. 
            (see in folder \samples\Basic\VIRTUALKBD) 
   * New: 'Process Terminator' sample is based upon the WMI command line 
            'process <ProcessId> delete'. 
            Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> 
            (see in folder \samples\Advanced\PROCESS_TERMINATOR) 
   * Updated: 'Calculator' sample: the numerous improvements. 
            Don't miss this very interesting expansion! 
            Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> 
            (see in folder \samples\Basic\Calc) 
   * Updated: OLE sample: 
            - New: added Excel 3D Chart creation; 
            - Modified: using of win_OleAuto class from hbwin library instead of 
              TOleAuto class from HbOle library. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\OLE) 
   * Updated: 'Bmp To Jpg' sample: 
            - use BosTaurus library for saving of a BMP image to JPEG format 
              instead of an external DLL. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\BmpToJpg) 
   * Updated: 'Ftp Client' sample based upon the TIP library: 
            - restyling of site Manager with ultimation of code for mask/unmask 
              password; 
            - added the ability to set up the initial folder on a server; 
            - added the ability to enable/disable a log file; 
            - added columns sort feature on a client side; 
            - added backward navigation on a server side. 
            Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> 
            (see in folder \samples\Advanced\FtpClient) 
   * Updated: 'Print List' samples: fixed a crash at Excel closing. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\print_list) 
   * Updated: The following samples are revised for compatibility with the recent 
            Minigui modifications: 
            - \samples\Basic\CONTACTOS_3; 
            - \samples\Advanced\CONTROL_PANEL; 
            - \samples\Advanced\GregorianCalendar; 
            - \samples\Advanced\ReadXLS; 
            - \samples\Advanced\TSBrowse; 
            - \samples\Applications\Daily; 
            - \samples\Applications\DBFview; 
            - \samples\Applications\MiniGraph. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru>