paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 22:33:26 +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);
var
CurDependency: TPkgDependency;
i: Integer;
TVNode: TTreeNode;
NodeData: TPENodeData;
Item: TObject;
NodeText: String;
ImageIndex: Integer;
i, ImgInd: Integer;
begin
BeginUpdate;
try
DebugLn(['TProjectInspectorForm.PackageListAvailable: Start']);
for i:=0 to ItemsTreeView.Items.Count-1 do begin
TVNode:=ItemsTreeView.Items[i];
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);
if CurDependency.DependencyType = pdtFPMake then continue;
NodeText:=CurDependency.AsString;
ImageIndex:=FPropGui.GetDependencyImageIndex(CurDependency);
if ImageIndex = FPropGui.ImageIndexAvailableOnline then
ImgInd:=FPropGui.GetDependencyImageIndex(CurDependency);
if ImgInd = FPropGui.ImageIndexAvailableOnline then
NodeText:=NodeText+' '+lisPckEditAvailableOnline;
TVNode.Text:=NodeText;
TVNode.ImageIndex:=ImageIndex;
TVNode.SelectedIndex:=ImageIndex;
TVNode.ImageIndex:=ImgInd;
TVNode.SelectedIndex:=ImgInd;
end;
finally
EndUpdate;