#include "resource_avi.prg" 

c:\MiniGui\BATCH\compile.bat demo4 /e /Z 
 Harbour 3.2.0dev (r1710180807) 
 Copyright (c) 1999-2016, http://harbour-project.org/ 
 Compiling 'demo4.prg'... 
 1 error 
 No code generated. 
 Compile error.

#ifndef _HMG_OUTLOG 
   #define _HMG_OUTLOG 
 #endif

 
           DEFINE LABEL Message 
               ROW            20 
               COL            nPictCol*2 + nPictHeight  
               WIDTH          nMaxWidth - nPictCol*2 - nPictWidth  
               HEIGHT         nMessHeight  
               VALUE          cMessage 
               TRANSPARENT    .T. 
               ACTION         MoveActiveWindow() 
               OnMouseHover   RC_CURSOR( "hand32" ) 
           END LABEL   // строка 280

       cFormat := REPL("!",35) 
        @ ... TEXTBOX Text_1 ...... ; 
           INPUTMASK cFormat ; 
           .... 

InputMask String (Numeric Textbox):  
 9 Displays digits 
 $ Displays a dollar sign in place of a leading space  
 * Displays an asterisk in place of a leading space  
 . Specifies a decimal point position  
 , Specifies a comma position  
  
 InputMask String (Non-Numeric Textbox):  
 9 Digits 
 A Alphabetic Characters 
 ! Alphabetic Characters (Uppercase Conversion) and Digits 
 (All other characters are included in text in the position indicated by the mask)  
  
 Format String (Allowed in Numeric Textbox Only): 
 C: Displays CR after positive numbers 
 X: Displays DB after negative numbers 
 ( : Encloses negative numbers in parentheses 
 E: Displays numbers in British format 
 N: Displays Alphabetic Characters and Digits

		@ 110,120 TEXTBOX text_4 ; 
 			VALUE '' ; 
 			INPUTMASK 'XXXXXXXXXXXX';

 
    STATIC nStatRet := 0 
    ..... 
    DEFINE CONTEXT MENU OF &cForm 
        FOR nI := 1 TO LEN(aMenuItem) 
           cMenu   := aMenuItem[nI] 
           cName   := "MyMenuItem" + HB_NtoS(nI) 
           bAction := &( '{|| nStatRet := VAL( "' + HB_NtoS(nI) + '" ) }' ) 
           cImg    := aMenuImg[nI] 
           lChk    := .F.                                 
           lDis    := .F. 
           _DefineMenuItem( cMenu, bAction, cName, cImg, lChk, lDis, , Font1 , , .F., .F. ) 
        NEXT 
        SEPARATOR                              
        MENUITEM  "Выход"  ACTION  {|| nStatRet := 0 } FONT Font2 IMAGE aMenuImg[nLen] 
    END MENU 
  
    _ShowContextMenu(cForm, nY, nX, .f. ) // ПОКАЗ ВЫПАДАЕЩЕГО МЕНЮ      
    InkeyGui(100) 
  
    ? nStatRet, VALTYPE(nStatRet)

 
 STATIC FUNC wMainStatusBar( nPos, oWn, nKy )    
 ... 
      aMdiChild := GetWndMdiChildAll( .T. ) 
      nItems    := Len( aMdiChild ) 
  
      If nItems > 0 
  
         PRIVATE nMsg := 0 
  
         aItems := {} 
         AEval(aMdiChild, {|ow| AAdd(aItems, { ow:Title, .T., .F., ow:GetProp('wMainMsg') }) }) 
         AEval(aItems   , {|ai,ni| aItems[ni][4] := 'm->nMsg := '+hb_ntos(ai[4]) }) 
         //                   text item               , image, disable, block 
         hb_AIns(aItems, 1, { 'WINDOWS IN OPERATION :', .F.  , .T.    , Nil }, .T.) 
         hb_AIns(aItems, 2, { ''                                            }, .T.) 
  
         nY := oMain:ClientHeight - oMain:StatusBar:Height * nItems 
         nX := oMain:ClientWidth  - oMain:StatusBar:Width(5) - ; 
                                    oMain:StatusBar:Width(4)  
         If WndContextMenu( nY, nX, aItems ) .and. m->nMsg > 0 
            oMain:PostMsg( m->nMsg ) 
         EndIf 
  
      EndIf 
 ... 
 там где у тебя 
 bAction := &( '{|| nStatRet := VAL( "' + HB_NtoS(nI) + '" ) }' ) 
 добавь 
         If HB_ISCHAR(bAction); bAction := &( '{|| '+bAction+' }' ) 
         Else 
 ... 
         EndIf 
 короче писать бкдет 
 

STATIC nStaticLang  
    ...... 
     Forma_Lang(cForm) 
  
     InkeyGui(10)  // menu работает через очередь ! 
   
     ?  nStaticLang  // вернулась из Forma_Lang(cForm) 
    .... 
  
    FUNCTION Forma_Lang(cForm) 
    ........ 
       DEFINE CONTEXT MENU OF &cForm 
        MENUITEM  "Русский / Russian"           ACTION  {|| nStaticLang := 1 }  FONT Font2  IMAGE aFlags[1] 
        MENUITEM  "Украинский / Ukrainian"      ACTION  {|| nStaticLang := 2 }  FONT Font2  IMAGE aFlags[2] 
        MENUITEM  "Белорусский / Byelorussian"  ACTION  {|| nStaticLang := 3 }  FONT Font2  IMAGE aFlags[3] 
        MENUITEM  "Казахский / Kazakh"          ACTION  {|| nStaticLang := 4 }  FONT Font2  IMAGE aFlags[4] 
        MENUITEM  "Английский / English"        ACTION  {|| nStaticLang := 5 }  FONT Font2  IMAGE aFlags[5] 
        SEPARATOR                              
        MENUITEM  "Удалить значение / Delete value" ACTION  {|| nStaticLang := 0 }  FONT Font1  
        SEPARATOR                              
        MENUITEM  "Выход / Exit"                 ACTION  {|| nStaticLang := -1 } FONT Font1  
    END MENU 
    ....

   PRIVATE nMsg      
    m->nMsg := 0 
    .... 
            bAction := &( '{|| m->nMsg := VAL( "' + HB_NtoS(nI) + '" ) }' ) 
    ....