moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Fixed lil bug in window selector :). 

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@587 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2010-03-09 17:12:44 +00:00
parent 7186baade4
commit 58a589a736
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
trunk/Units/MMLAddon/windowselector.pas
View File

@ -29,9 +29,8 @@ interface
uses uses
Classes, SysUtils, Classes, SysUtils,
ctypes,
{$IFDEF MSWINDOWS} os_windows, {$ENDIF} {$IFDEF MSWINDOWS} os_windows, {$ENDIF}
{$IFDEF LINUX} os_linux, {$ENDIF} {$IFDEF LINUX} os_linux, ctypes, {$ENDIF}
controls, controls,
graphics, graphics,
forms, forms,
@ -159,7 +158,7 @@ var
DragForm : TForm; DragForm : TForm;
EdgeForm : TForm; EdgeForm : TForm;
Style : DWord; Style : DWord;
W,H,i: integer; W,H: integer;
const const
EdgeSize =4; EdgeSize =4;
WindowCol = clred; WindowCol = clred;
@ -184,7 +183,7 @@ begin;
while GetAsyncKeyState(VK_LBUTTON) <> 0 do while GetAsyncKeyState(VK_LBUTTON) <> 0 do
begin; begin;
Handle:= WindowFromPoint(Mouse.CursorPos); Handle:= WindowFromPoint(Mouse.CursorPos);
if Handle <> TempHandle then if (Handle <> TempHandle) and (Handle <> EdgeForm.Handle) then
begin; begin;
GetWindowRect(Handle, TargetRect); GetWindowRect(Handle, TargetRect);
W :=TargetRect.Right - TargetRect.Left+1; W :=TargetRect.Right - TargetRect.Left+1;