DEFINE WINDOW _InPlaceEdit ; 
          AT This.CellRow + GridRow - _HMG_aControlRow [ i ] - 1 , This.CellCol + GridCol - _HMG_aControlCol [ i ] + 2 ; 
          WIDTH This.CellWidth ; 
          HEIGHT This.CellHeight + 6 + Ldelta ; 
          MODAL ; 
          NOCAPTION ; 
          NOSIZE 
  
       ON KEY CONTROL + U ACTION iif( _IsWindowActive( '_InPlaceEdit' ), ; 
          _InPlaceEdit.Control_1.Value := iif( ControlType == 'L', iif ( CellData , 1 , 2 ), CellData ), NIL ) 
       ON KEY RETURN ACTION iif( _IsWindowActive( '_InPlaceEdit' ), ; 
          _InPlaceEditOk ( i , _InPlaceEdit.Control_1.Value , aValid , CellColIndex , ; 
          sFieldName , _GridWorkArea , aValidMessages , lock , ControlType , aInputItems ), NIL ) 
       ON KEY ESCAPE ACTION ( _HMG_IPE_CANCELLED := .T. , iif( lock == .T. , dbUnlock(), NIL ) , ; 
          iif( _IsWindowActive( '_InPlaceEdit' ), _InPlaceEdit.Release, NIL ) ) 
  
       IF lInputItems == .T. 
  
          // Fill Items Array 
          AEval( aInputItems [ CellColIndex ] , { |p| AAdd ( aItems , p [1] ) } ) 
          // Fill Values Array 
          AEval( aInputItems [ CellColIndex ] , { |p| AAdd ( aValues , p [2] ) } ) 
  
          r := AScan ( aValues , CellData ) 
  
          DEFINE COMBOBOX Control_1 
            ROW 0 
            COL 0 
            ITEMS aItems 
            WIDTH This.CellWidth 
            VALUE iif ( Empty( r ) , 1 , r ) 
            FONTNAME _hmg_aControlFontName [ i ] 
            FONTSIZE _hmg_aControlFontSize [ i ] 
            ON LISTDISPLAY Eval( bOnDisplay ) 
            ON LISTCLOSE Eval( bOnCloseUp ) 
          END COMBOBOX 
 

 
 #include <minigui.ch> 
 #include "tsbrowse.ch" 
  
  
 REQUEST DBFCDX , DBFFPT 
  
 REQUEST HB_CODEPAGE_RU866 
 REQUEST HB_CODEPAGE_RU1251 
  
 FUNCTION Main 
 Local nArea, oBrw 
 Local aKRANK1 := {}, aKRANK2 := {}, aKRANK3 := {} 
  
   hb_SetCodepage("RU1251") 
  
    SET DELETED ON 
  
    SET DATE BRITISH 
    SET CENTURY ON 
    SET EPOCH TO 1925 
    SET BROWSESYNC ON 
      
    PRIVATE TBROWSE_1 
  
    USE INFEKZII  Via "DBFCDX" NEW CODEPAGE 'RU866' 
    nArea := select() 
    dbEval({|| aAdd(aKRANK1, (nArea)->NAME),  ; 
               aAdd(aKRANK2, (nArea)->NAME),  ; 
               aAdd(aKRANK3, (nArea)->NAME) }) 
    GO TOP 
  
    USE MIBLP     Via "DBFCDX" NEW CODEPAGE 'RU866' 
  
    DEFINE WINDOW FrmGL AT 0, 0 WIDTH 650 HEIGHT 578 MAIN 
  
      DEFINE TBROWSE TBROWSE_1      AT  30, 10 ;  
             WIDTH  This.ClientWidth  - 10 * 2 ;  
             HEIGHT This.ClientHeight - 30 * 2 ;  
             COLSIZES 50,130,130,130,130,130   ;  
             WORKAREA 'MIBLP'                  ;  
             CELL                              ; 
             COLUMNS 'CODE','MIBP','KRANK1','KRANK2','KRANK3' 
  
         :LoadFields(.T.)       // Edit 
  
         :nClrLine    := COLOR_GRID 
         :nWheelLines := 1 
  
         :SetColor( { CLR_FOCUSB }, { { |nAt,nNr,oBr| nAt := Nil, ; 
                  If( oBr:nCell == nNr, RGB(166, 202, 240), RGB(220, 220, 220) ) } } ) 
           
         AEval( :aColumns, {|oCol| oCol:lFixLite := .T.,           ; 
                                   oCol:lOnGotFocusSelect := .T.} ) 
  
 //        :GetColumn("CODE"):lEdit := .F. 
  
         :SetData('KRANK1', , aKRANK1) 
         :SetData('KRANK2', , aKRANK2) 
         :SetData('KRANK3', , aKRANK3) 
  
      END TBROWSE   
  
    END WINDOW 
  
    FrmGL.Center 
    FrmGL.Activate 
  
 RETURN( NIL )