Sorry, I probably should have said I call BeginDrag() from my
OnMouseMove event handler.
Further searching found the following post from Sept '93:
<snip>
When you provide a dragObject in the startDrag event,
and that DragObject handle DragImageList
and you call BeginDrag (false) by yourself,
the ImageList is draw before the *drag* operation effectively occurs.
This is like the BeginDrag (false) react as a BeginDrag (True).
The problem is in the DragInit procedure in controls.pas:
>>
DragImageList := DragObject.GetDragImages;
if DragImageList <> nil then
with DragStartPos do DragImageList.BeginDrag(GetDeskTopWindow, X, Y);
QualifyingSites := TSiteList.Create;
if ActiveDrag <> dopNone then DragTo(DragStartPos);
<<
I think this has to be
>>
QualifyingSites := TSiteList.Create;
if ActiveDrag <> dopNone then begin
DragImageList := DragObject.GetDragImages;
if DragImageList <> nil then
with DragStartPos do DragImageList.BeginDrag(GetDeskTopWindow, X, Y);
DragTo(DragStartPos);
end;
<<
Jacques Garcia Vazquez
</snip>
This looks like it might be the solution but I don't feel happy changing
controls.pas and I can't seem to recompile it anyway. I can't even
figure out the scope (if that's the right word) of the DragInit
procedure so have no idea at all how to 'override' it. I'm way out of
my depth here - can anyone throw me a line?
Dave
Dave Sellers wrote:
>Hi
>
>I have implemented some drag and drop with a TtntStringGrid. I have
>drag mode set to dmManual and in OnMouseDown I call BeginDrag(False,
>10); Everything works fine except for a small cosmetic issue.
>
>In my OnStartDrag I assign a custom DragObject and this is where my
>problem appears. The drag image of my drag object is displayed
>immediately (to the eye it happens OnMouseDown) whereas the drag cursor
>seems to take note of the threshold passed into BeginDrag(). If I set a
>silly threshold of 50 pixels my dragimage appears immediately at the
>point of mousedown (without a drag cursor) and stays there until the 50
>pixes have been moved and then 'jumps' to the new mouse position (with a
>drag cursor) and moves with the mouse.
>
>I've googled around and found some reference to something similar
>existing in Delphi 2 but I can't find a workaround. I've taken a look
>at the code for BeginDrag but to be honest, it's beyond me.
>
>Can anyone offer any suggestions? I can put together a demo program if
>necessary to show the effect.
>
>Cheers
>Dave
>
>
>
>
>-----------------------------------------------------
>Home page: http://groups.yahoo.com/group/delphi-en/
>To unsubscribe: [EMAIL PROTECTED]
>Yahoo! Groups Links
>
>
>
>
>
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life.
http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/i7folB/TM
--------------------------------------------------------------------~->
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
