FWH 8.12 Font.prg _DEFAULT_CHARSET_

[Horizon]

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?

[Antonio Linares]

Hakan,

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

Code: Select all

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 )

[Horizon]

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

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

Is It?

[Antonio Linares]

Hakan,

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

nCurrentCharset = SetCharSet()

[Horizon]

Hi Antonio,

Can we do it by using

font.prg

Code: Select all

CLASSDATA nCharSet.

Our application.

Code: Select all

TFont():nCharSet := 1

[Antonio Linares]

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