FiveTech Software tech support forums

Hi Antonio,

Thanks for adding _DEFAULT_CHARSET_ in font.prg.

I think I missed something. This define does not work, if I don't add the font.prg in my application make.

I have added to the _DEFAULT_CHARSET_=1 in xHarbour Builder's define and builded but fonts does not worked.

If I added the FWH\classes\font.prg in my make file, It is OK.

Is it possible to use _DEFAULT_CHARSET_ without adding font.prg?

Hakan,

Instead of a #define, a SetGet function should be required:

Code: Select all  Expand view

function SetCharSet( nNewCharSet )

   local nOldCharSet

   static nCharSet := _DEFAULT_CHARSET_

   nOldCharSet = nCharSet

   if nNewCharSet != nil
      nCharSet = nNewCharSet
   else
      nCharSet = nOldCharSet
   endif

return nOldCharSet


From your application then you can do: SetCharSet( nMyCharSet )

Hi Antonio,

You mean I should delete the defines in my make files which is "_DEFAULT_CHARSET_=1", add this function to my own libs and call the SetCharSet(1) from the first line of my main procedure like.

Code: Select all  Expand view

Procedure Main()
SetCharSet(1)
....
...
...
...
My Code
...
..
Return

Is It?

Hakan,

Yes, and modify font.prg to get the CharSet value calling SetCharSet() with no params:

nCurrentCharset = SetCharSet()

Hi Antonio,

Can we do it by using

font.prg

Code: Select all  Expand view

CLASSDATA nCharSet.

Our application.

Code: Select all  Expand view

TFont():nCharSet := 1

Mr. Rao is going to implement it as you are proposing, thank you