problem with polish chars in print

problem with polish chars in print

Postby kajot » Sat Nov 10, 2007 7:44 am

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
User avatar
kajot
 
Posts: 339
Joined: Thu Nov 02, 2006 6:53 pm
Location: Poland

Postby Antonio Linares » Sat Nov 10, 2007 9:32 pm

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 (ąćęłń󟿥ĆĘŁŃÓŹŻ" ) )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42079
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby kajot » Sun Nov 11, 2007 11:36 am

where is the function FixText ?
User avatar
kajot
 
Posts: 339
Joined: Thu Nov 02, 2006 6:53 pm
Location: Poland

Postby kajot » Sun Nov 11, 2007 11:43 am

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
User avatar
kajot
 
Posts: 339
Joined: Thu Nov 02, 2006 6:53 pm
Location: Poland

Postby Antonio Linares » Sun Nov 11, 2007 6:15 pm

Is it working fine now ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42079
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 89 guests