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

showing all palette components when no form shown

Browse Source 
git-svn-id: trunk@3092 -
This commit is contained in:
mattias 2002-08-18 08:57:35 +00:00
parent f5d092fc79
commit 2ea8dc7d31
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -2031,8 +2031,8 @@ procedure TMainIDE.UpdateIDEComponentPalette;
var var
ShowControlsInComponentalette: Boolean; ShowControlsInComponentalette: Boolean;
begin begin
ShowControlsInComponentalette:=(FLastFormActivated<>nil) ShowControlsInComponentalette:=(FLastFormActivated=nil)
and (TDesigner(FLastFormActivated.Designer).LookupRoot is TControl); or (TDesigner(FLastFormActivated.Designer).LookupRoot is TControl);
IDEComponentPalette.ShowHideControls(ShowControlsInComponentalette); IDEComponentPalette.ShowHideControls(ShowControlsInComponentalette);
end; end;
@ -9032,6 +9032,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.600 2003/06/06 08:46:12 mattias
showing all palette components when no form shown
Revision 1.599 2003/06/06 08:34:18 mattias Revision 1.599 2003/06/06 08:34:18 mattias
fixed unhiding components fixed unhiding components