paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 15:00:26 +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; end;
begin begin
debugln(['TPackageEditorForm.FilesPopupMenuPopup START ',FilesPopupMenu.Items.Count]); //debugln(['TPackageEditorForm.FilesPopupMenuPopup START ',FilesPopupMenu.Items.Count]);
PackageEditorMenuRoot.MenuItem:=FilesPopupMenu.Items; PackageEditorMenuRoot.MenuItem:=FilesPopupMenu.Items;
debugln(['TPackageEditorForm.FilesPopupMenuPopup START after connect ',FilesPopupMenu.Items.Count]); //debugln(['TPackageEditorForm.FilesPopupMenuPopup START after connect ',FilesPopupMenu.Items.Count]);
PackageEditorMenuRoot.BeginUpdate; PackageEditorMenuRoot.BeginUpdate;
try try
@ -568,7 +568,7 @@ begin
SetItem(PkgEditMenuRemoveFile,@RemoveBitBtnClick,not Removed,RemoveBitBtn.Enabled); SetItem(PkgEditMenuRemoveFile,@RemoveBitBtnClick,not Removed,RemoveBitBtn.Enabled);
SetItem(PkgEditMenuMoveFileUp,@MoveFileUpMenuItemClick,not Removed,(FileIndex>0) and Writable); SetItem(PkgEditMenuMoveFileUp,@MoveFileUpMenuItemClick,not Removed,(FileIndex>0) and Writable);
SetItem(PkgEditMenuMoveFileDown,@MoveFileDownMenuItemClick, SetItem(PkgEditMenuMoveFileDown,@MoveFileDownMenuItemClick,
not Removed,(FileIndex>LazPackage.FileCount-1) and Writable); not Removed,(FileIndex<LazPackage.FileCount-1) and Writable);
PkgEditMenuSectionFileType.Visible:=true; PkgEditMenuSectionFileType.Visible:=true;
AddFileTypeMenuItem; AddFileTypeMenuItem;
SetItem(PkgEditMenuEditVirtualUnit,@EditVirtualUnitMenuItemClick, SetItem(PkgEditMenuEditVirtualUnit,@EditVirtualUnitMenuItemClick,