[JVCL-Checkins] CVS: dev/JVCL3/run JvDriveCtrls.pas,1.15,1.16 - Comments

[Remko B. <rem...@us...>]

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

Modified Files:
	JvDriveCtrls.pas 
Log Message:
Comments

Index: JvDriveCtrls.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDriveCtrls.pas,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** JvDriveCtrls.pas	5 Jan 2004 22:37:42 -0000	1.15
--- JvDriveCtrls.pas	8 Jan 2004 18:03:56 -0000	1.16
***************
*** 1061,1064 ****
--- 1061,1066 ----
        OldMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
        try
+         { rb : better use SysUtils.SetCurrentDir?, ie without try..except
+                but don't know if it's available in D5/6 }
          try
            ChDir(NewDrive + ':');
***************
*** 1068,1071 ****
--- 1070,1075 ----
            else
            begin
+             { rb : This will be an endless loop if NewDrive isn't changed in the
+                    event handler (maybe make it explicit to retry) }
              DriveChange(NewDrive);
              Exit;