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:
parent
7186baade4
commit
58a589a736
|
@ -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;
|
||||||
|
|
Loading…
Reference in New Issue