paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +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;
//DebugLn(['*** TComponentListForm.FormShow, Parent=', Parent, ', Parent.Parent=', ParentParent]);
ButtonPanel.Visible := ParentParent=Nil;
if ButtonPanel.Visible then
PageControl.AnchorSideBottom.Side := asrTop
if ButtonPanel.Visible then begin
PageControl.AnchorSideBottom.Side := asrTop;
UpdateButtonState;
end
else
PageControl.AnchorSideBottom.Side := asrBottom;
end;
@ -210,7 +212,7 @@ end;
procedure TComponentListForm.UpdateShowing;
begin
if ButtonPanel.Visible then
if (ButtonPanel<>nil) and ButtonPanel.Visible then
UpdateButtonState;
inherited UpdateShowing;
end;