support foreign language

[Ehab Samir Aziz]

Can I write my gets/reads,says in foreign langauge ? in VB I can write Arabic for example for text and variables got from screen .

[ShumingWang]

create table lang1.dbf:
clang1 c ,20
clang2 c,20
clang3 c,20
,...

index on clang1 to lang1


function main()

public nlang:=1


@1,1 get nlang of odlg

if nalng>1

use lang1 new
end

.....

rturn


All classes which include ccation like dialog,get,say,folder,checkbox,browse,..., about 10 classes modify like:

if nlang>1
select lang1
seek ::ccaption
if found()
::ccaption:=lang1->(fieldget(nlang))
end
end


Source prgs even not need modify , you can get your app support multi lang .

Best Regards!

Shuming Wang

[Ehab Samir Aziz]

I need to ask a primitive question :
What will be the contents of lang1.dbf ?

[ShumingWang]

first field clang1 c ,20 as native language (original in source prg ) ted,others like clang2 as second foreign languange,... .

clang1 , clang2

not found , 没有发现 ， ...
itemid , 编号 ,...
can't open , 打不开，...
date , 日期


regards
Shuming Wang