From 54efac8f52cb2b9dec7a4d12d8b1035e36d38e56 Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Wed, 23 Dec 2009 00:54:31 +0000
Subject: [PATCH] Probably fixed bug in SaveScreenshot on Windows.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@323 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Units/MMLAddon/PSInc/Wrappers/other.inc | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/Units/MMLAddon/PSInc/Wrappers/other.inc b/Units/MMLAddon/PSInc/Wrappers/other.inc
index 515be76..d987cbb 100644
--- a/Units/MMLAddon/PSInc/Wrappers/other.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/other.inc
@@ -45,16 +45,13 @@ end;
 procedure SaveScreenshot(FileName: string);
 var
   w,h : integer;
+  bmp: TMufasaBitmap;
 begin;
-  with CurrThread.Client.MWindow do
-  begin;
-    GetDimensions(w,h);
-    with CopyClientToBitmap(0,0,w-1,h-1) do
-    begin;
-      SaveToFile(FileName);
-      Free;
-    end;
-  end;
+  CurrThread.Client.MWindow.GetDimensions(w,h);
+  bmp := TMufasaBitmap.Create;
+  bmp.CopyClientToBitmap(CurrThread.Client.MWindow,True,0,0,w-1,h-1);
+  bmp.SaveToFile(FileName);
+  bmp.Free;
 end;
 
 function CreateForm : TForm;