diff --git a/components/iconfinder/source/ide/iconfindersettings.pas b/components/iconfinder/source/ide/iconfindersettings.pas index 3fd8661c9e..5786ca31a2 100644 --- a/components/iconfinder/source/ide/iconfindersettings.pas +++ b/components/iconfinder/source/ide/iconfindersettings.pas @@ -76,6 +76,7 @@ type public constructor Create(TheOwner: TComponent); override; destructor Destroy; override; + function Check: Boolean; override; function GetTitle: String; override; procedure ReadSettings({%H-}AOptions: TAbstractIDEOptions); override; procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override; @@ -174,6 +175,11 @@ begin AForm.SetBounds(P.X, P.Y, AForm.Width, AForm.Height); end; +function TIconFinderSettingsFrame.Check: Boolean; +begin + Result := not FViewer.cmbFilterByKeywords.Focused; +end; + procedure TIconFinderSettingsFrame.EditFolders; var F: TIconFolderForm;