home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DELPHI / ORPHTR / CALUNIT.PAS < prev    next >
Pascal/Delphi Source File  |  1995-03-15  |  1KB  |  67 lines
  1. unit CalUnit;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, OvcCal, StdCtrls, Buttons, OvcSc, OvcMisc, OvcBase;
  8.  
  9. type
  10.   TCalForm = class(TForm)
  11.     OvcCalendar1: TOvcCalendar;
  12.     BitBtn1: TBitBtn;
  13.     BitBtn2: TBitBtn;
  14.     Label1: TLabel;
  15.     OvcSpinner1: TOvcSpinner;
  16.     ScrollBar1: TScrollBar;
  17.     OvcController1: TOvcController;
  18.     procedure OvcCalendar1Change(Sender: TObject);
  19.     procedure OvcSpinner1Click(Sender: TObject; State: TSpinState;
  20.       Delta: Longint; Wrap: Boolean);
  21.     procedure ScrollBar1Change(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   CalForm: TCalForm;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TCalForm.OvcCalendar1Change(Sender: TObject);
  36. begin
  37.   with OvcCalendar1 do begin
  38.     Label1.Caption := MonthString + Format(' %d', [Year]);
  39.     ScrollBar1.Position := Month;
  40.   end;
  41. end;
  42.  
  43. procedure TCalForm.OvcSpinner1Click(Sender: TObject; State: TSpinState;
  44.   Delta: Longint; Wrap: Boolean);
  45. begin
  46.   with OvcCalendar1 do begin
  47.     if State = ssUpBtn then
  48.       Year := Year + 1
  49.     else
  50.       Year := Year - 1;
  51.   end;
  52. end;
  53.  
  54. procedure TCalForm.ScrollBar1Change(Sender: TObject);
  55. var
  56.   P : Integer;
  57. begin
  58.   P := ScrollBar1.Position;
  59.   with OvcCalendar1 do begin
  60.     if not ValidDate(Day, P, Year) then
  61.       Day := 1;
  62.     Month := P;
  63.   end;
  64. end;
  65.  
  66. end.
  67.