paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: pass Control instead of TDragControlObject into OnDragXXX events if TDragControlObject has been created automatically (for delphi compatibility) (issue #0001850)

Browse Source 
git-svn-id: trunk@14855 -
This commit is contained in:
paul 2008-04-17 06:36:53 +00:00
parent f098565cff
commit 9bdd9bd85f
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -338,6 +338,7 @@ type
FControl: TControl;
FDragTarget: TControl;
FDragTargetPos: TPoint;
FAutoCreated: Boolean;
protected
procedure EndDrag(Target: TObject; X, Y: Integer); virtual;
function GetDragImages: TDragImageList; virtual;
@ -349,6 +350,7 @@ type
procedure ShowDragImage; virtual;
property AlwaysShowDragImages: Boolean read FAlwaysShowDragImages write FAlwaysShowDragImages;
property AutoCreated: Boolean read FAutoCreated;
property Control: TControl read FControl write FControl;
property DragPos: TPoint read FDragPos write FDragPos;
property DragTarget: TControl read FDragTarget write FDragTarget;

1
lcl/include/dragmanager.inc
View File

@ -144,6 +144,7 @@ begin
begin
FDragObjectAutoFree := true;
FDragObject := TDragControlObject.Create(AControl);
FDragObject.FAutoCreated := True;
end;
GetCursorPos(p);