[JVCL-Checkins] CVS: dev/JVCL3/run JvJVCLUtils.pas,1.23,1.24

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

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv30316/JVCL3/run

Modified Files:
	JvJVCLUtils.pas 
Log Message:
- Cursor functions

Index: JvJVCLUtils.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvJVCLUtils.pas,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** JvJVCLUtils.pas	8 Nov 2003 17:26:01 -0000	1.23
--- JvJVCLUtils.pas	10 Nov 2003 17:15:21 -0000	1.24
***************
*** 30,49 ****
  {$IFDEF COMPILER6_UP}
    RTLConsts, Variants,
!   {$ENDIF}
!   {$IFDEF MSWINDOWS}
!   Windows, Messages, ShellApi, Registry,
!   {$ENDIF}
!   {$IFDEF LINUX}
    JvLinux,
!   {$ENDIF}
    SysUtils, Classes, JvClxUtils,
[...8146 lines suppressed...]
  end;
  
  initialization
    { begin JvGraph }
    InitTruncTables;
    { end JvGraph }
+   if Screen <> nil then
+   begin
+     Screen.Cursors[crMultiDragLink] := Screen.Cursors[crMultiDrag];
+     Screen.Cursors[crDragAlt] := Screen.Cursors[crDrag];
+     Screen.Cursors[crMultiDragAlt] := Screen.Cursors[crMultiDrag];
+     Screen.Cursors[crMultiDragLinkAlt] := Screen.Cursors[crMultiDrag];
+   end;
  
!   { begin JvVCLUtils }
  finalization
    ReleaseBitmap;
!   { end from JvVCLUtils }
  
  end.