GTK ..... What error ?
Posted: Sun Nov 30, 2008 10:26 am
Hi all.
2 byte char control -> tlistbox.
error ----> hear.
(<unknown>:12958): Pango-WARNING **: Invalid UTF-8 string passed to pango_layout_set_text()
Error code ->>>>>>>>>>>>>>>>>>>>>>>>>>>>>
2 byte char control -> tlistbox.
error ----> hear.
(<unknown>:12958): Pango-WARNING **: Invalid UTF-8 string passed to pango_layout_set_text()
Code: Select all | Expand
Good code ->>>>>>>>>>>>>>>>>>>>>>>>>>>>>
FUNC Main()
AADD(aArray, "漢字語.avi")
AADD(aArray, "失手.avi")
AADD(aArray, "動力.avi")
DEFINE WINDOW oWnd1 TITLE "Testing SAMPLE" SIZE 822, 317
@ 2, 0 LISTBOX oLbx VAR aLbx OF oWnd1 ITEMS aArray SIZE 820, 250 UPDATE
@ 28, 2 BUTTON "_Exit" OF oWnd ACTION oWnd1:End()
ACTIVATE WINDOW oWnd1
RETU NIL
Error code ->>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Code: Select all | Expand
FUNC Main()
publ aArray, oWnd
aArray := {}
DEFINE WINDOW oWnd TITLE "Testing SAMPLE" SIZE 822, 317
@ 28, 2 BUTTON "_Exit" OF oWnd ACTION oWnd1:End()
@ 28, 10 BUTTON "_Load" OF oWnd ACTION File_load()
@ 28, 18 BUTTON "_Show" OF oWnd ACTION wnd_show()
ACTIVATE WINDOW oWnd
RETU NIL
//----------------------------------------------------------------------
FUNC wnd_show()
DEFINE WINDOW oWnd1 TITLE "Testing SAMPLE" SIZE 822, 317
@ 2, 0 LISTBOX oLbx VAR aLbx OF oWnd1 ITEMS aArray SIZE 820, 250 UPDATE
@ 28, 2 BUTTON "_Exit" OF oWnd1 ACTION oWnd1:End()
ACTIVATE WINDOW oWnd1
//-----------------------------------------------------
FUNC File_load()
hFile := FOpen( "./test.txt", FC_NORMAL )
as := Fseek( hFile, 0, FS_END )
count := 0
fcount := 0
ft := ""
Fseek( hFile, 0, 0 )
fcount := 0
do while .t.
ss := spac(1)
Fread(hFile, @ss, 1)
fcount += 1
if ss == chr(10)
if subs(ft, 1, 1) == "-"
lensu := len(ft)
kk := alltrim(subs(ft, 2, lensu - 1))
AADD(aArray, kk)
endi
ft := ""
else
ft += ss
endi
if fcount > as
exit
endi
endd
FClose( hFile )
RETU NIL
-----------------------------------------------------------
sample test.txt file
-----------------------------------------------------------
-漢字語.avi
-失手.avi
-動力.avi
----end of ---------------------------------------------