From e95d7f99cda8e41b4a3525df60ed64e35907a320 Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Sat, 16 Jan 2010 11:17:37 +0000
Subject: [PATCH] Really fix 56.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@419 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Projects/SAMufasaGUI/updateform.lfm |  1 +
 Projects/SAMufasaGUI/updateform.lrs | 29 +++++++++++++++--------------
 Projects/SAMufasaGUI/updateform.pas |  6 ++++++
 3 files changed, 22 insertions(+), 14 deletions(-)

diff --git a/Projects/SAMufasaGUI/updateform.lfm b/Projects/SAMufasaGUI/updateform.lfm
index b81f23e..b9ff63d 100644
--- a/Projects/SAMufasaGUI/updateform.lfm
+++ b/Projects/SAMufasaGUI/updateform.lfm
@@ -8,6 +8,7 @@ object SimbaUpdateForm: TSimbaUpdateForm
   Caption = 'Update Simba'
   ClientHeight = 391
   ClientWidth = 467
+  OnCreate = FormCreate
   OnShow = CleanUpdateForm
   LCLVersion = '0.9.29'
   object DownloadProgress: TProgressBar
diff --git a/Projects/SAMufasaGUI/updateform.lrs b/Projects/SAMufasaGUI/updateform.lrs
index e74bb2b..38a8547 100644
--- a/Projects/SAMufasaGUI/updateform.lrs
+++ b/Projects/SAMufasaGUI/updateform.lrs
@@ -4,18 +4,19 @@ LazarusResources.Add('TSimbaUpdateForm','FORMDATA',[
   'TPF0'#16'TSimbaUpdateForm'#15'SimbaUpdateForm'#4'Left'#3#251#1#6'Height'#3
   +#135#1#3'Top'#3'A'#1#5'Width'#3#211#1#13'ActiveControl'#7#12'UpdateButton'#11
   +'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#12'Update Si'
-  +'mba'#12'ClientHeight'#3#135#1#11'ClientWidth'#3#211#1#6'OnShow'#7#15'CleanU'
-  +'pdateForm'#10'LCLVersion'#6#6'0.9.29'#0#12'TProgressBar'#16'DownloadProgres'
-  +'s'#4'Left'#2#24#6'Height'#2#28#3'Top'#2'H'#5'Width'#3#157#1#7'Anchors'#11#5
-  +'akTop'#6'akLeft'#7'akRight'#0#6'Smooth'#9#8'TabOrder'#2#0#0#0#7'TButton'#12
-  +'UpdateButton'#4'Left'#2#24#6'Height'#2'('#3'Top'#2#16#5'Width'#3#157#1#7'An'
-  +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#7'Update!'#7'OnClick'
-  +#7#17'UpdateButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#8'OkButton'#4'Left'#3
-  +'j'#1#6'Height'#2#25#3'Top'#3'X'#1#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8
-  +'akBottom'#0#7'Caption'#6#2'Ok'#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2
-  +#2#0#0#7'TButton'#12'CancelButton'#4'Left'#2#24#6'Height'#2#25#3'Top'#3'X'#1
-  +#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#6'Cancel'#7
-  +'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#3#0#0#5'TMemo'#9'UpdateLog'#4
-  +'Left'#2#24#6'Height'#3#207#0#3'Top'#2'x'#5'Width'#3#157#1#7'Anchors'#11#5'a'
-  +'kTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'TabOrder'#2#4#0#0#0
+  +'mba'#12'ClientHeight'#3#135#1#11'ClientWidth'#3#211#1#8'OnCreate'#7#10'Form'
+  +'Create'#6'OnShow'#7#15'CleanUpdateForm'#10'LCLVersion'#6#6'0.9.29'#0#12'TPr'
+  +'ogressBar'#16'DownloadProgress'#4'Left'#2#24#6'Height'#2#28#3'Top'#2'H'#5'W'
+  +'idth'#3#157#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#6'Smooth'#9#8'T'
+  +'abOrder'#2#0#0#0#7'TButton'#12'UpdateButton'#4'Left'#2#24#6'Height'#2'('#3
+  +'Top'#2#16#5'Width'#3#157#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7
+  +'Caption'#6#7'Update!'#7'OnClick'#7#17'UpdateButtonClick'#8'TabOrder'#2#1#0#0
+  +#7'TButton'#8'OkButton'#4'Left'#3'j'#1#6'Height'#2#25#3'Top'#3'X'#1#5'Width'
+  +#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#2'Ok'#7'OnClick'#7
+  +#13'OkButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#12'CancelButton'#4'Left'#2
+  +#24#6'Height'#2#25#3'Top'#3'X'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akB'
+  +'ottom'#0#7'Caption'#6#6'Cancel'#7'OnClick'#7#17'CancelButtonClick'#8'TabOrd'
+  +'er'#2#3#0#0#5'TMemo'#9'UpdateLog'#4'Left'#2#24#6'Height'#3#207#0#3'Top'#2'x'
+  +#5'Width'#3#157#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8
+  +'TabOrder'#2#4#0#0#0
 ]);
\ No newline at end of file
diff --git a/Projects/SAMufasaGUI/updateform.pas b/Projects/SAMufasaGUI/updateform.pas
index 924f32d..b6722ab 100644
--- a/Projects/SAMufasaGUI/updateform.pas
+++ b/Projects/SAMufasaGUI/updateform.pas
@@ -29,6 +29,7 @@ type
     DownloadProgress: TProgressBar;
     procedure CancelButtonClick(Sender: TObject);
     procedure CleanUpdateForm(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure OkButtonClick(Sender: TObject);
     procedure UpdateButtonClick(Sender: TObject);
     function CanUpdate: Boolean;
@@ -125,6 +126,11 @@ begin
   Self.UpdateLog.Lines.Add('---------- Update Session ----------');
 end;
 
+procedure TSimbaUpdateForm.FormCreate(Sender: TObject);
+begin
+  FDone := True;
+end;
+
 procedure TSimbaUpdateForm.OkButtonClick(Sender: TObject);
 begin
   Self.ModalResult:=mrOK;