forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, search actions didn't update the button state

This commit is contained in:
Basile Burg 2015-05-16 07:55:19 +02:00
parent 0a4bc21023
commit 18dbc56938
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_search.pas
View File

@ -389,6 +389,7 @@ begin
if Updating then exit; if Updating then exit;
fToFind := cbToFind.Text; fToFind := cbToFind.Text;
fHasSearched := false; fHasSearched := false;
updateImperative;
end; end;
procedure TCESearchWidget.chkEnableRepChange(Sender: TObject); procedure TCESearchWidget.chkEnableRepChange(Sender: TObject);
@ -402,18 +403,16 @@ begin
if Updating then exit; if Updating then exit;
fReplaceWth := cbReplaceWth.Text; fReplaceWth := cbReplaceWth.Text;
fHasSearched := false; fHasSearched := false;
updateImperative;
end; end;
procedure TCESearchWidget.updateImperative; procedure TCESearchWidget.updateImperative;
begin begin
fActFindNext.Enabled := fDoc <> nil; btnFind.Enabled := (fDoc <> nil) and (fToFind <> '');
fActReplaceNext.Enabled := (fDoc <> nil) and (chkEnableRep.Checked); btnReplace.Enabled := (fDoc <> nil) and (chkEnableRep.Checked) and (fToFind <> '');
fActReplaceAll.Enabled := (fDoc <> nil) and (chkEnableRep.Checked); btnReplaceAll.Enabled := btnReplace.Enabled;
cbReplaceWth.Enabled := (fDoc <> nil) and (chkEnableRep.Checked); cbReplaceWth.Enabled := (fDoc <> nil) and (chkEnableRep.Checked);
cbToFind.Enabled := fDoc <> nil; cbToFind.Enabled := fDoc <> nil;
//
cbToFind.Items.Assign(fSearchMru);
cbReplaceWth.Items.Assign(fReplaceMru);
end; end;
{$ENDREGION} {$ENDREGION}