FUNCTION GetVirtAll() // создали массивы со значениями для вирт. колонок 
    Local aDim1 := {}, aDim2 := {}, aDim3 := {}, aDim4 := {}, aDim5 := {}, aDim6 := {} 
    Local nOld := RecNo(), cAls := ALIAS(), nRec 
  
    GO TOP 
    DO WHILE !EOF() 
       nRec := RecNo() 
       AAdd(aDim1, nRec + 10) 
       AAdd(aDim2, nRec + 20) 
       AAdd(aDim3, nRec + 30) 
       AAdd(aDim4, nRec + 40) 
       AAdd(aDim5, nRec + 50) 
       AAdd(aDim6, nRec + 60) 
       SKIP 
    ENDDO 
    GOTO nOld 
  
 RETURN { aDim1, aDim2, aDim3, aDim4, aDim5, aDim6 } 
 ... 
    SELECT 0 
    cAls  := "_A_"+hb_ntos(Select())+"_" 
  
    BEGIN SEQUENCE WITH { |e|break(e) } 
       DbUseArea( .F., cRdd, cFile, cAls, lShared, , cCdp ) 
       lUse := ! NetErr() .and. Used() 
       nMsg := 0 
    END SEQUENCE 
  
    IF lUse 
       aField := Array(FCount()+6) 
       aField[1] := FieldName(1) 
       aField[2] := FieldName(1) 
       aField[3] := FieldName(1) 
       aField[4] := FieldName(1) 
       aField[5] := FieldName(1) 
       aField[6] := FieldName(1) 
       FOR i := 1 TO FCount() ; aField[ k+i ] := FieldName(i) 
       NEXT 
    ENDIF 
 ... 
       IF lUse 
  
          This.Cargo:aVirtualAll := GetVirtAll() 
  
          AAdd(aClr, { 6, {|c,n,b| c := n, iif( b:nCell == n, -CLR_BLUE, -RGB(128,225,225) ) } } ) 
          AAdd(aClr, {12, {|c,n,b| c := n, iif( b:nCell == n, -CLR_BLUE, -RGB(128,225,225) ) } } ) 
          x := 2 
          i := 1 
          y := GetWindowHeight(hSpl) + i 
          h := This.ClientHeight - y - i * 2 - 1 
          w := This.ClientWidth  - x * 2 
          This.Cargo:nSplitHeight := y 
  
          DEFINE TBROWSE oBrw AT y,x WIDTH w HEIGHT h CELL          ; 
                 ALIAS        ALIAS()                               ; 
                 FONT         (App.Object):Cargo:aFonts             ; 
                 BRUSH        { 255, 255, 230 }                     ; 
                 COLORS       aClr                                  ; 
                 ON GOTFOCUS  oCar:FocusedControl := "oBrw"         ; 
                 COLUMNS      aField                                ; 
                 FOOTER       .T.                                   ; 
                 FIXED        COLSEMPTY                             ; 
                 LOADFIELDS   GOTFOCUSSELECT                        ; 
                 COLNUMBER    { 6+1, 60 }                           ; 
                 ENUMERATOR   LOCK 
                 :Cargo := oKeyData() 
  
                 :nColOrder     :=  0 
                 :lNoChangeOrd  := .T. 
                 :nWheelLines   :=  1 
                 :lNoGrayBar    := .F. 
                 :lNoLiteBar    := .F. 
                 :lNoResetPos   := .F. 
                 :lNoPopUp      := .T. 
                 :lNoHScroll    := .T. 
                 :nCellMarginLR :=  1 
                 :nStatusItem   :=  0 
                 :lNoKeyChar    := .T.          // method :KeyChar disabled 
  
                 :lCheckBoxAllReturn := .T.     // Enter modify value oCol:lCheckBox 
                 :lPickerMode        := .F.     // формат даты нормальный 
  
                 :nHeightCell   := (App.Object):H1 + 3 
                 :nHeightHead   := :nHeightCell 
                 :nHeightFoot   := :nHeightCell 
  
                 :SetDeleteMode( .T., .F., {|rec,obr| DelRecords(rec, obr) }, ; 
                                           {|obr| obr:Cargo:nRecnoDraw := 0, obr:DrawSelect() } ) 
  
                 FOR i := 1 TO Len(:aColumns) 
                     o := :aColumns[ i ] 
                     IF o:cName == "ORDKEYNO"; EXIT 
                     ENDIF 
                     o:cAlias   := :cAlias 
                     o:Cargo    := This.Cargo:aVirtualAll[ i ]       // массив виртуальных данных 
                     o:cName    := 'VIRT'+hb_ntos(i) 
                     o:cHeading := "("+hb_ntos(i)+")" 
                     o:cFooting := "" 
                     o:cPicture := Nil 
                     o:bData    := {|| Nil } 
                     o:bValue   := {|u,obr,ncol,ocol| 
                                     Local nrec := (obr:cAlias)->( RecNo() ) 
                                     u := ocol:Cargo[nrec]  // вирт. значение 
                                     Return u 
                                   } 
                     o:nAlign    := DT_CENTER 
                     o:nFAlign   := DT_CENTER 
                     o:cField    := "" 
                     o:cFieldTyp := "N" 
                     o:nFieldLen := 5 
                     o:nWidth    := o:ToWidth(o:nFieldLen) 
                 NEXT 
 ... 
 

 
 #include "minigui.ch" 
 #include "TSBrowse.ch" 
  
 #translate dbcreate(<file>, <struct>) => hb_dbcreatetemp(<file>, <struct>) 
  
 PROCEDURE main 
  
    LOCAL i, br_zaw 
  
    dbCreate( 'test', { { 'c1', 'C', 30, 0 }, ; 
       { 'n1', 'N', 12, 2 } } ) 
  
    IF SELECT( 'test' ) == 0 
       dbUseArea( .T.,, 'test' ) 
    ENDIF 
    FOR i := 1 TO 100 
       test->( dbAppend() ) 
       test->c1 := Str( i ) 
       test->n1 := test->( RecNo() ) 
    NEXT 
    test->( dbGoTop() ) 
  
  
    DEFINE WINDOW Form1 ; 
       AT 0,0 ; 
       WIDTH 640 ; 
       HEIGHT 480 ; 
       TITLE "HMG Example of Context Menu" ; 
       MAIN ; 
       FONT 'Tahoma' SIZE 9 
  
  
  
  
       DEFINE TBROWSE oBrw AT 15, 10 OF Form1 ALIAS "test" WIDTH 450 HEIGHT 330  
  
          ADD COLUMN TO oBrw DATA {|| test->c1 } ALIGN DT_LEFT, DT_CENTER, DT_CENTER  TITLE 'C!' SIZE 150  
          ADD COLUMN TO oBrw DATA {|| test->n1 } ALIGN DT_RIGHT, DT_CENTER, DT_CENTER TITLE 'N1' SIZE 100 
  
  
  
       END TBROWSE 
       DEFINE BUTTON B 
          ROW 350 
          COL 10 
          CAPTION 'Set BUTTON' 
          ACTION ( MsgInfo("Button") ) 
       END BUTTON 
       DEFINE CONTEXT MENU CONTROL oBrw OF Form1 
          ITEM "Item 1 from TBROWSE"       ACTION Window2() 
       END MENU 
       DEFINE CONTEXT MENU CONTROL B OF Form1 
          ITEM "Item 1 from BUTON"       ACTION Window2() 
       END MENU 
    END WINDOW 
  
    CENTER WINDOW Form1 
  
    ACTIVATE WINDOW Form1 
  
 Return Nil 
 func Window2() 
        DEFINE WINDOW Form2 ; 
                 AT 10,10 ; 
                 WIDTH 400  ;  
                 HEIGHT 400 ; 
 		        TITLE "HMG Example of Context Menu in two windows" ; 
 		        ICON "ACON_MAIN" ; 
                 MODAL  
        ON KEY ESCAPE ACTION  ThisWindow.Release 
 	DEFINE CONTEXT MENU OF Form2 
 	            ITEM "Item 2"       ACTION MsgInfo("oK")  
        END MENU 
    END WINDOW 
  
    CENTER WINDOW Form2 
  
    ACTIVATE WINDOW Form2 
  
 Return Nil	    
 

 
 // Demo Context menu 
 #include "minigui.ch"  
 #include "TSBrowse.ch"  
   
 #translate dbcreate(<file>, <struct>) => hb_dbcreatetemp(<file>, <struct>)  
   
 PROCEDURE main  
   
    LOCAL i, br_zaw  
  
    SET OOP ON 
   
    dbCreate( 'test', { { 'c1', 'C', 30, 0 }, ;  
       { 'n1', 'N', 12, 2 } } )  
   
    IF SELECT( 'test' ) == 0  
       dbUseArea( .T.,, 'test' )  
    ENDIF  
    FOR i := 1 TO 100  
       test->( dbAppend() )  
       test->c1 := Str( i )  
       test->n1 := test->( RecNo() )  
    NEXT  
    test->( dbGoTop() )  
   
   
    DEFINE WINDOW Form1 ;  
       AT 0,0 ;  
       WIDTH 640 ;  
       HEIGHT 480 ;  
       TITLE "HMG Example of Context Menu" ;  
       MAIN ;  
       FONT 'Tahoma' SIZE 9  
   
       (This.Object):Event(1, {|| Window2() } ) 
   
   
       DEFINE TBROWSE oBrw AT 15, 10 OF Form1 ALIAS "test" WIDTH 450 HEIGHT 330   
   
          ADD COLUMN TO oBrw DATA {|| test->c1 } ALIGN DT_LEFT, DT_CENTER, DT_CENTER  TITLE 'C!' SIZE 150   
          ADD COLUMN TO oBrw DATA {|| test->n1 } ALIGN DT_RIGHT, DT_CENTER, DT_CENTER TITLE 'N1' SIZE 100  
   
   
   
       END TBROWSE  
       DEFINE BUTTON B  
          ROW 350  
          COL 10  
          CAPTION 'Set BUTTON'  
          ACTION ( MsgInfo("Button") )  
       END BUTTON  
       DEFINE CONTEXT MENU CONTROL oBrw OF Form1  
          ITEM "Item 1 from TBROWSE"     ACTION _wPost(1) //Window2()  
       END MENU  
       DEFINE CONTEXT MENU CONTROL B OF Form1  
          ITEM "Item 1 from BUTON"       ACTION _wPost(1) //Window2()  
       END MENU  
    END WINDOW  
   
    CENTER WINDOW Form1  
   
    ACTIVATE WINDOW Form1  
   
 Return Nil  
 func Window2()  
        DEFINE WINDOW Form2 ;  
                 AT 10,10 ;  
                 WIDTH 400  ;   
                 HEIGHT 400 ;  
              TITLE "HMG Example of Context Menu in two windows" ;  
              ICON "ACON_MAIN" ;  
                 MODAL   
        ON KEY ESCAPE ACTION  ThisWindow.Release  
        DEFINE CONTEXT MENU OF Form2  
           ITEM "Item 2"       ACTION _wPost(1) //MsgInfo("oK")   
        END MENU  
  
       (This.Object):Event(1, {|| MsgInfo("OK!") } ) 
  
    END WINDOW  
   
    CENTER WINDOW Form2  
   
    ACTIVATE WINDOW Form2  
   
 Return Nil