Simba: Updater only shows when required.

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

View File

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

View File

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