[JVCL-Checkins] dev/JVCL3/run JvTFGlance.pas,1.35,1.36 - Prevent access violation on some drag and drop operations

[Olivier S. <ob...@us...>]

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

Modified Files:
	JvTFGlance.pas 
Log Message:
Prevent access violation on some drag and drop operations


Index: JvTFGlance.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFGlance.pas,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** JvTFGlance.pas	11 Jul 2005 09:03:41 -0000	1.35
--- JvTFGlance.pas	12 Jul 2005 09:05:50 -0000	1.36
***************
*** 2948,2951 ****
--- 2948,2954 ----
    Appt := DragInfo.Appt;
  
+   if not Assigned(Appt) then
+     Exit; // happens sometimes
+ 
    // calc new info
    // Schedule(s) do not change