paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 20:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: formatting

Browse Source 
git-svn-id: trunk@39212 -
This commit is contained in:
juha 2012-10-31 21:29:18 +00:00
parent 593d20e3ce
commit 3731f23757
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourceeditor.pp
View File

@ -2676,8 +2676,7 @@ begin
// Fill in history items
LazFindReplaceDialog.TextToFindComboBox.Items.Assign(InputHistories.FindHistory);
LazFindReplaceDialog.ReplaceTextComboBox.Items.Assign(
InputHistories.ReplaceHistory);
LazFindReplaceDialog.ReplaceTextComboBox.Items.Assign(InputHistories.ReplaceHistory);
with EditorComponent do begin
if EditorOpts.FindTextAtCursor then begin
@ -2687,7 +2686,7 @@ begin
((ComparePoints(BlockBegin, LogicalCaretXY) >= 0) and
(ComparePoints(BlockEnd, LogicalCaretXY) <= 0))
)
then begin
then begin
//debugln('TSourceEditor.StartFindAndReplace B FindTextAtCursor SelAvail');
LazFindReplaceDialog.FindText := SelText
end else begin
@ -2840,8 +2839,7 @@ begin
Result:=EditorComponent.SearchReplace(aFindText, aReplaceText, anOptions);
except
on E: ERegExpr do begin
MessageDlg(lisUEErrorInRegularExpression,
E.Message,mtError,[mbCancel],0);
MessageDlg(lisUEErrorInRegularExpression, E.Message,mtError,[mbCancel],0);
exit;
end;
end;