From e706a5fd387b7ece88f8cf2ccef7583dfa9f02a7 Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Wed, 9 Sep 2009 22:11:50 +0000
Subject: [PATCH] Fix for 64 bit.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@35 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Projects/SAMufasaGUI/project1.lpi | 92 +++++++++++++++++--------------
 Units/MMLCore/input.pas           |  4 +-
 2 files changed, 52 insertions(+), 44 deletions(-)

diff --git a/Projects/SAMufasaGUI/project1.lpi b/Projects/SAMufasaGUI/project1.lpi
index 2942796..8d8dfcd 100644
--- a/Projects/SAMufasaGUI/project1.lpi
+++ b/Projects/SAMufasaGUI/project1.lpi
@@ -319,9 +319,7 @@
         <UnitName Value="compFiles"/>
         <CursorPos X="18" Y="8"/>
         <TopLine Value="1"/>
-        <EditorIndex Value="9"/>
         <UsageCount Value="25"/>
-        <Loaded Value="True"/>
       </Unit39>
       <Unit40>
         <Filename Value="../../Units/MMLCore/files.pas"/>
@@ -355,9 +353,7 @@
         <UnitName Value="CompTypes"/>
         <CursorPos X="80" Y="9"/>
         <TopLine Value="1"/>
-        <EditorIndex Value="10"/>
         <UsageCount Value="15"/>
-        <Loaded Value="True"/>
       </Unit43>
       <Unit44>
         <Filename Value="../../Units/MMLCore/windowutil.pas"/>
@@ -371,8 +367,8 @@
       <Unit45>
         <Filename Value="../../Units/MMLCore/input.pas"/>
         <UnitName Value="Input"/>
-        <CursorPos X="34" Y="211"/>
-        <TopLine Value="193"/>
+        <CursorPos X="36" Y="203"/>
+        <TopLine Value="168"/>
         <EditorIndex Value="8"/>
         <UsageCount Value="13"/>
         <Loaded Value="True"/>
@@ -382,7 +378,7 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="finder"/>
         <CursorPos X="24" Y="130"/>
-        <TopLine Value="1"/>
+        <TopLine Value="87"/>
         <EditorIndex Value="1"/>
         <UsageCount Value="22"/>
         <Loaded Value="True"/>
@@ -395,99 +391,111 @@
         <UsageCount Value="10"/>
       </Unit47>
     </Units>
-    <JumpHistory Count="23" HistoryIndex="22">
+    <JumpHistory Count="26" HistoryIndex="25">
       <Position1>
-        <Filename Value="../../../cogat/Units/CogatUnits/compfiles.pas"/>
-        <Caret Line="8" Column="18" TopLine="1"/>
-      </Position1>
-      <Position2>
         <Filename Value="../../Units/MMLCore/client.pas"/>
         <Caret Line="31" Column="71" TopLine="14"/>
+      </Position1>
+      <Position2>
+        <Filename Value="../../Units/MMLCore/window.pas"/>
+        <Caret Line="157" Column="52" TopLine="141"/>
       </Position2>
       <Position3>
         <Filename Value="../../Units/MMLCore/window.pas"/>
-        <Caret Line="157" Column="52" TopLine="141"/>
+        <Caret Line="232" Column="59" TopLine="217"/>
       </Position3>
       <Position4>
         <Filename Value="../../Units/MMLCore/window.pas"/>
-        <Caret Line="232" Column="59" TopLine="217"/>
+        <Caret Line="236" Column="29" TopLine="217"/>
       </Position4>
       <Position5>
-        <Filename Value="../../Units/MMLCore/window.pas"/>
-        <Caret Line="236" Column="29" TopLine="217"/>
-      </Position5>
-      <Position6>
         <Filename Value="../../Units/MMLCore/client.pas"/>
         <Caret Line="1" Column="1" TopLine="1"/>
-      </Position6>
-      <Position7>
+      </Position5>
+      <Position6>
         <Filename Value="../../Units/MMLCore/window.pas"/>
         <Caret Line="106" Column="10" TopLine="91"/>
+      </Position6>
+      <Position7>
+        <Filename Value="../../Units/MMLCore/windowutil.pas"/>
+        <Caret Line="21" Column="37" TopLine="1"/>
       </Position7>
       <Position8>
         <Filename Value="../../Units/MMLCore/windowutil.pas"/>
-        <Caret Line="21" Column="37" TopLine="1"/>
+        <Caret Line="109" Column="35" TopLine="86"/>
       </Position8>
       <Position9>
         <Filename Value="../../Units/MMLCore/windowutil.pas"/>
-        <Caret Line="109" Column="35" TopLine="86"/>
+        <Caret Line="34" Column="34" TopLine="24"/>
       </Position9>
       <Position10>
-        <Filename Value="../../Units/MMLCore/windowutil.pas"/>
-        <Caret Line="34" Column="34" TopLine="24"/>
+        <Filename Value="../../Units/MMLCore/files.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position10>
       <Position11>
         <Filename Value="../../Units/MMLCore/files.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="213" Column="5" TopLine="203"/>
       </Position11>
       <Position12>
-        <Filename Value="../../Units/MMLCore/files.pas"/>
-        <Caret Line="213" Column="5" TopLine="203"/>
-      </Position12>
-      <Position13>
         <Filename Value="../../Units/MMLCore/input.pas"/>
         <Caret Line="1" Column="1" TopLine="1"/>
-      </Position13>
-      <Position14>
+      </Position12>
+      <Position13>
         <Filename Value="../../Units/MMLCore/client.pas"/>
         <Caret Line="8" Column="53" TopLine="1"/>
+      </Position13>
+      <Position14>
+        <Filename Value="../../Units/MMLCore/finder.pas"/>
+        <Caret Line="35" Column="5" TopLine="31"/>
       </Position14>
       <Position15>
         <Filename Value="../../Units/MMLCore/finder.pas"/>
-        <Caret Line="35" Column="5" TopLine="31"/>
+        <Caret Line="92" Column="48" TopLine="75"/>
       </Position15>
       <Position16>
         <Filename Value="../../Units/MMLCore/finder.pas"/>
-        <Caret Line="92" Column="48" TopLine="75"/>
+        <Caret Line="84" Column="12" TopLine="64"/>
       </Position16>
       <Position17>
-        <Filename Value="../../Units/MMLCore/finder.pas"/>
-        <Caret Line="84" Column="12" TopLine="64"/>
+        <Filename Value="testunit.pas"/>
+        <Caret Line="84" Column="18" TopLine="69"/>
       </Position17>
       <Position18>
         <Filename Value="testunit.pas"/>
-        <Caret Line="84" Column="18" TopLine="69"/>
+        <Caret Line="88" Column="30" TopLine="65"/>
       </Position18>
       <Position19>
         <Filename Value="testunit.pas"/>
-        <Caret Line="88" Column="30" TopLine="65"/>
+        <Caret Line="87" Column="16" TopLine="69"/>
       </Position19>
       <Position20>
         <Filename Value="testunit.pas"/>
-        <Caret Line="87" Column="16" TopLine="69"/>
+        <Caret Line="90" Column="41" TopLine="75"/>
       </Position20>
       <Position21>
-        <Filename Value="testunit.pas"/>
-        <Caret Line="90" Column="41" TopLine="75"/>
+        <Filename Value="../../Units/MMLCore/input.pas"/>
+        <Caret Line="201" Column="18" TopLine="1"/>
       </Position21>
       <Position22>
         <Filename Value="../../Units/MMLCore/input.pas"/>
-        <Caret Line="201" Column="18" TopLine="1"/>
+        <Caret Line="209" Column="34" TopLine="195"/>
       </Position22>
       <Position23>
         <Filename Value="../../Units/MMLCore/input.pas"/>
-        <Caret Line="209" Column="34" TopLine="195"/>
+        <Caret Line="215" Column="65" TopLine="193"/>
       </Position23>
+      <Position24>
+        <Filename Value="../../Units/MMLCore/input.pas"/>
+        <Caret Line="202" Column="41" TopLine="182"/>
+      </Position24>
+      <Position25>
+        <Filename Value="../../Units/MMLCore/input.pas"/>
+        <Caret Line="203" Column="39" TopLine="183"/>
+      </Position25>
+      <Position26>
+        <Filename Value="../../Units/MMLCore/input.pas"/>
+        <Caret Line="202" Column="39" TopLine="183"/>
+      </Position26>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/Units/MMLCore/input.pas b/Units/MMLCore/input.pas
index d37052f..213c159 100644
--- a/Units/MMLCore/input.pas
+++ b/Units/MMLCore/input.pas
@@ -199,8 +199,8 @@ begin
        mouse_Right: Event.xbutton.button:= Button3;
   end;
 
-  event.xbutton.send_event := 1;
-  event.xbutton.same_screen:= 1;
+  event.xbutton.send_event := True;
+  event.xbutton.same_screen:= True;
   event.xbutton.subwindow:= 0;  // this can't be right.
   event.xbutton.root := TClient(Client).MWindow.DesktopWindow;
   event.xbutton.window := TClient(Client).MWindow.CurWindow;