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

- fixing AV during Drag and Drop operation

Browse Source 
- looking on non TWinControl objects while drop (0008628)

git-svn-id: trunk@10914 -
This commit is contained in:
paul 2007-04-07 16:45:10 +00:00
parent b8727ab740
commit fd45a904f4
2 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dragdock.inc
View File

@ -245,10 +245,12 @@ Begin
{$IFDEF VerboseDrag}
DebugLn('DragTo P=',Position.X,',',Position.Y);
{$ENDIF}
if (ActiveDrag = dopNone)
and (Abs(DragStartPos.X - Position.X) < DragThreshold)
and (Abs(DragStartPos.Y - Position.Y) < DragThreshold) then begin
if (DragControl = nil) or ((ActiveDrag = dopNone) and
(Abs(DragStartPos.X - Position.X) < DragThreshold) and
(Abs(DragStartPos.Y - Position.Y) < DragThreshold)) then
begin
// dragging not yet started
// or CancelDrag happened (DragControl = nil)
exit;
end;

17
lcl/include/dragobject.inc
View File

@ -72,8 +72,23 @@ begin
end;
procedure TDragObject.CaptureChanged(OldCaptureControl: TControl);
var
i: integer;
IsDragging: Boolean;
begin
DragDone(OldCaptureControl.Dragging);
// if this is TWinControl, and it have controls (not TWinControls)
// then we should check Dragging in those controls
IsDragging := OldCaptureControl.Dragging;
if (not IsDragging) and (OldCaptureControl is TWinControl) then
begin
for i := 0 to TWinControl(OldCaptureControl).ControlCount - 1 do
begin
IsDragging := IsDragging or TWinControl(OldCaptureControl).Controls[i].Dragging;
if IsDragging then
break;
end;
end;
DragDone(IsDragging);
end;
procedure TDragObject.KeyDown(var Key: Word; Shift: TShiftState);