font problem

[mesale0077]

;Code:

Dim $a[7500]

Dim $topla = ""

#include <GuiConstants.au3>

#NoTrayIcon

$a[0]="hola:hello" ;

$a[1]="cómo: how are you"

GUICreate("Dictionary v.1.0", 400, 400)

GUISetBkColor(0x00FF99)

WinSetTrans("Dictionary v.1.0", "", 240)

GUISetState(@SW_SHOW)

$araB=GUICtrlCreateInput("", 88, 20, 190, 25)

GUICtrlSetFont(-1,12,600)

$button_1 = GUICtrlCreateButton("search", 285, 20, 50, -1, 0x0001)

GUICtrlSetFont(-1,9,600)

$list_1=GUICtrlCreateEdit("", 21, 80, 375,310, 0x00200000)

GUICtrlSetFont(-1,12,800)

Func Ara()

GUICtrlSetData($list_1,"")

$ara=GUICtrlRead($araB)

if StringLen($ara)<2 Then

MsgBox(48, "Dictionary", "When searching, enter at least two characters!")

Else

GUICtrlSetData($list_1,"searching.....")

for $xx=0 to 7499 ;

if StringInStr($a[$xx], $ara)>0 then $topla = $topla & $a[$xx] & chr(13) & chr(10) & chr(13) & chr(10)

Next

if $topla=="" then $topla="Results not found!"

GuiCtrlSetData($list_1, $topla)

$topla=""

EndIf

EndFunc

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

Case $msg = $button_1

if stringlen(GUICtrlRead($araB))>0 Then Ara()

Case $msg= ""

EndSelect

WEnd

this no problem code but font,Why are fonts like the one in picture help please

[bo8ster]

Ran the code and it works for me. Check the font settings on your computer.

[mesale0077]

thank you for your help,no problem ,the font settings on my computer,ok now no problem,the trouble for my computer, now no trouble ,now working code

good works

Edited April 22, 2009 by mesale0077