From 26a627e7b54fdfba466375ca9b69ac42b9882cb6 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Mon, 1 Aug 2011 16:25:41 +0200
Subject: [PATCH 1/3] MML/Finder: Fix leak in FindBitmapSpiralTolerance.

Effectively only leaked on non-Windows platforms.
---
 Units/MMLCore/finder.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Units/MMLCore/finder.pas b/Units/MMLCore/finder.pas
index d9eef25..bb97efe 100644
--- a/Units/MMLCore/finder.pas
+++ b/Units/MMLCore/finder.pas
@@ -1692,6 +1692,8 @@ begin
 
     end;
     //We did find the Bmp, otherwise we would be at the part below
+    TClient(Client).IOManager.FreeReturnData;
+
     x := ClientTPA[i].x + xs;
     y := ClientTPA[i].y + ys;
     result := true;

From 9eee19a3afe62391e6f44b0efeab9259c9f95408 Mon Sep 17 00:00:00 2001
From: Bentzilla <bentzilla@fsscripts.com>
Date: Sun, 31 Jul 2011 11:28:09 -0400
Subject: [PATCH 2/3] DebugImage always on top, Search box hint, Disable update
 button once successfully updated

---
 Projects/Simba/about.pas             |  1 +
 Projects/Simba/debugimage.pas        |  1 +
 Projects/Simba/framefunctionlist.lfm | 16 +++++++++-------
 Projects/Simba/updateform.pas        |  3 ++-
 4 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/Projects/Simba/about.pas b/Projects/Simba/about.pas
index 9a2a30b..2d6838d 100644
--- a/Projects/Simba/about.pas
+++ b/Projects/Simba/about.pas
@@ -65,6 +65,7 @@ begin
   AboutMemo.Lines.Add(format('You are currently using version: %d',[SimbaUnit.SimbaVersion]));
   AboutMemo.Lines.Add('');
   AboutMemo.Lines.Add('Please report bugs at: http://bugs.villavu.com/');
+  AboutMemo.Enabled := False;
 end;
 
 procedure TAboutForm.OkButtonClick(Sender: TObject);
diff --git a/Projects/Simba/debugimage.pas b/Projects/Simba/debugimage.pas
index f96ab0c..a103a26 100644
--- a/Projects/Simba/debugimage.pas
+++ b/Projects/Simba/debugimage.pas
@@ -110,6 +110,7 @@ begin
     Width := DispSize.x;
     Height := DispSize.y;
   end;
+  FormStyle := fsStayOnTop;
 end;
 
 initialization
diff --git a/Projects/Simba/framefunctionlist.lfm b/Projects/Simba/framefunctionlist.lfm
index b419ecc..f74beb5 100644
--- a/Projects/Simba/framefunctionlist.lfm
+++ b/Projects/Simba/framefunctionlist.lfm
@@ -12,11 +12,11 @@ object FunctionListFrame: TFunctionListFrame
   DesignTop = 200
   object FunctionList: TTreeView
     Left = 0
-    Height = 483
-    Top = 18
+    Height = 479
+    Top = 20
     Width = 182
     Align = alClient
-    DefaultItemHeight = 15
+    DefaultItemHeight = 17
     ReadOnly = True
     ScrollBars = ssAutoBoth
     TabOrder = 0
@@ -28,16 +28,19 @@ object FunctionListFrame: TFunctionListFrame
   end
   object editSearchList: TEdit
     Left = 0
-    Height = 21
-    Top = 501
+    Height = 23
+    Hint = 'Search ...'
+    Top = 499
     Width = 182
     Align = alBottom
     OnChange = editSearchListChange
+    ParentShowHint = False
+    ShowHint = True
     TabOrder = 1
   end
   object FunctionListLabel: TLabel
     Left = 2
-    Height = 14
+    Height = 16
     Top = 2
     Width = 178
     Align = alTop
@@ -55,7 +58,6 @@ object FunctionListFrame: TFunctionListFrame
     Top = 2
     Width = 16
     Anchors = [akTop, akRight]
-    Color = clBtnFace
     Flat = True
     Glyph.Data = {
       36090000424D3609000000000000360000002800000018000000180000000100
diff --git a/Projects/Simba/updateform.pas b/Projects/Simba/updateform.pas
index c38d1bd..1f3566b 100644
--- a/Projects/Simba/updateform.pas
+++ b/Projects/Simba/updateform.pas
@@ -251,7 +251,8 @@ begin
     end;
   end;
   FDone := True;
-  Self.UpdateButton.Caption := 'Update!';
+  Self.UpdateButton.Caption := 'Updated!';
+  Self.UpdateButton.Enabled := False;
   Self.CloseButton.Enabled := true;
   FUpdating:= false;
 end;

From aaafd6b0c1ab958e5b4dffe43b700887a869a4f6 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Mon, 1 Aug 2011 16:30:10 +0200
Subject: [PATCH 3/3] Simba: Aboutform Disabled -> ReadOnly.

---
 Projects/Simba/about.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Projects/Simba/about.pas b/Projects/Simba/about.pas
index 2d6838d..16b5778 100644
--- a/Projects/Simba/about.pas
+++ b/Projects/Simba/about.pas
@@ -65,7 +65,7 @@ begin
   AboutMemo.Lines.Add(format('You are currently using version: %d',[SimbaUnit.SimbaVersion]));
   AboutMemo.Lines.Add('');
   AboutMemo.Lines.Add('Please report bugs at: http://bugs.villavu.com/');
-  AboutMemo.Enabled := False;
+  AboutMemo.ReadOnly:= True;
 end;
 
 procedure TAboutForm.OkButtonClick(Sender: TObject);