Codepage xx850

[AUGE_OHR]

hi,

i have search for DE850 but not found
i have look onto c:\hmg.3.4.4\INCLUDE\i_lang.ch and c:\MiniGUI\Include\i_lang.ch ... nothing

when looking at HB_LANGSELECT() i saw

German 850 DE

are Codepage made from this how to inlcude "all"

---

HMG use

Code: Select all

hb_setcodepage("DEWIN")

and MinGUI

Code: Select all

HB_CDPSELECT( "DEWIN" )

so what is "Original harbour"

---

i found

"HB_CODEPAGE_DEWIN"
"HB_CODEPAGE_DE850"

and in FiveWin i saw

"HB_CODEPAGE_DE850M"
"HB_CODEPAGE_DEISO"

for "ES" i found this in FiveWin

"HB_CODEPAGE_ES850"
"HB_CODEPAGE_ES850C"
"HB_CODEPAGE_ES850M"
"HB_CODEPAGE_ESISO"
"HB_CODEPAGE_ESMWIN"
"HB_CODEPAGE_ESWIN"

Question :

are these harbour Constant
where do i find them
what is "xx850M"

---

Code: Select all

LOCAL aLangID   := { "EU"    ,;
                     "CS852" ,;
                     "CSISO" ,;
                     "CSKAM" ,;
                     "CA"    ,;
                     "EN"    ,;
                     "FR"    ,;
                     "GL"    ,;
                     "DE"    ,;
                     "DE850" ,;
                     "HE862" ,;
                     "HEWIN" ,;
                     "HU852" ,;
                     "HUCWI" ,;
                     "HUWIN" ,;
                     "IT"    ,;
                     "PL852" ,;
                     "PLISO" ,;
                     "PLMAZ" ,;
                     "PT"    ,;
                     "RO"    ,;
                     "RUWIN" ,;
                     "SRISO" ,;
                     "SR852" ,;
                     "ES"     }

i this have this.

Question : are 2 Sign like "DE" or "ES" -> "DEWIN" or "ESWIN"

this Code i add in Browser under F10

Code: Select all

FUNCTION SelecLang(cPath, cDBF, cWorkArea, cBrowse )
LOCAL cCodepage
LOCAL cExt := SP_cInxExt()
LOCAL cVia

   IF cExt = "NTX"
      cVia := "DBFNTX"
   ELSE
      cVia := "DBFCDX"
   ENDIF

   cCodepage := WinLang()
   IF !EMPTY(cCodepage)
      CLOSE (cDBF)
      USE (cPath+cDBF) VIA (cVia) EXCLUSIVE CODEPAGE (cCodepage)
      Domethod( cBrowse, "BrowserView", "Refresh" )
   ENDIF
RETURN NIL