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

IDEIntf: fixed TIDEMenuSection.GetContainerIndex

Browse Source 
git-svn-id: trunk@26416 -
This commit is contained in:
mattias 2010-07-02 14:13:07 +00:00
parent e704481261
commit 5dd6aeadd5
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ideintf/menuintf.pas
View File

@ -666,7 +666,8 @@ begin
MenuItem.OnClick := @MenuItemClick;
if ResourceName <> '' then
MenuItem.ImageIndex := IDEImages.LoadImage(16, ResourceName);
end;
end else if Section<>nil then
Section.Invalidate(SectionIndex,SectionIndex);
end;
procedure TIDEMenuItem.SetName(const AValue: string);
@ -713,6 +714,8 @@ begin
FMenuItem.Free;
end;
FMenuItem:=nil;
if Section<>nil then
Section.Invalidate(SectionIndex,SectionIndex);
end;
constructor TIDEMenuItem.Create(const TheName: string);
@ -917,6 +920,7 @@ begin
FreeSeparators;
for i:=0 to Count-1 do Items[i].ClearMenuItems;
inherited ClearMenuItems;
Invalidate(0,Count-1);
end;
procedure TIDEMenuSection.UpdateChildsIndex(StartIndex: Integer);
@ -1377,7 +1381,8 @@ begin
// add all siblings in front
SiblingIndex:=0;
while (Section[SiblingIndex]<>Self) do begin
inc(Result,Section[SiblingIndex].Size);
if Section[SiblingIndex].Visible then
inc(Result,Section[SiblingIndex].Size);
inc(SiblingIndex);
end;
// add separator

3
packager/packageeditor.pas
View File

@ -546,8 +546,9 @@ var
end;
begin
debugln(['TPackageEditorForm.FilesPopupMenuPopup START ',FilesPopupMenu.Items.Count]);
PackageEditorMenuRoot.MenuItem:=FilesPopupMenu.Items;
//debugln(['TPackageEditorForm.FilesPopupMenuPopup START ',FilesPopupMenu.Items.Count]);
debugln(['TPackageEditorForm.FilesPopupMenuPopup START after connect ',FilesPopupMenu.Items.Count]);
PackageEditorMenuRoot.BeginUpdate;
try