Daniel Dugan <[EMAIL PROTECTED]> wrote:
Daniel Dugan <[EMAIL PROTECTED]> wrote:!I think I've found a cause for an end drag not working as I reported in issue 1861.TControl.MouseUp tests TControl.Dragging, and it is returning false because the control that generates the mouseup is the target and not the source. This prevents DragObject.MouseUp from firing when the mouse button is released. I'm not sure I'm up to finding the fix, but I will still keep looking as time permits.Also, Controls.pp has 2 SetCaptureControl procedures. Apparently, the on! e with only the Control:TControl parameter is correct.Try this:{------------------------------------------------------------------------------
TControl MouseUp
------------------------------------------------------------------------------}
Procedure TControl.MouseUp(Button: TMouseButton; Shift:TShiftState;
X, Y: Integer);
var
P: TPoint;
DragObjectDragging : Boolean;
begin
if DragObject <> nil then
DragObjectDragging := TControl(DragObject.DragTarget).Dragging;
if (Button in [mbLeft,mbRight]) and DragObjectDragging and (DragObject<>nil) then begin
P:=ClientToScreen(Point(X,Y));
DragObject.MouseUp(Button,Shift,P.X,P.Y);
end;
if Assigned(FOnMouseUp) then FOnMouseUp(Self, Button, Shift, X,Y);
end;
Brings words and photos together (easily) with
PhotoMail - it's free and works with Yahoo! Mail.
Yahoo! Mail
Use Photomail to share photos without annoying attachments.
- Re: [lazarus] Bug Report 1861: found cause Daniel Dugan
- Re: [lazarus] Bug Report 1861: found cause Daniel Dugan
- Re: [lazarus] Bug Report 1861: found cause Mattias Gaertner
- Re: [lazarus] Bug Report 1861: found cause Daniel Dugan
- Re: [lazarus] Bug Report 1861: found cau... Mattias Gaertner
- Re: [lazarus] Bug Report 1861: foun... Daniel Dugan
Reply via email to