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

IDE: package editor: menu items for use all/use no units in directory

Browse Source 
git-svn-id: trunk@29110 -
This commit is contained in:
mattias 2011-01-18 14:30:38 +00:00
parent 397deec80b
commit 5b86f12ca7
2 changed files with 61 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -3772,6 +3772,8 @@ resourcestring
lisAF2PFileType = 'File Type';
lisPEExpandDirectory = 'Expand directory';
lisPECollapseDirectory = 'Collapse directory';
lisPEUseAllUnitsInDirectory = 'Use all units in directory';
lisPEUseNoUnitsInDirectory = 'Use no units in directory';
lisAF2PDestinationPackage = 'Destination Package';
lisAF2PShowAll = 'Show All';
lisAF2PAddFileToAPackage = 'Add file to a package';

60
packager/packageeditor.pas
View File

@ -63,6 +63,8 @@ var
PkgEditMenuExpandDirectory: TIDEMenuCommand;
PkgEditMenuCollapseDirectory: TIDEMenuCommand;
PkgEditMenuUseAllUnitsInDirectory: TIDEMenuCommand;
PkgEditMenuUseNoUnitsInDirectory: TIDEMenuCommand;
PkgEditMenuOpenPackage: TIDEMenuCommand;
PkgEditMenuRemoveDependency: TIDEMenuCommand;
@ -234,8 +236,10 @@ type
procedure SortAlphabeticallySpeedButtonClick(Sender: TObject);
procedure SortFilesMenuItemClick(Sender: TObject);
procedure UninstallClick(Sender: TObject);
procedure UseAllUnitsInDirectoryMenuItemClick(Sender: TObject);
procedure UseMaxVersionCheckBoxChange(Sender: TObject);
procedure UseMinVersionCheckBoxChange(Sender: TObject);
procedure UseNoUnitsInDirectoryMenuItemClick(Sender: TObject);
procedure UsePopupMenuPopup(Sender: TObject);
procedure ViewPkgSourceClick(Sender: TObject);
procedure ViewPkgTodosClick(Sender: TObject);
@ -296,6 +300,7 @@ type
procedure DoEditVirtualUnit;
procedure DoExpandDirectory;
procedure DoCollapseDirectory;
procedure DoUseUnitsInDirectory(Use: boolean);
procedure DoRevert;
procedure DoSave(SaveAs: boolean);
procedure DoSortFiles;
@ -451,6 +456,8 @@ begin
AParent:=PkgEditMenuSectionDirectory;
PkgEditMenuExpandDirectory:=RegisterIDEMenuCommand(AParent,'Expand directory',lisPEExpandDirectory);
PkgEditMenuCollapseDirectory:=RegisterIDEMenuCommand(AParent, 'Collapse directory', lisPECollapseDirectory);
PkgEditMenuUseAllUnitsInDirectory:=RegisterIDEMenuCommand(AParent, 'Use all units in directory', lisPEUseAllUnitsInDirectory);
PkgEditMenuUseNoUnitsInDirectory:=RegisterIDEMenuCommand(AParent, 'Use no units in directory', lisPEUseNoUnitsInDirectory);
// register the section for operations on single dependencies
PkgEditMenuSectionDependency:=RegisterIDEMenuSection(PackageEditorMenuRoot,'Dependency');
@ -651,6 +658,8 @@ begin
if IsDir and ShowDirectoryHierarchy then begin
SetItem(PkgEditMenuExpandDirectory,@ExpandDirectoryMenuItemClick);
SetItem(PkgEditMenuCollapseDirectory,@CollapseDirectoryMenuItemClick);
SetItem(PkgEditMenuUseAllUnitsInDirectory,@UseAllUnitsInDirectoryMenuItemClick);
SetItem(PkgEditMenuUseNoUnitsInDirectory,@UseNoUnitsInDirectoryMenuItemClick);
end;
// items for all files
@ -1080,6 +1089,12 @@ begin
PackageEditors.UninstallPackage(LazPackage);
end;
procedure TPackageEditorForm.UseAllUnitsInDirectoryMenuItemClick(Sender: TObject
);
begin
DoUseUnitsInDirectory(true);
end;
procedure TPackageEditorForm.ViewPkgSourceClick(Sender: TObject);
begin
PackageEditors.ViewPkgSource(LazPackage);
@ -1102,6 +1117,12 @@ begin
UpdateApplyDependencyButton;
end;
procedure TPackageEditorForm.UseNoUnitsInDirectoryMenuItemClick(Sender: TObject
);
begin
DoUseUnitsInDirectory(false);
end;
procedure TPackageEditorForm.FilePropsGroupBoxResize(Sender: TObject);
begin
end;
@ -2464,13 +2485,50 @@ begin
if not (IsDirectoryNode(CurNode) or (CurNode=FFilesNode)) then exit;
FilesTreeView.BeginUpdate;
Node:=CurNode.GetFirstChild;
while Node<>nil do begin
while Node<>nil do
begin
Node.Collapse(true);
Node:=Node.GetNextSibling;
end;
FilesTreeView.EndUpdate;
end;
procedure TPackageEditorForm.DoUseUnitsInDirectory(Use: boolean);
procedure Traverse(Node: TTreeNode);
var
PkgFile: TPkgFile;
begin
if TObject(Node.Data) is TPkgEditFileItem then
begin
PkgFile:=LazPackage.FindPkgFile(TPkgEditFileItem(Node.Data).Filename,true,true);
if (PkgFile<>nil) and (PkgFile.FileType in [pftUnit,pftVirtualUnit]) then
begin
if PkgFile.AddToUsesPkgSection<>Use then
begin
PkgFile.AddToUsesPkgSection:=Use;
LazPackage.Modified:=true;
end;
end;
end;
Node:=Node.GetFirstChild;
while Node<>nil do
begin
Traverse(Node);
Node:=Node.GetNextSibling;
end;
end;
var
CurNode: TTreeNode;
begin
if not ShowDirectoryHierarchy then exit;
CurNode:=FilesTreeView.Selected;
if not (IsDirectoryNode(CurNode) or (CurNode=FFilesNode)) then exit;
Traverse(CurNode);
UpdateSelectedFile;
end;
procedure TPackageEditorForm.DoMoveCurrentFile(Offset: integer);
var
Removed: boolean;