New FWH 24.09

[nageswaragunupudi]

Italy:
850,1252

Spain also:
850,1252
Thanks to Mr. Antonio

It will be useful if know this information for installations in UK,USA, etc.
If Mr. Tim Stone happens to see this posting I will be grateful if he can provide the results of

Code: Select all  Expand view  RUN

? GetOEMCP(), GetACP()

Subject to confirmation, I presume:
UK: 850,1262
USA 437,1262

[Horizon]

Hi Mr. Rao,

Code: Select all  Expand view  RUN

? GetOEMCP(), GetACP()

Türkiye:
854, 1254

[nageswaragunupudi]

Hi Mr. Rao,

Code: Select all  Expand view  RUN

? GetOEMCP(), GetACP()

Türkiye:
854, 1254

Thanks.
1) Please once again give me 3 or 4 unique to Turkish characters both their OEM asc values and corresponding ANSI asc values.

2) Can you please check again? Is it 854 or 857 ?
Please see this webpage:
https://learn.microsoft.com/en-us/windo ... dentifiers

Here all Windows codepages botj OEM(DOS) and ANSI codepages are listed,
I could not find 854 there but I found:

Code: Select all  Expand view  RUN

857 ibm857  OEM Turkish; Turkish (DOS)

That is the reason I am checking with you once again

[Horizon]

Hi Mr. Rao,

Code: Select all  Expand view  RUN

? GetOEMCP(), GetACP()

Türkiye:
854, 1254

Thanks.
1) Please once again give me 3 or 4 unique to Turkish characters both their OEM asc values and corresponding ANSI asc values.

2) Can you please check again? Is it 854 or 857 ?
Please see this webpage:
https://learn.microsoft.com/en-us/windo ... dentifiers

Here all Windows codepages botj OEM(DOS) and ANSI codepages are listed,
I could not find 854 there but I found:

Code: Select all  Expand view  RUN

857 ibm857  OEM Turkish; Turkish (DOS)

That is the reason I am checking with you once again

Hi Mr. Rao,

You are right. 857
I wrote it wrong when I wrote it.

Code: Select all  Expand view  RUN

   Character   Ascii
1   Ğ            208
2   Ş            222
3   İ            221
4   ğ            240
5   ş            254
6   ı            253

[karinha]

Masters Nages, Enrico, see if it helps: compile with a different version of FWH24.09 pls.

Masters Nages, Enrico, mira si ayuda: compila con una versión diferente de FWH24.09 por favor.

Code: Select all  Expand view  RUN

//-> C:\FWH..\SAMPLES\TABISO.PRG - Tabela: ISO 8859-1 - 24/01/2020
//-> MODIFIED IN 24/10/2024 - Kapiabafwh@gmail.com

// http://www.pctoledo.com.br/forum/viewto ... =4&t=23861

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL oBar

   DEFINE WINDOW oWnd TITLE "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
      ACTION( TABISO() ) GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp"    FLAT ;
      ACTION( oWnd:End() ) TOOLTIP "Exit this app" GROUP

   SET MESSAGE OF oWnd TO "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br" ;
      NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd MAXIMIZED

RETURN NIL

FUNCTION TABISO()

   LOCAL x, i, j

   x := 10
   i := 1

   WHILE i <= 255

      SYSREFRESH()

      FOR j := 3 TO 42

         @ j, x SAY RIGHT( STR( i ), 3 ) + SPACE(1) + CHR( i++ ) OF oWnd

         IF i > 255

           EXIT

         ENDIF

      NEXT j

      x += 10

   ENDDO

RETURN NIL

// FIM / END
 

Regards, saludos.

[nageswaragunupudi]

We do not need any help.
We are very clear.
Please wait for our posts and then only please respond.
Btw, OSP 8859-1 is the same as PTISO, which is similar to 1252 ANSI codepage.