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

Bug fix: Pressing refresh button after update crashes OPM. Bug reported by @minesadorada.

Browse Source 
git-svn-id: trunk@53640 -
This commit is contained in:
balazs 2016-12-11 18:26:22 +00:00
parent 6dfd84797d
commit 4713fdef72
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -151,6 +151,8 @@ begin
PackageDownloader.OnJSONDownloadCompleted := @DoOnJSONDownloadCompleted; PackageDownloader.OnJSONDownloadCompleted := @DoOnJSONDownloadCompleted;
Updates := TUpdates.Create(LocalRepositoryUpdatesFile); Updates := TUpdates.Create(LocalRepositoryUpdatesFile);
Updates.OnUpdate := @DoOnUpdate; Updates.OnUpdate := @DoOnUpdate;
Updates.StartUpdate;
Updates.PauseUpdate;
InstallPackageList := TObjectList.Create(True); InstallPackageList := TObjectList.Create(True);
FHintTimeOut := Application.HintHidePause; FHintTimeOut := Application.HintHidePause;
Application.HintHidePause := 1000000; Application.HintHidePause := 1000000;

3
components/onlinepackagemanager/opkman_updates.pas
View File

@ -96,7 +96,6 @@ type
procedure StopUpdate; procedure StopUpdate;
procedure PauseUpdate; procedure PauseUpdate;
published published
property IsPaused: Boolean read FPaused;
property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate; property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate;
end; end;
@ -497,11 +496,11 @@ end;
procedure TUpdates.StartUpdate; procedure TUpdates.StartUpdate;
begin begin
FOpenSSLAvaialable := False;
Load; Load;
FPaused := False; FPaused := False;
if FStarted then if FStarted then
Exit; Exit;
FOpenSSLAvaialable := False;
FStarted := True; FStarted := True;
FTimer := TThreadTimer.Create; FTimer := TThreadTimer.Create;
FTimer.Interval := UpdateInterval; FTimer.Interval := UpdateInterval;