On Sat, 15 Apr 2006 21:44:52 +0200
darekm <[EMAIL PROTECTED]> wrote:
GetCursorPos(P);
- Result := FindControlAtPosition(P, True);
+ if (P.X=FLastMousePos.x) and (P.Y=FLastMousePos.Y) then
Result:=FLastMouseControl
+ else Result := FindControlAtPosition(P, True);
+
if (Result <> nil) and (csDesigning in Result.ComponentState) then
Result := nil;
+ if Result<> nil then begin
+ FLastMousePos:=p;
+ FLastMouseControl:=Result;
+ end;
end;
</patch>
Why does this repair anything ? Seems more like an optimization to me.
Certainly needs more comment.
Micha
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
