FiveTech Software tech support forums

in msginfo polish chars are ok

but in object print oPrn I don't have polish chars ( in view )

my source:
#include "Fivewin.ch"

REQUEST HB_LANG_PL852
REQUEST HB_LANG_PLMAZ
REQUEST HB_LANG_PLISO
REQUEST HB_LANG_PLWIN
REQUEST HB_CODEPAGE_PLMAZ
REQUEST HB_CODEPAGE_PLISO
REQUEST HB_CODEPAGE_PL852
REQUEST HB_CODEPAGE_PLWIN

FUNCTION MAIN()

LOCAL oWnd, oMenu


HB_LANGSELECT( "PLWIN" )
HB_SETCODEPAGE( "PLWIN" )

// HB_SETKEYCP("PLMAZ",INIT_CP)
// HB_SETDISPCP(INIT_CP,'PLMAZ',.t.)

MENU oMenu
MENUITEM "&Test"

MENU
MENUITEM "&Test1";
ACTION test1()
MENUITEM "&Test2";
ACTION MSGINFO( "Test z języka polskiego (ąćęłń󟿥ĆĘŁŃÓŹŻ)" )
ENDMENU
ENDMENU

DEFINE WINDOW oWnd;
MENU oMenu

ACTIVATE WINDOW oWnd ;
ON INIT oWnd:Center()


function test1()
PRINT oPrn PREVIEW
PAGE
oPrn:Say( 2, 2, "Test z języka polskiego (ąćęłń󟿥ĆĘŁŃÓŹŻ" )
ENDPAGE
ENDPRINT
return nil

You may need to implement a function of your own to properly convert the chars into the right ones:

oPrn:Say( 2, 2, FixText( "Test z języka polskiego (ąćęłń󟿥ĆĘŁŃÓŹŻ" ) )

where is the function FixText ?

I looked formy mistake

function test1()
PRINT oPrn PREVIEW
DEFINE FONT oFnt NAME "Arial CE" SIZE 0, -10 OF oPrn
PAGE
oPrn:Say( 2, 2, "Test z języka polskiego (ąćęłń󟿥ĆĘŁŃÓŹŻ)",oFnt )
ENDPAGE
ENDPRINT
return nil

Is it working fine now ?