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

IDE: package editor: fixed move file down, bug #16944

Browse Source 
git-svn-id: trunk@26675 -
This commit is contained in:
mattias 2010-07-16 07:01:14 +00:00
parent 641d21cd17
commit ac4ce25717
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packager/packageeditor.pas
View File

@ -546,9 +546,9 @@ var
end;
begin
debugln(['TPackageEditorForm.FilesPopupMenuPopup START ',FilesPopupMenu.Items.Count]);
//debugln(['TPackageEditorForm.FilesPopupMenuPopup START ',FilesPopupMenu.Items.Count]);
PackageEditorMenuRoot.MenuItem:=FilesPopupMenu.Items;
debugln(['TPackageEditorForm.FilesPopupMenuPopup START after connect ',FilesPopupMenu.Items.Count]);
//debugln(['TPackageEditorForm.FilesPopupMenuPopup START after connect ',FilesPopupMenu.Items.Count]);
PackageEditorMenuRoot.BeginUpdate;
try
@ -568,7 +568,7 @@ begin
SetItem(PkgEditMenuRemoveFile,@RemoveBitBtnClick,not Removed,RemoveBitBtn.Enabled);
SetItem(PkgEditMenuMoveFileUp,@MoveFileUpMenuItemClick,not Removed,(FileIndex>0) and Writable);
SetItem(PkgEditMenuMoveFileDown,@MoveFileDownMenuItemClick,
not Removed,(FileIndex>LazPackage.FileCount-1) and Writable);
not Removed,(FileIndex<LazPackage.FileCount-1) and Writable);
PkgEditMenuSectionFileType.Visible:=true;
AddFileTypeMenuItem;
SetItem(PkgEditMenuEditVirtualUnit,@EditVirtualUnitMenuItemClick,