//富文本框(richedit) - 查找替换 import win.ui; /*DSG{{*/ var winform = win.form(text="richedit - 使用查找替换对话框";right=1071;bottom=815) winform.add( btnFind={cls="button";text="查找";left=732;top=755;right=860;bottom=798;db=1;dr=1;z=2}; btnReplace={cls="button";text="替换";left=871;top=755;right=999;bottom=798;db=1;dr=1;z=3}; richedit={cls="richedit";text="richedit richedit richedit richedit richedit richedit richedit richedit richedit richedit ";left=27;top=11;right=1049;bottom=728;db=1;dl=1;dr=1;dt=1;edge=1;hidesel=false;multiline=1;z=1} ) /*}}*/ import win.dlg.findReplace; var frDlg = win.dlg.findReplace(winform); frDlg.onSearch = function(findWhat,down,matchCase,wholeWord){ winform.richedit.findText(findWhat,frDlg.flags); } frDlg.onReplace = function(findWhat,replaceWith,down,matchCase,wholeWord){ winform.richedit.replaceText(findWhat,replaceWith,frDlg.flags); } frDlg.onReplaceAll = function(findWhat,replaceWith,down,matchCase,wholeWord){ winform.richedit.replaceAll(findWhat,replaceWith,frDlg.flags) } winform.btnFind.oncommand = function(id,event){ frDlg.find(winform.richedit.selText) } winform.btnReplace.oncommand = function(id,event){ frDlg.replace(winform.richedit.selText); } winform.show() win.loopMessage();