From c57c8dd50ef172fed78161d7cb29b2cec420e3f0 Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Sun, 7 Mar 2010 21:22:02 +0000
Subject: [PATCH] Better order or drawing..

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@585 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 trunk/Projects/SAMufasaGUI/testunit.pas | 2 +-
 trunk/Units/MMLAddon/windowselector.pas | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/trunk/Projects/SAMufasaGUI/testunit.pas b/trunk/Projects/SAMufasaGUI/testunit.pas
index 6716275..8727e7a 100644
--- a/trunk/Projects/SAMufasaGUI/testunit.pas
+++ b/trunk/Projects/SAMufasaGUI/testunit.pas
@@ -44,7 +44,7 @@ uses
   about, framefunctionlist, ocr, updateform, simbasettings;
 
 const
-    SimbaVersion = 581;
+    SimbaVersion = 585;
 
 type
 
diff --git a/trunk/Units/MMLAddon/windowselector.pas b/trunk/Units/MMLAddon/windowselector.pas
index cd9c095..2556d71 100644
--- a/trunk/Units/MMLAddon/windowselector.pas
+++ b/trunk/Units/MMLAddon/windowselector.pas
@@ -192,14 +192,14 @@ begin;
       DragForm.SetBounds(TargetRect.Left,TargetRect.top,W,H);//Draw the transparent form
 
       SetWindowRgn(EdgeForm.Handle,0,false);//Delete the old region
-      EdgeForm.SetBounds(TargetRect.Left,TargetRect.top,W,H);//Move the form etc..
       Region := CreateRectRgn(0,0,w-1,h-1); //Create a full region, of the whole form
       CombineRgn(Region,Region,CreateRectRgn(EdgeSize,EdgeSize,w-1-(edgesize),h-1-(edgesize)),RGN_XOR); //Combine a the 2 regions (of the full form and one without the edges)
       SetWindowRgn(edgeform.Handle,Region,true);//Set the only-edge-region!
+      EdgeForm.SetBounds(TargetRect.Left,TargetRect.top,W,H);//Move the form etc..
       TempHandle  := Handle;
     end;
     Application.ProcessMessages;
-    Sleep(64);
+    Sleep(30);
   end;
   Result := TempHandle;
   LastPick:= TempHandle;