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

menuintf: fix SetChildsAsSubMenu section bug

Browse Source 
git-svn-id: trunk@20702 -
This commit is contained in:
paul 2009-06-22 02:51:28 +00:00
parent 1a7372fe49
commit 5e0c647868
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ideintf/menuintf.pas
View File

@ -1172,9 +1172,11 @@ end;
constructor TIDEMenuSection.Create(const TheName: string); constructor TIDEMenuSection.Create(const TheName: string);
begin begin
inherited Create(TheName); inherited Create(TheName);
FSize:=0; FSize := 0;
FChildsAsSubMenu:=true; FChildsAsSubMenu := True;
FItems:=TFPList.Create; FNeedTopSeparator := False;
FNeedBottomSeparator := False;
FItems := TFPList.Create;
end; end;
destructor TIDEMenuSection.Destroy; destructor TIDEMenuSection.Destroy;
@ -1484,6 +1486,10 @@ begin
{$IFDEF VerboseMenuIntf} {$IFDEF VerboseMenuIntf}
debugln('TIDEMenuSection.SetChildsAsSubMenu Name="',Name,'"'); debugln('TIDEMenuSection.SetChildsAsSubMenu Name="',Name,'"');
{$ENDIF} {$ENDIF}
if AValue then
Section.UpdateSize(1)
else
Section.UpdateSize(-1);
Section.UpdateMenuStructure; Section.UpdateMenuStructure;
end; end;
end; end;