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, aFontsfunction Main()local oBtn, oFont, oTxtFile, nLines, cLines, n, cFont, nSizecFont := 'Courier'nSize := -10aFonts := {}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 fileDEFINE FONT oFont NAME cFont SIZE 0,nSizeif !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 oWndreturn nil*--------------------*Function uTrim( uVar )local cVarif valtype( uVar ) = 'N'   cVar := ltrim(str(uVar))elseif valtype( uVar ) = 'L'   cVar := if(uVar,'.T.','.F.')else   cVar := alltrim(uVar)endreturn cVar*-------------------------------*Function ChooseSysFont( aFonts )local hText, naFonts := ChooseFont()if !empty(aFonts[14])      hText := Fcreate('FONT.INI')      for n := 1 to len(aFonts)    Fwrite(hText,utrim(aFonts[n])+CRLF)      next      Fclose(hText)endreturn nil

[Davide]

This sample will be some useful, I hope.

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