Re: [lazarus] Fix Drag and Drop for control is dmAutomatic

[Daniel Dugan]

Luiz Americo Pereira Camara <[EMAIL PROTECTED]> wrote:

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

Outstanding! Thanks for the tip. I'm still trying to ferret out why I can't get proper messages during onDragOver events.
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives

---

Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.