Page 1 of 1
FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Fri Jan 02, 2009 10:52 am
by 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?
Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Sat Jan 03, 2009 7:49 am
by 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 )
Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Sat Jan 03, 2009 9:44 am
by 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?
Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Mon Jan 05, 2009 6:46 am
by Antonio Linares
Hakan,
Yes, and modify font.prg to get the CharSet value calling SetCharSet() with no params:
nCurrentCharset = SetCharSet()
Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Sat Jun 06, 2020 6:03 pm
by Horizon
Hi Antonio,
Can we do it by using
font.prg
Our application.
Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Mon Jun 08, 2020 6:32 am
by Antonio Linares
Mr. Rao is going to implement it as you are proposing, thank you