different codepage or font issue ??

[pierredaou]

Hi,

I am converting foreign data from excel into DBF ( namely arabic ) . Now Advantage Data Architect reads the dbf file correctly ( ansi ), while Xdbu is not. Any hint about this issue ? How can I make the same file readable in Xbase ? is this a code page issue where can it be set ?

Regards

[John Hohensee]

Why not try the simple route use a second field that has a translated name?

[pierredaou]

Hi,

What do you mean by a second field that has a "translated name" ?

Regards

[Auge_Ohr]

How can I make the same file readable in Xbase ? is this a code page issue where can it be set ?

not shure about arabic while i use chinese Sign

your 2nd Picture show a normal DBU using some "local System" Font which does not "match".
so use some Code like this to change Font "on-fly" in a Browse.

Code: Select all

   oBrowse:itemRbDown := {| aMousePos, aRowCol, oSelf | ;
                            ChangeFont(aRowCol, oSelf) }

PROCEDURE ChangeFont(aRowCol,oBrowse)
LOCAL oFontDlg
LOCAL oFnt
LOCAL nPosi  := aRowCol[2]
LOCAL OldFnt := oBrowse:GetColumn(nPosi):dataArea:setFont()

   oFontDlg := XbpFontDialog():new(oBrowse)  // Objekt erzeugen
   oFontDlg:familyName := OldFnt:familyName
   // Font-Dialog konfigurieren
   oFontDlg:create()                 // Dialog anfordern
   oFnt := oFontDlg:display()        // Dialog aktivieren
   IF oFnt <> NIL
      MSGBOX("Font :"+LTRIM(STR(oFnt:nominalPointSize))+"."+;
                      oFnt:compoundName+CHR(13)+" Codepage :"+;
                      LTRIM(STR(oFnt:codePage)) )

      oBrowse:GetColumn(nPosi):dataArea:setFont(oFnt)
      oBrowse:refreshall()
   ENDIF
   oFontDlg:destroy()
RETURN

Note : every Column use a Font Object which have to setup before.

for more Informationen see Alaska Newsgroup
public.xbase++.generic
Mixing ANSI/ASCII and Unicode
Philip Jackson
21. Mai 2011

[pierredaou]

thank you, I will try this.

[pierredaou]

Hi again,

it is not a matter of fonts, it is a matter of codepage. How can we set a default codepage in Xbase.

Regards

[Auge_Ohr]

it is not a matter of fonts, it is a matter of codepage. How can we set a default codepage in Xbase.

only Font have Codepage which you can set.
using FontDialog you have to open ComboBox ( see Picture )

Font_Codepage.JPG (75.15 KiB) Viewed 14529 times

Note : i use OEM so perhaps you have to use ConvToOemCP() to "convert back"

[pierredaou]

Hi Jimmy, thank you and sorry for my late reply.

Still at point 0. Again, how can you invoke the FontDialog inside you PRG ( in a DCget for example ) "using all the installed fonts you have inside Windows".


Regards

[Auge_Ohr]

Hi Jimmy, thank you and sorry for my late reply.

Still at point 0. Again, how can you invoke the FontDialog inside you PRG ( in a DCget for example ) "using all the installed fonts you have inside Windows".

sorry i´m not a Express++ User so i can´t say about DC* Function.

i use Xbase++ itemRbDown Slot in XbpBrowse

with :getColumn( <nColPos> ) --> oXbpColumn.
after this i call Fontdialog and set it to oXbpColumn.

you have to "set-up" Font to every Columne after :addColumn()

Code: Select all

   imax    := FCount()
   aStruct := DbStruct()
   FOR i:=1 TO imax
      IF .NOT. aStruct[i,2] $ "BOVTXY"
         oBrowse:addColumn( FieldBlockTrimmed(aStruct[i,1], aStruct[i,2]), , aStruct[i,1] )
      ENDIF
   NEXT

   i := 0
   FOR i := 1 TO imax
      DO CASE
         CASE i = 1
            oBrowse:GetColumn( 1 ) :dataArea:setFont( oFnt1  )

         CASE i = 2
            IF ID_CHINA
               oBrowse:GetColumn( 2 ) :dataArea:setFont( oFnt2 )                                                          // second font
            ELSE
               oBrowse:GetColumn( 2 ) :dataArea:setFont( oFnt1  )
            ENDIF

         CASE i = 3
            oBrowse:GetColumn( 3 ) :dataArea:setFont( oFnt1  )

         CASE i = 4
            IF ID_CHINA
               oBrowse:GetColumn( 4 ) :dataArea:setFont( oFnt1  )
            ELSE
               oBrowse:GetColumn( 4 ) :dataArea:setFont( oFnt2 )                                                          // second font
            ENDIF
      ENDCASE
   NEXT

oFnt1 / oFnt2 are XbpFont() Object (chinese / german) which are "set-up" before.

now you can use itemRbDown Slot this Way

Code: Select all

...
   oBrowse:itemRbDown := {| aMousePos, aRowCol, oSelf | ;
                            ChangeFont(aRowCol, oSelf) }
...

PROCEDURE ChangeFont(aRowCol,oBrowse)
LOCAL oFontDlg
LOCAL oFnt
LOCAL nPosi  := aRowCol[2]
LOCAL OldFnt 
LOCAL bSaveError := ERRORBLOCK( { | oError | BREAK( oError ) } )

   //
   // if no Font have been set before, it will CRASH here !!!
   //
   BEGIN SEQUENCE
      OldFnt := oBrowse:GetColumn(nPosi):dataArea:setFont()
   RECOVER USING oError
      ERRORBLOCK( bSaveError )
      msgbox("not FONT Object set to Columne before","Error old Font")
      RETURN
   END SEQUENCE
   ERRORBLOCK( bSaveError )

   oFontDlg := XbpFontDialog():new(oBrowse)  // Objekt erzeugen
   oFontDlg:familyName := OldFnt:familyName

   // Font-Dialog konfigurieren
   oFontDlg:create()                 // Dialog anfordern
   oFnt := oFontDlg:display()        // Dialog aktivieren

   IF oFnt <> NIL
      MSGBOX("Font :"+LTRIM(STR(oFnt:nominalPointSize))+"."+;
                      oFnt:compoundName+CHR(13)+" Codepage :"+;
                      LTRIM(STR(oFnt:codePage)) )

      oBrowse:GetColumn(nPosi):dataArea:setFont(oFnt)
      oBrowse:refreshall()
   ENDIF

   oFontDlg:destroy()

RETURN