paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 23:19:12 +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; MenuItem.OnClick := @MenuItemClick;
if ResourceName <> '' then if ResourceName <> '' then
MenuItem.ImageIndex := IDEImages.LoadImage(16, ResourceName); MenuItem.ImageIndex := IDEImages.LoadImage(16, ResourceName);
end; end else if Section<>nil then
Section.Invalidate(SectionIndex,SectionIndex);
end; end;
procedure TIDEMenuItem.SetName(const AValue: string); procedure TIDEMenuItem.SetName(const AValue: string);
@ -713,6 +714,8 @@ begin
FMenuItem.Free; FMenuItem.Free;
end; end;
FMenuItem:=nil; FMenuItem:=nil;
if Section<>nil then
Section.Invalidate(SectionIndex,SectionIndex);
end; end;
constructor TIDEMenuItem.Create(const TheName: string); constructor TIDEMenuItem.Create(const TheName: string);
@ -917,6 +920,7 @@ begin
FreeSeparators; FreeSeparators;
for i:=0 to Count-1 do Items[i].ClearMenuItems; for i:=0 to Count-1 do Items[i].ClearMenuItems;
inherited ClearMenuItems; inherited ClearMenuItems;
Invalidate(0,Count-1);
end; end;
procedure TIDEMenuSection.UpdateChildsIndex(StartIndex: Integer); procedure TIDEMenuSection.UpdateChildsIndex(StartIndex: Integer);
@ -1377,7 +1381,8 @@ begin
// add all siblings in front // add all siblings in front
SiblingIndex:=0; SiblingIndex:=0;
while (Section[SiblingIndex]<>Self) do begin while (Section[SiblingIndex]<>Self) do begin
inc(Result,Section[SiblingIndex].Size); if Section[SiblingIndex].Visible then
inc(Result,Section[SiblingIndex].Size);
inc(SiblingIndex); inc(SiblingIndex);
end; end;
// add separator // add separator

3
packager/packageeditor.pas
View File

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