topic-14142

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Fri Jan 02, 2009 10:52 AM

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?

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Sat Jan 03, 2009 07:49 AM

Hakan,

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

Code: Select all Collapse

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 )

regards, saludos

Antonio Linares
www.fivetechsoft.com

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Sat Jan 03, 2009 09:44 AM

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 Collapse

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

Is It?

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Mon Jan 05, 2009 06:46 AM

Hakan,

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

nCurrentCharset = SetCharSet()

regards, saludos

Antonio Linares
www.fivetechsoft.com

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Sat Jun 06, 2020 06:03 PM

Hi Antonio,

Can we do it by using

font.prg

Code (fw): Select all Collapse

CLASSDATA nCharSet.

Our application.

Code (fw): Select all Collapse

TFont():nCharSet := 1

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH 8.12 Font.prg _DEFAULT_CHARSET_
Posted: Mon Jun 08, 2020 06:32 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion