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