Re: [lazarus] Bug Report 1861: found cause

[Daniel Dugan]

Mattias Gaertner <[EMAIL PROTECTED]> wrote:

On Wed, 22 Mar 2006 11:01:37 -0800 (PST)
Daniel Dugan <[EMAIL PROTECTED]>wrote:

> [...]
> Can you create a diff, so we can see the differences?
>
> Mattias
>
>
> Here you go!

Thanks. Applied.

Mattias

_________________________________________________________________

Hey Mattias:

 

In bug report 1861, Etrusco noted that it is rather inelegant to declare the "DragObjectDragging" variable as all it does is declare a conditional for the following block when DragObject <> nil. The declaration can be removed so that the block would execute whenever DragObject <> nil. i.e.

 

if DragObject <> nil then
-    DragObjectDragging := true else
-    DragObjectDragging := false;
-  if DragObjectDragging then begin
+ begin

    P:=ClientToScreen(Point(X,Y));
    DragObject.MouseMove(Shift,P.X,P.Y);
  end;           

 

---

New Yahoo! Messenger with Voice. Call regular phones from your PC and save big.

---

How low will we go? Check out Yahoo! Messenger’s low PC-to-Phone call rates.