Daniel Dugan escreveu:
The patch I sent for dragdock.inc only works for dragmode=dmManual.
For a dmAutomatic control to work correctly then the following patch
is required for dragobject.inc:
Index: dragobject.inc
===================================================================
--- dragobject.inc (revision 9003)
+++ dragobject.inc (working copy)
@@ -73,7 +73,9 @@
procedure TDragObject.CaptureChanged(OldCaptureControl: TControl);
begin
- DragDone(False);
+ if OldCaptureControl.Dragging then
+ DragDone(true) else
+ DragDone(false);
end;
The way bellow seems clever to me:
procedure TDragObject.CaptureChanged(OldCaptureControl: TControl);
begin
DragDone(OldCaptureControl.Dragging);
end;
Luiz
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
