[JVCL-Checkins] dev/JVCL3/run JvTFManager.pas,1.44,1.45 - Added dbDeleteAllAppts

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

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

Modified Files:
	JvTFManager.pas 
Log Message:
Added dbDeleteAllAppts


Index: JvTFManager.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFManager.pas,v
retrieving revision 1.44
retrieving revision 1.45
diff -C2 -d -r1.44 -r1.45
*** JvTFManager.pas	17 Feb 2005 10:20:56 -0000	1.44
--- JvTFManager.pas	6 Jul 2005 15:38:11 -0000	1.45
***************
*** 587,590 ****
--- 587,591 ----
      procedure dbPostAppt(Appt: TJvTFAppt);
      procedure dbDeleteAppt(Appt: TJvTFAppt);
+     procedure dbDeleteAllAppt;
      procedure dbRefreshAppt(Appt: TJvTFAppt);
      procedure dbRefreshSched(Sched: TJvTFSched);
***************
*** 3191,3194 ****
--- 3192,3205 ----
  end;
  
+ procedure TJvTFScheduleManager.dbDeleteAllAppt;
+ var
+   i : Integer;
+ begin
+   for i := FAppts.Count - 1 downto 0 do
+   begin
+     RemoveAppt(TJvTFAppt(FAppts.Objects[0]));
+   end;
+ end;
+ 
  procedure TJvTFScheduleManager.dbRefreshAppt(Appt: TJvTFAppt);
  begin