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

IconFinder: Avoid closing the IDE options dialog when the user presses ENTER after typing a search phrase.

Browse Source 
(cherry picked from commit b7f4fd1d74)
This commit is contained in:
wp_xyz 2024-11-14 23:48:17 +01:00
parent 88f3d577c7
commit 6620e22730
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/iconfinder/source/ide/iconfindersettings.pas
View File

@ -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;