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

IDE: package editor: clean up

Browse Source 
git-svn-id: trunk@45452 -
This commit is contained in:
mattias 2014-06-10 11:45:16 +00:00
parent 0741098302
commit be8245f0c8
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packager/packageeditor.pas
View File

@ -22,10 +22,6 @@
Abstract:
TPackageEditorForm is the form of a package editor.
ToDo:
- Multiselect
replace GetCurrentDependency
}
unit PackageEditor;
@ -293,7 +289,6 @@ type
procedure UpdatePEProperties(Immediately: boolean = false);
procedure UpdateApplyDependencyButton(Immediately: boolean = false);
procedure UpdateStatusBar(Immediately: boolean = false);
function GetCurrentDependency(out Removed: boolean): TPkgDependency;
function GetNodeData(TVNode: TTreeNode): TPENodeData;
function GetNodeItem(NodeData: TPENodeData): TObject;
function GetNodeDataItem(TVNode: TTreeNode; out NodeData: TPENodeData;
@ -2513,22 +2508,6 @@ begin
StatusBar.SimpleText:=StatusText;
end;
function TPackageEditorForm.GetCurrentDependency(out Removed: boolean): TPkgDependency;
var
NodeData: TPENodeData;
begin
Result:=nil;
Removed:=false;
NodeData:=GetNodeData(ItemsTreeView.Selected);
if NodeData=nil then exit;
if NodeData.Typ<>penDependency then exit;
Removed:=NodeData.Removed;
if Removed then
Result:=LazPackage.FindRemovedDependencyByName(NodeData.Name)
else
Result:=LazPackage.FindDependencyByName(NodeData.Name);
end;
function TPackageEditorForm.GetNodeData(TVNode: TTreeNode): TPENodeData;
var
o: TObject;