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

Reverted changes for mainform.

Browse Source 
git-svn-id: trunk@53577 -
This commit is contained in:
balazs 2016-12-06 15:29:43 +00:00
parent 110955f1da
commit 2c5a46f7ff
1 changed files with 5 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -144,6 +144,8 @@ begin
PackageDownloader := TPackageDownloader.Create(Options.RemoteRepository);
PackageDownloader.OnJSONProgress := @DoOnJSONProgress;
PackageDownloader.OnJSONDownloadCompleted := @DoOnJSONDownloadCompleted;
Updates := TUpdates.Create(LocalRepositoryUpdatesFile);
Updates.OnUpdate := @DoOnUpdate;
InstallPackageList := TObjectList.Create(True);
FHintTimeOut := Application.HintHidePause;
Application.HintHidePause := 1000000;
@ -154,11 +156,8 @@ end;
procedure TMainFrm.FormDestroy(Sender: TObject);
begin
if Assigned(Updates) then
begin
Updates.StopUpdate;
Updates.Terminate;
end;
Updates.StopUpdate;
Updates.Terminate;
PackageDownloader.Free;
SerializablePackages.Free;
VisualTree.Free;
@ -297,12 +296,7 @@ begin
MessageDlgEx(rsMainFrm_rsMessageError1 + sLineBreak + SerializablePackages.LastError, mtInformation, [mbOk], Self);
Exit;
end;
if not Assigned(Updates) then
begin
Updates := TUpdates.Create(LocalRepositoryUpdatesFile);
Updates.OnUpdate := @DoOnUpdate;
Updates.StartUpdate;
end;
Updates.StartUpdate;
VisualTree.PopulateTree;
EnableDisableControls(True);
SetupMessage;
@ -524,12 +518,6 @@ end;
procedure TMainFrm.tbRefreshClick(Sender: TObject);
begin
if Assigned(Updates) then
begin
Updates.StopUpdate;
Updates.Terminate;
Updates := nil;
end;
VisualTree.VST.Clear;
VisualTree.VST.Invalidate;
GetPackageList;