paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-18 23:09:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

Package editor: disable Up/Down buttons when a removed file is selected.

Browse Source 
git-svn-id: trunk@43632 -
This commit is contained in:
juha 2014-01-02 18:16:44 +00:00
parent c8cb0503bd
commit c68a19a53a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packager/packageeditor.pas
View File

@ -1893,7 +1893,8 @@ begin
IsDir:=IsDirectoryNode(CurNode) or (CurNode=FFilesNode);
CurFilename:='';
HasLFM:=false;
if (FSelectedFile<>nil) and (FSelectedFile.FileType in PkgFileRealUnitTypes) then begin
if (FSelectedFile<>nil) and (FSelectedFile.FileType in PkgFileRealUnitTypes) then
begin
CurFilename:=FSelectedFile.GetFullFilename;
HasLFM:=FilenameIsAbsolute(CurFilename)
and FileExistsCached(ChangeFileExt(CurFilename,'.lfm'));
@ -1913,7 +1914,8 @@ begin
and LazPackage.EnableI18NForLFM;
FDirSummaryLabel.Visible:=IsDir;
b:=(Assigned(FSelectedFile) or Assigned(FSelectedDependency)) and not SortAlphabetically;
b:=(Assigned(FSelectedFile) or Assigned(FSelectedDependency))
and not (SortAlphabetically or Removed);
MoveUpBtn.Enabled :=b and Assigned(CurNode.GetPrevVisibleSibling);
MoveDownBtn.Enabled:=b and Assigned(CurNode.GetNextVisibleSibling);