procedure TFileViewForm.ViewFindDialogFind(Sender: TObject);var FoundAt: integer; SearchType: TSearchTypes;beginwith FileViewRE do begin if frWholeWord in ViewFindDialog.Options then SearchType:=[stWholeWord] else SearchType:=[]; if SelLength > 0 then SearchStart:=SelStart + 1 else SearchStart:=SelStart; Screen.Cursor:=crHourGlass; Application.ProcessMessages; FoundAt:=FindText(ViewFindDialog.FindText, SearchStart, Length(Text), SearchType); Screen.Cursor:=crDefault; Application.ProcessMessages; if FoundAt < 1 then MessageDlg('Error! Unable to find "'+ ViewFindDialog.FindText + '"', mtError, [mbOK], 0) else begin SetFocus; SelStart:=FoundAt; SelLength:=Length(ViewFindDialog.FindText); end; end;end;
