[JVCL-Checkins] dev/JVCL3/run JvCustomItemViewer.pas,1.36,1.37 - - Slightly better looking dragimage when scrolling (still no

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13883/run

Modified Files:
	JvCustomItemViewer.pas 
Log Message:
- Slightly better looking dragimage when scrolling (still not 100%, though...)


Index: JvCustomItemViewer.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvCustomItemViewer.pas,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** JvCustomItemViewer.pas	1 Nov 2004 19:21:44 -0000	1.36
--- JvCustomItemViewer.pas	18 Dec 2004 12:09:30 -0000	1.37
***************
*** 1780,1787 ****
--- 1780,1791 ----
  var
    DoInvalidate: Boolean;
+   P:TPoint;
  begin
    FScrollTimer.Enabled := False;
    FScrollTimer.Interval := cScrollIntervall;
    DoInvalidate := False;
+   GetCursorPos(P);
+   if FDragImages <> nil then
+     FDragImages.HideDragImage;
    case TScrollEdge(ScrollEdge) of
      seLeft:
***************
*** 1800,1803 ****
--- 1804,1809 ----
          DoInvalidate := PostMessage(Handle, WM_VSCROLL, SB_LINERIGHT, 0);
    end;
+   if FDragImages <> nil then
+     FDragImages.ShowDragImage;
    if (ScrollEdge <> Ord(seNone)) and DoInvalidate then
      Invalidate;