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

IDE: component list: update buttons

Browse Source 
git-svn-id: trunk@46590 -
This commit is contained in:
mattias 2014-10-18 09:46:55 +00:00
parent 4acddedfdf
commit f2922981e5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/componentlist.pas
View File

@ -141,8 +141,10 @@ begin
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 if ButtonPanel.Visible then begin
PageControl.AnchorSideBottom.Side := asrTop PageControl.AnchorSideBottom.Side := asrTop;
UpdateButtonState;
end
else else
PageControl.AnchorSideBottom.Side := asrBottom; PageControl.AnchorSideBottom.Side := asrBottom;
end; end;
@ -210,7 +212,7 @@ end;
procedure TComponentListForm.UpdateShowing; procedure TComponentListForm.UpdateShowing;
begin begin
if ButtonPanel.Visible then if (ButtonPanel<>nil) and ButtonPanel.Visible then
UpdateButtonState; UpdateButtonState;
inherited UpdateShowing; inherited UpdateShowing;
end; end;