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

IDE: Hide component palette pages dropdown, when app is deactivated

Browse Source 
git-svn-id: trunk@61181 -
This commit is contained in:
martin 2019-05-08 19:53:57 +00:00
parent 8152045409
commit f15f245d9f
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/comppagespopup.pas
View File

@ -58,6 +58,7 @@ type
fGroups: TStringList; // Objects have group TreeNodes
fLastCloseUp: QWord;
fLastCanShowCheck: Boolean;
procedure AppDeactivated(Sender: TObject);
procedure FindGroups;
procedure BuildTreeItem(aPageCapt: string);
procedure BuildList;
@ -68,6 +69,7 @@ type
procedure DoClose(var CloseAction: TCloseAction); override;
public
PositionForControl: TControl;
destructor Destroy; override;
procedure FixBounds;
procedure CanShowCheck;
property LastCanShowCheck: Boolean read fLastCanShowCheck;
@ -97,6 +99,7 @@ end;
procedure TDlgCompPagesPopup.FormShow(Sender: TObject);
begin
BuildList;
Application.AddOnDeactivateHandler(@AppDeactivated);
end;
procedure TDlgCompPagesPopup.FormDeactivate(Sender: TObject);
@ -121,11 +124,18 @@ end;
procedure TDlgCompPagesPopup.DoClose(var CloseAction: TCloseAction);
begin
inherited DoClose(CloseAction);
Application.RemoveOnDeactivateHandler(@AppDeactivated);
if CloseAction = caHide then
fLastCloseUp := GetTickCount64;
end;
destructor TDlgCompPagesPopup.Destroy;
begin
Application.RemoveOnDeactivateHandler(@AppDeactivated);
inherited Destroy;
end;
procedure TDlgCompPagesPopup.DoCreate;
begin
inherited DoCreate;
@ -243,6 +253,11 @@ begin
fGroups.Delete(i);
end;
procedure TDlgCompPagesPopup.AppDeactivated(Sender: TObject);
begin
Close;
end;
procedure TDlgCompPagesPopup.BuildTreeItem(aPageCapt: string);
// Create items in tree, grouping as needed.
var