moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-07 02:30:19 -05:00
Code Issues Releases Wiki Activity

Fixed lil bug in window selector :).

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