paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-18 07:28:20 +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
This commit is contained in:
wp_xyz 2024-11-14 23:48:17 +01:00
parent 816d1b0cd5
commit b7f4fd1d74
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 public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
function Check: Boolean; override;
function GetTitle: String; override; function GetTitle: String; override;
procedure ReadSettings({%H-}AOptions: TAbstractIDEOptions); override; procedure ReadSettings({%H-}AOptions: TAbstractIDEOptions); override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override; procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
@ -174,6 +175,11 @@ begin
AForm.SetBounds(P.X, P.Y, AForm.Width, AForm.Height); AForm.SetBounds(P.X, P.Y, AForm.Width, AForm.Height);
end; end;
function TIconFinderSettingsFrame.Check: Boolean;
begin
Result := not FViewer.cmbFilterByKeywords.Focused;
end;
procedure TIconFinderSettingsFrame.EditFolders; procedure TIconFinderSettingsFrame.EditFolders;
var var
F: TIconFolderForm; F: TIconFolderForm;