Dialog Search

[Gintaras]

Code:

Copy      Help

;...
;messages2
str- blany
sel wParam
,case 7
,blany=
,;bule one
,;blue two
,;blue three
,;black one
,;black two
,;red one
,TO_Enable(hDlg "7" 0)
,TO_Enable(hDlg "8" 1)
,blany.setwintext(id(4 hDlg))
,case 8
,blany=
,;white one
,;white two
,;white three
,;pink one
,;pink two
,;grey sixteen
,TO_Enable(hDlg "8" 0)
,TO_Enable(hDlg "7" 1)
,blany.setwintext(id(4 hDlg))
,case 9
,goto gSearch

,case IDOK
,case IDCANCEL
ret 1
;gSearch
str s sSearch sFound
sSearch.getwintext(id(3 hDlg))
if sSearch.len
,foreach s blany
,,if(find(s sSearch)>=0) sFound.addline(s)
sFound.setwintext(id(4 hDlg))
ret