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

IDE: Support installing online packages also from Package Editor.

Browse Source 
git-svn-id: trunk@63953 -
This commit is contained in:
juha 2020-10-04 17:34:09 +00:00
parent 63be6f778d
commit 0907626dec
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/projectinspector.pas
View File

@ -1323,27 +1323,28 @@ end;
procedure TProjectInspectorForm.PackageListAvailable(Sender: TObject); procedure TProjectInspectorForm.PackageListAvailable(Sender: TObject);
var var
CurDependency: TPkgDependency; CurDependency: TPkgDependency;
i: Integer;
TVNode: TTreeNode; TVNode: TTreeNode;
NodeData: TPENodeData; NodeData: TPENodeData;
Item: TObject; Item: TObject;
NodeText: String; NodeText: String;
ImageIndex: Integer; i, ImgInd: Integer;
begin begin
BeginUpdate; BeginUpdate;
try try
DebugLn(['TProjectInspectorForm.PackageListAvailable: Start']);
for i:=0 to ItemsTreeView.Items.Count-1 do begin for i:=0 to ItemsTreeView.Items.Count-1 do begin
TVNode:=ItemsTreeView.Items[i]; TVNode:=ItemsTreeView.Items[i];
if not GetNodeDataItem(TVNode,NodeData,Item) then continue; if not GetNodeDataItem(TVNode,NodeData,Item) then continue;
if not (Item is TPkgDependency) or (TPkgDependency(Item).DependencyType=pdtFPMake) then continue; if not (Item is TPkgDependency) then continue;
CurDependency:=TPkgDependency(Item); CurDependency:=TPkgDependency(Item);
if CurDependency.DependencyType = pdtFPMake then continue;
NodeText:=CurDependency.AsString; NodeText:=CurDependency.AsString;
ImageIndex:=FPropGui.GetDependencyImageIndex(CurDependency); ImgInd:=FPropGui.GetDependencyImageIndex(CurDependency);
if ImageIndex = FPropGui.ImageIndexAvailableOnline then if ImgInd = FPropGui.ImageIndexAvailableOnline then
NodeText:=NodeText+' '+lisPckEditAvailableOnline; NodeText:=NodeText+' '+lisPckEditAvailableOnline;
TVNode.Text:=NodeText; TVNode.Text:=NodeText;
TVNode.ImageIndex:=ImageIndex; TVNode.ImageIndex:=ImgInd;
TVNode.SelectedIndex:=ImageIndex; TVNode.SelectedIndex:=ImgInd;
end; end;
finally finally
EndUpdate; EndUpdate;