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

IDE Scout: Execute editor commands with a delay so the selection window has time to hide. Issue #34383.

Browse Source
This commit is contained in:
Juha 2024-08-03 17:23:12 +03:00
parent 1cae4b5382
commit d51777fee4
1 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
components/idescout/frmscout.pas
View File

@ -122,8 +122,7 @@ Type
procedure LBMatchesClick(Sender: TObject);
procedure LBMatchesDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; {%H-}State: TOwnerDrawState);
procedure LBMatchesKeyUp(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState
);
procedure LBMatchesKeyUp(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
private
FRefresh,
FHighlights: TScoutTerrains;
@ -131,6 +130,7 @@ Type
FMatchColor: TColor;
FShowCategory: Boolean;
FSearchItems: TStringListUTF8Fast;
FSelectedIdx: Integer;
FOrgCaption : String;
FShowShortCutKey: Boolean;
procedure ClearRefreshableItems;
@ -138,6 +138,7 @@ Type
Procedure RefreshList;
procedure FillRecent(aType: TIDERecentHandler);
Procedure Initialize;
procedure ExecuteOnIdle(Sender: TObject; var Done: Boolean);
procedure ExecuteSelected;
Procedure FillCommands;
procedure FilterList(aSearchTerm: String);
@ -534,6 +535,8 @@ procedure TIDEScoutForm.FormCreate(Sender: TObject);
begin
FSearchItems:=TStringListUTF8Fast.Create;
FSearchItems.OwnsObjects:=True;
FSelectedIdx:=-1;
Application.AddOnIdleHandler(@ExecuteOnIdle);
Caption:=isrsIDEScout;
FOrgCaption:=Caption;
ESearch.TextHint:=isrsTypeSearchTerms;
@ -626,25 +629,30 @@ begin
end;
end;
procedure TIDEScoutForm.ExecuteSelected;
procedure TIDEScoutForm.ExecuteOnIdle(Sender: TObject; var Done: Boolean);
Var
idx: Integer;
itm : TSearchItem;
Itm : TSearchItem;
begin
Idx:=LBMatches.ItemIndex;
if (Idx>=0) then
begin
if FSelectedIdx=-1 then exit;
Itm:=LBMatches.Items.Objects[FSelectedIdx] as TSearchItem;
if Itm.Source is TIDECommand then
TIDECommand(Itm.Source).Execute(SourceEditorManagerIntf.ActiveEditor)
else if Itm.Source is TComponentItem then
TComponentItem(Itm.Source).Execute
else if Itm.Source is TOpenFileItem then
TOpenFileItem(Itm.Source).Execute;
FSelectedIdx:=-1;
Done:=True;
end;
procedure TIDEScoutForm.ExecuteSelected;
begin
FSelectedIdx:=LBMatches.ItemIndex;
if FSelectedIdx>=0 then
begin
Hide;
Itm:=LBMatches.Items.Objects[Idx] as TSearchItem;
if Itm.Source is TIDECommand then
TIDECommand(Itm.Source).Execute(SourceEditorManagerIntf.ActiveEditor)
else if Itm.Source is TComponentItem then
TComponentItem(Itm.Source).Execute
else if Itm.Source is TOpenFileItem then
TOpenFileItem(Itm.Source).Execute;
end;
sleep(10);
end;
end;