|
From: vatzct <va...@po...> - 2012-02-08 13:13:53
|
12.11.2009 12:47, vatzct написав(ла):
> Hi!
>
> First run the func viewfile() shows correct cyrillic but second is not,
> see sample below:
>
>
Hi!
Can anyone test the sample and show the result:
#include "hwgui.ch"
FUNC main()
LOCAL strview
private ii := 0
HWG_SETUTF8()
strview := "Тестовая строка кирилица"
viewfile( strview )
strview := "Тестовая строка кирилица"
viewfile( strview )
RETURN nil
FUNC viewfile( strview )
LOCAL odlgedit, oedit1, bt_cl, bt_print
ii++
init dialog odlgedit title "" at 0, 0 size 700, 400 ON init {|o|o:center() }
@ 01, 01 OwnerButton bt_cl Size 50, 24 TEXT "Exit" ON click
{||odlgedit:Close() }
@ 01, 31 RichEdit oEdit1 TEXT str(ii)+" test: "+strview SIZE 689, 351
odlgedit:activate()
RETURN nil
my result is:
1 test: Тестовая строка кирилица
2 test: Òåñòîâàÿ ñòðîêà êèðèëèöà
Thanks
Regards,
Alexey Myronenko
|