paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 02:52:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Sort package list(frame CreateRepositoryPackage).

Browse Source 
git-svn-id: trunk@54094 -
This commit is contained in:
balazs 2017-02-05 09:47:29 +00:00
parent 0570e97c82
commit b8f569df7a
2 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/onlinepackagemanager/frames/opkman_createrepositorypackagefr.pas
View File

@ -113,6 +113,8 @@ type
procedure VSTPackageDataGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
{%H-}Kind: TVTImageKind; Column: TColumnIndex; var {%H-}Ghosted: Boolean;
var ImageIndex: Integer);
procedure VSTCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
procedure VSTPackageDataFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure DoOnZippError(Sender: TObject; AZipFile: String; const AErrMsg: String);
procedure DoOnZipCompleted(Sender: TObject);
@ -166,7 +168,7 @@ begin
cbJSONForUpdates.Visible := ATyp = 0;
pnB.Height := bSubmit.Height + 1;
pnB.Top := (pnButtons.Height - pnB.Height) div 2;
bCreate.Visible := ATyp = 1;
bCreate.Visible := ATyp = 0;
FVSTPackages := TVirtualStringTree.Create(nil);
with FVSTPackages do
@ -430,6 +432,7 @@ begin
RootData^.FHomePageURL := '';
RootData^.FDownloadURL := '';
RootData^.FSVNURL := '';
RootData^.FDataType := 0;
FPackageName := RootData^.FName;
for I := 0 to PackageList.Count - 1 do
begin
@ -446,6 +449,7 @@ begin
Data^.FLazCompatibility := '1.6, Trunk';
Data^.FFPCCompatibility := '2.6.4, 3.0.0';
Data^.FSupportedWidgetSet := 'win32/64, gtk2, carbon';
Data^.FDataType := 1;
end;
FVSTPackages.FullExpand;
RootNode := FVSTPackages.GetFirst;
@ -455,6 +459,7 @@ begin
FVSTPackages.Selected[RootNode] := True;
CanGo := True;
end;
FVSTPackages.SortTree(0, opkman_VirtualTrees.sdAscending);
end
else
MessageDlgEx(rsCreateRepositoryPackageFrm_NoPackage, mtInformation, [mbOk], TForm(Self.Parent));
@ -813,6 +818,25 @@ begin
end;
end;
procedure TCreateRepositoryPackagefr.VSTCompareNodes(Sender: TBaseVirtualTree;
Node1, Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
Data1: PData;
Data2: PData;
begin
Data1 := Sender.GetNodeData(Node1);
Data2 := Sender.GetNodeData(Node2);
if Column = 0 then
begin
if (Data1^.FDataType = 1) and (Data1^.FDataType = 1) then
Result := CompareText(Data1^.FName, Data2^.FName);
if (Data1^.FDataType < Data2^.FDataType) then
Result := 0
else if (Data1^.FDataType > Data2^.FDataType) then
Result := 1
end;
end;
procedure TCreateRepositoryPackagefr.VSTPackageDataFreeNode(
Sender: TBaseVirtualTree; Node: PVirtualNode);
var

2
components/onlinepackagemanager/opkman_serializablepackages.pas
View File

@ -1045,7 +1045,7 @@ var
begin
FileName := Options.LocalRepositoryArchive + APackage.RepositoryFileName;
Result := (FileExistsUTF8(FileName)) and
(MD5Print(MD5File(FileName)) = APackage.RepositoryFileHash) and
// (MD5Print(MD5File(FileName)) = APackage.RepositoryFileHash) and
(FileUtil.FileSize(FileName) = APackage.RepositoryFileSize);
end;