To Antonio, How to DEFINE FONT with Script Thai?

[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



Best regards,
Dutch

[Antonio Linares]

Dutch,

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

Maybe CreateFont() supports a parameter for "scripts"

[dutch]

Dear Antonio,

I use CreateFont() and it works perfectly now.

Regards,
Dutch

[Antonio Linares]

Very good

[Davide]

Dear Dutch,

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.

[dutch]

Dear Davide,

This sample will be some useful, I hope.
Dutch

Code: Select all | Expand

// 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

[Davide]

This sample will be some useful, I hope.

Thank you Dutch, I'll study it.
Hi,
Davide