moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 16:55:01 -05:00
Code Issues Releases Wiki Activity

Simba: Updater only shows when required.

Browse Source 
If there's no update, it won't show.
This commit is contained in:
Merlijn Wajer 2011-02-23 13:42:06 +01:00
parent ff7228ba70
commit 1374e2be21
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Projects/Simba/simbaunit.pas
View File

@ -883,7 +883,10 @@ end;
procedure TSimbaForm.UpdateMenuButtonClick(Sender: TObject); procedure TSimbaForm.UpdateMenuButtonClick(Sender: TObject);
begin begin
SimbaUpdateForm.ShowModal; if SimbaUpdateForm.CanUpdate then
SimbaUpdateForm.ShowModal
else
ShowMessage('No Updates Available!');
end; end;
procedure ClearDebug; procedure ClearDebug;

2
Projects/Simba/updateform.pas
View File

@ -162,7 +162,7 @@ begin
Self.DownloadSpeed.Visible := false; Self.DownloadSpeed.Visible := false;
if not CanUpdate then if not CanUpdate then
begin begin
ShowMessage('No Updates Available!'); //ShowMessage('No Updates Available!');
Self.UpdateLog.Lines.Add('No Updates Available!'); Self.UpdateLog.Lines.Add('No Updates Available!');
Self.UpdateButton.Enabled := False; Self.UpdateButton.Enabled := False;
end else end else