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

IDE: component list: update buttons on becoming visible

Browse Source 
git-svn-id: trunk@46588 -
This commit is contained in:
mattias 2014-10-18 09:38:26 +00:00
parent c97db23fe2
commit 4f5cdcb8ff
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/componentlist.pas
View File

@ -80,6 +80,8 @@ type
procedure ComponentWasAdded; procedure ComponentWasAdded;
procedure FindAllLazarusComponents; procedure FindAllLazarusComponents;
procedure UpdateButtonState; procedure UpdateButtonState;
protected
procedure UpdateShowing; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -137,12 +139,10 @@ begin
ParentParent := Nil; ParentParent := Nil;
if Assigned(Parent) then if Assigned(Parent) then
ParentParent := Parent.Parent; ParentParent := Parent.Parent;
DebugLn(['*** TComponentListForm.FormShow, Parent=', Parent, ', Parent.Parent=', ParentParent]); //DebugLn(['*** TComponentListForm.FormShow, Parent=', Parent, ', Parent.Parent=', ParentParent]);
ButtonPanel.Visible := ParentParent=Nil; ButtonPanel.Visible := ParentParent=Nil;
if ButtonPanel.Visible then begin if ButtonPanel.Visible then
PageControl.AnchorSideBottom.Side := asrTop; PageControl.AnchorSideBottom.Side := asrTop
UpdateButtonState;
end
else else
PageControl.AnchorSideBottom.Side := asrBottom; PageControl.AnchorSideBottom.Side := asrBottom;
end; end;
@ -208,6 +208,13 @@ begin
ButtonPanel.OKButton.Enabled := Assigned(GetSelectedComponent); ButtonPanel.OKButton.Enabled := Assigned(GetSelectedComponent);
end; end;
procedure TComponentListForm.UpdateShowing;
begin
if ButtonPanel.Visible then
UpdateButtonState;
inherited UpdateShowing;
end;
procedure TComponentListForm.UpdateComponentSelection(Sender: TObject); procedure TComponentListForm.UpdateComponentSelection(Sender: TObject);
// Fill the three tabsheets. // Fill the three tabsheets.
var var