From 1374e2be2196d0221bbc78ebf4e8d908d4f226e1 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Wed, 23 Feb 2011 13:42:06 +0100
Subject: [PATCH] Simba: Updater only shows when required.

If there's no update, it won't show.
---
 Projects/Simba/simbaunit.pas  | 5 ++++-
 Projects/Simba/updateform.pas | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index 1f4bb92..0880749 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -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;
diff --git a/Projects/Simba/updateform.pas b/Projects/Simba/updateform.pas
index 7a2eb12..c38d1bd 100644
--- a/Projects/Simba/updateform.pas
+++ b/Projects/Simba/updateform.pas
@@ -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