paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

remove TMouse.SetCursorPos (tricky and not cross-platform)

Browse Source 
git-svn-id: trunk@7045 -
This commit is contained in:
micha 2005-03-31 20:49:39 +00:00
parent cdcf64b178
commit fc14d90920
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/controls.pp
View File

@ -1849,14 +1849,13 @@ type
FDragThreshold: Integer; FDragThreshold: Integer;
Procedure SetCapture(const Value: HWND); Procedure SetCapture(const Value: HWND);
Function GetCapture: HWND; Function GetCapture: HWND;
Procedure SetCursorPos(value: TPoint);
Function GetCursorPos: TPoint; Function GetCursorPos: TPoint;
function GetIsDragging: Boolean; function GetIsDragging: Boolean;
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
property Capture: HWND read GetCapture write SetCapture; property Capture: HWND read GetCapture write SetCapture;
property CursorPos: TPoint read GetCursorPos write SetCursorPos; property CursorPos: TPoint read GetCursorPos;
property DragImmediate: Boolean read FDragImmediate write FDragImmediate default True; property DragImmediate: Boolean read FDragImmediate write FDragImmediate default True;
property DragThreshold: Integer read FDragThreshold write FDragThreshold default 5; property DragThreshold: Integer read FDragThreshold write FDragThreshold default 5;
property IsDragging: Boolean read GetIsDragging; property IsDragging: Boolean read GetIsDragging;
@ -2890,6 +2889,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.292 2005/03/31 20:49:39 micha
remove TMouse.SetCursorPos (tricky and not cross-platform)
Revision 1.291 2005/03/30 18:34:42 micha Revision 1.291 2005/03/30 18:34:42 micha
fix bug 659 and 660: LM_RBUTTONUP message returns true whenever popupmenu was invoked fix bug 659 and 660: LM_RBUTTONUP message returns true whenever popupmenu was invoked

5
lcl/include/mouse.inc
View File

@ -45,11 +45,6 @@ Begin
FCapture := GetCapture; FCapture := GetCapture;
end; end;
Procedure TMouse.SetCursorPos(Value : Tpoint);
Begin
end;
Function TMouse.GetCursorPos : TPoint; Function TMouse.GetCursorPos : TPoint;
var var
p : TPoint; p : TPoint;