#define _HMG_OUTLOG 
  
 #include "hmg.ch" 
  
 REQUEST HB_CODEPAGE_UTF8, HB_CODEPAGE_RU1251 
  
 FUNCTION Main 
    LOCAL a1, a2 
  
    SET CODEPAGE TO UNICODE 
  
    a1 := { ' 1 | Līnijas ' , ' 2 | Rindās ' , ' 3 | Drukāt ' } 
    //a1 := { ' 1 | Один ' , ' 2 | Два ' , ' 3 | Три ' } 
    a2 := { ' 1 | Один - Uno' , ' 2 | Два - Dos' , ' 3 | Три - tres' } 
    a1 := &( hmg_upper(hb_valtoexp(a1)) ) 
  
    DEFINE WINDOW Form_1 ; 
       AT 0,0 ; 
       WIDTH 400 ; 
       HEIGHT 200 ; 
       TITLE 'ComboBox Demo' ; 
       MAIN 
  
       @ 20,20 COMBOBOX Combo_1 ; 
          WIDTH 150 ; 
          ITEMS a1 ; 
          VALUE 1 ; 
          ON ENTER {|| MsgInfo ( hb_ntos(This.Combo_1.ITEMHEIGHT)+CRLF+ ; 
                                 hb_ntos(This.Combo_1.Value)+CRLF+ ; 
                                         This.Combo_1.DisplayValue ) } ; // UPPERCASE ; 
          ITEMHEIGHT 21 ; 
          FONT 'Courier New' SIZE 12 
  
       DEFINE COMBOBOX Combo_2 
          ROW   20 
          COL   ( This.Combo_1.Col+This.Combo_1.Width + 10 ) 
          WIDTH 150 
          ITEMS a2 
          VALUE 1 
          ON ENTER {|cn| cn :=This.Name, MsgInfo ( hb_ntos(This.&(cn).ITEMHEIGHT)+CRLF+ ; 
                                 hb_ntos(This.&(cn).Value)+CRLF+ ; 
                                         This.&(cn).DisplayValue ) } 
          //LOWERCASE .T. 
          ITEMHEIGHT 17 
       END COMBOBOX 
  
    END WINDOW 
  
    CENTER WINDOW Form_1 
  
    ACTIVATE WINDOW Form_1 
  
 Return Nil