/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
 #define _HMG_OUTLOG 
 #define PROGRAM   "Windows with different languages" 
  
 #include "hmg.ch" 
  
 REQUEST HB_CODEPAGE_RU1251, HB_CODEPAGE_RU866    // русский язык 
 REQUEST HB_CODEPAGE_UA1251, HB_CODEPAGE_UA866    // украинский язык 
 REQUEST HB_LANG_BEWIN                            // белорусский язык 
  
 /////////////////////////////////////////////////////////////////// 
 INIT PROCEDURE Sets_EVN() 
    LOCAL cFont := "DejaVu Sans Mono", nSize := 14 
    LOCAL cLog  := "_msg.log" 
  
    SET CODEPAGE TO RUSSIAN 
    SET LANGUAGE TO RUSSIAN 
  
    SET DATE  TO GERMAN // это и есть SET DATE FORMAT "DD.MM.YYYY" 
    SET EPOCH TO 2000 
    SET EXACT    ON 
    SET SOFTSEEK ON 
    SET CENTURY  ON 
    // ООП используем 
    SET OOP ON 
    // new log filename for debug output 
    _SetGetLogFile( cLog ) ; DELETEFILE(cLog) 
    // основной Default фонт программы 
    SET FONT TO cFont, nSize 
    // фонт для HMG_Alert() и Alert...() ф-ий 
    DEFINE FONT DlgFont FONTNAME cFont SIZE nSize  
  
 RETURN  
  
 /////////////////////////////////////////////////////////////////// 
 PROCEDURE Main(...) 
    LOCAL i 
  
    FOR i := 0 TO 6 
        mySetLang( i ) 
    NEXT 
  
 Return 
  
 FUNCTION mySetLang(nVal)       
    LOCAL cSetCP, cSelCdp, cLngSel 
    LOCAL o, cTmp, oIniLang, cIniLang 
  
    IF     nVal == 0 
       SET CODEPAGE TO ENGLISH      
       SET LANGUAGE TO ENGLISH        
    ELSEIF nVal == 1 
       SET CODEPAGE TO RUSSIAN 
       SET LANGUAGE TO RUSSIAN 
    ELSEIF nVal == 2 
       SET CODEPAGE TO UKRAINIAN      
       SET LANGUAGE TO UKRAINIAN      
    ELSEIF nVal == 3 
       SET LANGUAGE TO BYELORUSSIAN 
    ELSEIF nVal == 4 
       SET CODEPAGE TO GERMAN 
       SET LANGUAGE TO GERMAN 
    ELSEIF nVal == 5 
       SET CODEPAGE TO SPANISH 
       SET LANGUAGE TO SPANISH 
    ELSEIF nVal == 6 
       SET CODEPAGE TO ITALIAN 
       SET LANGUAGE TO ITALIAN 
    ENDIF 
  
    cSetCP  := hb_SetCodepage() 
    cSelCdp := hb_CdpSelect() 
    cLngSel := hb_LangSelect() 
  
    IF "be." $ cLngSel ; cTmp := lower("BEWIN") 
    ELSE               ; cTmp := lower(cSelCdp) 
    ENDIF 
    // --- Создадим ini языковый в .\RES, если ini нет 
    cIniLang := ".\_" + cTmp + ".ini" 
    IF ! hb_FileExists( cIniLang ) 
       oIniLang := TIniData():New( , .T., .T. ) 
       oIniLang:cIni := cIniLang 
       o := oIniLang 
       o:cCommentBegin := hb_LangName() 
       o:cMonth := oHmgData()           // [CMONTH] секция 
       FOR nI := 1 TO 12 
           o:cMonth:Set( StrZero(nI, 2), lower( NTOCMONTH( nI ) ) ) 
       NEXT  
       o:cDow := oHmgData()             // [CDOW] секция 
       FOR nI := 1 TO 7 
           o:cDow:Set( hb_ntos(nI), lower( NTOCDOW( nI ) ) ) 
       NEXT  
       o:Write() 
    ENDIF 
  
 RETURN Nil