[JEDI.NET-commits] main/run Jedi.Timers.Schedules.pas,NONE,1.1

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/main/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29909/main/run

Added Files:
	Jedi.Timers.Schedules.pas 
Log Message:
New addition: scheduling support

--- NEW FILE: Jedi.Timers.Schedules.pas ---
{---------------------------------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); you
may not use this file except in compliance with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/MPL-1.1.html

Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
KIND, either expressed or implied. See the License for the specific language governing rights and
limitations under the License.

The Original Code is: Jedi.Timers.Schedules.pas, released on --.

The Initial Developer of the Original Code is Marcel Bestebroer
Portions created by Marcel Bestebroer are Copyright (C) 2004 Marcel Bestebroer
All Rights Reserved.

Contributor(s):

You may retrieve the latest version of this file at the JEDI.NET home page, located at
http://sf.net/projects/jedidotnet
[...1665 lines suppressed...]
    FStart := value;
    Modified;
  end;
end;

procedure YearSchedule.set_Stop(value: Integer);
begin
  if (value < 1) or (value > 9999) then
    raise ArgumentOutOfRangeException.Create('value', 'Out of range');
  if value < FStart then
    set_Start(value);
  if value <> FStop then
  begin
    FStop := value;
    Modified;
  end;
end;
{$ENDREGION}

end.