mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-13 13:39:18 +02:00
fixed forward / backwards search
git-svn-id: trunk@6697 -
This commit is contained in:
parent
40e9cb0f1b
commit
534961f0e8
@ -552,8 +552,8 @@ begin
|
|||||||
then ScopeRadioGroup.ItemIndex:=1
|
then ScopeRadioGroup.ItemIndex:=1
|
||||||
else ScopeRadioGroup.ItemIndex:=0;
|
else ScopeRadioGroup.ItemIndex:=0;
|
||||||
if ssoBackwards in NewOptions
|
if ssoBackwards in NewOptions
|
||||||
then DirectionRadioGroup.ItemIndex:=0
|
then DirectionRadioGroup.ItemIndex:=1
|
||||||
else DirectionRadioGroup.ItemIndex:=1;
|
else DirectionRadioGroup.ItemIndex:=0;
|
||||||
ReplaceAllButton.Enabled:=ssoReplace in NewOptions;
|
ReplaceAllButton.Enabled:=ssoReplace in NewOptions;
|
||||||
ReplaceTextComboBox.Enabled:=ReplaceAllButton.Enabled;
|
ReplaceTextComboBox.Enabled:=ReplaceAllButton.Enabled;
|
||||||
ReplaceWithLabel.Enabled:=ReplaceAllButton.Enabled;
|
ReplaceWithLabel.Enabled:=ReplaceAllButton.Enabled;
|
||||||
@ -577,7 +577,7 @@ begin
|
|||||||
if PromptOnReplaceCheckBox.Checked then Include(Result,ssoPrompt);
|
if PromptOnReplaceCheckBox.Checked then Include(Result,ssoPrompt);
|
||||||
if OriginRadioGroup.ItemIndex=1 then Include(Result,ssoEntireScope);
|
if OriginRadioGroup.ItemIndex=1 then Include(Result,ssoEntireScope);
|
||||||
if ScopeRadioGroup.ItemIndex=1 then include(Result,ssoSelectedOnly);
|
if ScopeRadioGroup.ItemIndex=1 then include(Result,ssoSelectedOnly);
|
||||||
if DirectionRadioGroup.ItemIndex=0 then include(Result,ssoBackwards);
|
if DirectionRadioGroup.ItemIndex=1 then include(Result,ssoBackwards);
|
||||||
if ReplaceAllButton.Enabled then include(Result,ssoReplace);
|
if ReplaceAllButton.Enabled then include(Result,ssoReplace);
|
||||||
if fReplaceAllClickedLast then include(Result,ssoReplaceAll);
|
if fReplaceAllClickedLast then include(Result,ssoReplaceAll);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user