Page 1 of 1

To Antonio, How to DEFINE FONT with Script Thai?

Posted: Fri Jun 22, 2007 3:26 pm
by dutch
Dear Antonio,

I've got the problem with some Thai Font. I can use "Ms Sans Serif" in Thai within my program. But there are some Thai Font is not support as follow sample:
- Tahoma
- Arial
In MS Office both Font can type and display in Thai.

If I use following command and select Script with Thai, it work fine.
DEFINE FONT 'Tahoma' SIZE 0, -12 FROM USER

How I can DEFINE FONT with Script Thai as following

Image

Best regards,
Dutch

Posted: Sun Jun 24, 2007 6:50 pm
by Antonio Linares
Dutch,

I really don't know it. You should google for some info about it.

Maybe CreateFont() supports a parameter for "scripts"

Posted: Mon Jun 25, 2007 3:50 am
by dutch
Dear Antonio,

I use CreateFont() and it works perfectly now.

Regards,
Dutch

Posted: Mon Jun 25, 2007 9:49 am
by Antonio Linares
Very good :-)

Posted: Mon Jun 25, 2007 11:34 pm
by Davide
Dear Dutch,
dutch wrote:I use CreateFont() and it works perfectly now.
I'm interested on this topic for other nonlatin languages, like Arabic which has the additional problem that mixes left-to-right with right-to-left text in a single row.
Could you please show me a small sample about how you solved your Thai problem with CreateFont() ?
Thanks,
Davide.

Posted: Wed Jun 27, 2007 3:38 am
by dutch
Dear Davide,

This sample will be some useful, I hope.
Dutch

Code: Select all

// More fonts samples

#include "FiveWin.ch"

static oWnd, aFonts

function Main()

local oBtn, oFont, oTxtFile, nLines, cLines, n, cFont, nSize

cFont := 'Courier'
nSize := -10
aFonts := {}

if file('FONT.INI')
   oTxtFile := TTxtFile():New('FONT.INI')
   nLines   := oTxtFile:RecCount()

	for n := 1 to nlines
	 cLines := oTxtFile:ReadLine()
	 if n = 6 .or. n = 7 .or. n = 8
		 aadd( aFonts , if(cLines='.T.',.T.,.F.) )
	 elseif n = 14
		 aadd( aFonts , cLines )
	 else
		 aadd( aFonts , val(cLines) )
	 end
	    oTxtFile:Skip()
	next
	oTxtFile:Close()

end

  // This is default for no Font.ini file
DEFINE FONT oFont NAME cFont SIZE 0,nSize

if !empty( aFonts )
  oFont:hFont := CreateFont( aFonts )
end

   DEFINE WINDOW oWnd TITLE "Testing ChooseFont"

	oWnd:SetFont( oFont )

   @ 2, 2 BUTTON oBtn PROMPT "&Choose" OF oWnd ;
		      ACTION (ChooseSysFont(@aFonts)) ;
		SIZE 80, 25

   ACTIVATE WINDOW oWnd

return nil

*--------------------*
Function uTrim( uVar )
local cVar
if valtype( uVar ) = 'N'
	cVar := ltrim(str(uVar))
elseif valtype( uVar ) = 'L'
	cVar := if(uVar,'.T.','.F.')
else
	cVar := alltrim(uVar)
end
return cVar

*-------------------------------*
Function ChooseSysFont( aFonts )
local hText, n
aFonts := ChooseFont()
if !empty(aFonts[14])
      hText := Fcreate('FONT.INI')
      for n := 1 to len(aFonts)
	 Fwrite(hText,utrim(aFonts[n])+CRLF)
      next
      Fclose(hText)
end
return nil

Posted: Wed Jun 27, 2007 11:34 am
by Davide
dutch wrote:This sample will be some useful, I hope.
Thank you Dutch, I'll study it.
Hi,
Davide