home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / navody / DABMCAL.ZIP / Projects / MiniCalendar / uMiniCal.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2001-08-03  |  4.3 KB  |  151 lines
  1. unit uMiniCal;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, Grids, Calendar, ExtCtrls, StdCtrls, Buttons, ImgList, ActnList, uAboutMCal,
  8.   ComCtrls, ToolWin, StdActns, Spin;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Panel2: TPanel;
  13.     BitBtn2: TBitBtn;
  14.     BitBtn3: TBitBtn;
  15.     Calendar1: TCalendar;
  16.     Panel1: TPanel;
  17.     MainMenu1: TMainMenu;
  18.     File1: TMenuItem;
  19.     Info1: TMenuItem;
  20.     Author1: TMenuItem;
  21.     Contact1: TMenuItem;
  22.     HomePage1: TMenuItem;
  23.     ActionList1: TActionList;
  24.     actExit: TAction;
  25.     actInfoAuthor: TAction;
  26.     actInfoContact: TAction;
  27.     actInfoHmPg: TAction;
  28.     actHelpAbout: TAction;
  29.     ImageList1: TImageList;
  30.     actMthPrev: TAction;
  31.     actMthNext: TAction;
  32.     Exit1: TMenuItem;
  33.     Help1: TMenuItem;
  34.     actHelpAbout1: TMenuItem;
  35.     ToolBar1: TToolBar;
  36.     ToolButton1: TToolButton;
  37.     ToolButton2: TToolButton;
  38.     ToolButton3: TToolButton;
  39.     ToolButton4: TToolButton;
  40.     ToolButton5: TToolButton;
  41.     ToolButton6: TToolButton;
  42.     ToolButton7: TToolButton;
  43.     ToolButton8: TToolButton;
  44.     ToolButton9: TToolButton;
  45.     ToolButton10: TToolButton;
  46.     ToolButton11: TToolButton;
  47.     ToolButton12: TToolButton;
  48.     Index1: TMenuItem;
  49.     actDayChange: TAction;
  50.     Contents1: TMenuItem;
  51.     actHelpContent: THelpContents;
  52.     actHelpTopic: THelpTopicSearch;
  53.     SpinEdit1: TSpinEdit;
  54.     ToolButton13: TToolButton;
  55.     procedure actExitExecute(Sender: TObject);
  56.     procedure actMthPrevExecute(Sender: TObject);
  57.     procedure actMthNextExecute(Sender: TObject);
  58.     procedure FormActivate(Sender: TObject);
  59.     procedure actInfoAuthorExecute(Sender: TObject);
  60.     procedure actInfoContactExecute(Sender: TObject);
  61.     procedure actInfoHmPgExecute(Sender: TObject);
  62.     procedure actHelpAboutExecute(Sender: TObject);
  63.     procedure actDayChangeExecute(Sender: TObject);
  64.     procedure actHelpContentExecute(Sender: TObject);
  65.     procedure actHelpTopicExecute(Sender: TObject);
  66.     procedure SpinEdit1Change(Sender: TObject);
  67.   private
  68.     { Private declarations }
  69.   public
  70.     { Public declarations }
  71.   end;
  72.  
  73. var
  74.   Form1: TForm1;
  75.  
  76. implementation
  77.  
  78. {$R *.DFM}
  79.  
  80. procedure TForm1.actExitExecute(Sender: TObject);
  81. begin
  82.   Application.Terminate;
  83. end;
  84.  
  85. procedure TForm1.actMthPrevExecute(Sender: TObject);
  86. begin
  87.   Calendar1.PrevMonth;
  88.   Panel1.Caption := formatdatetime('mmmm d, yyyy',Calendar1.CalendarDate);
  89.   Form1.Text := 'DAB Mini-Calendar - ' + formatdatetime('mmmm yyyy', Calendar1.calendardate);
  90. end;
  91.  
  92. procedure TForm1.actMthNextExecute(Sender: TObject);
  93. begin
  94.   Calendar1.NextMonth;
  95.   Panel1.Caption := formatdatetime('mmmm d, yyyy',Calendar1.CalendarDate);
  96.   Form1.Text := 'DAB Mini-Calendar - ' + formatdatetime('mmmm yyyy', Calendar1.calendardate);
  97. end;
  98.  
  99. procedure TForm1.FormActivate(Sender: TObject);
  100. begin
  101.   SpinEdit1.Value := StrToInt(FormatDateTime('yyyy',Date));
  102.   Form1.Text := 'DAB Mini-Calendar - ' + formatdatetime('mmmm yyyy', Calendar1.calendardate);
  103.   Panel1.Caption := formatdatetime('mmmm d, yyyy',Calendar1.calendardate);
  104. end;
  105.  
  106. procedure TForm1.actInfoAuthorExecute(Sender: TObject);
  107. begin
  108.   ShowMessage('DAB Mini-Calendar Author:  Derek A Benner, Copyright 2001');
  109. end;
  110.  
  111. procedure TForm1.actInfoContactExecute(Sender: TObject);
  112. begin
  113.   ShowMessage('Contact Author at:  delphidb@rsvlonline.net');
  114. end;
  115.  
  116. procedure TForm1.actInfoHmPgExecute(Sender: TObject);
  117. begin
  118.   ShowMessage('DAB Mini-Calendar and other Delphi Source at: http://www.rsvl.net/dabenner/index.htm');
  119. end;
  120.  
  121. procedure TForm1.actHelpAboutExecute(Sender: TObject);
  122. begin
  123.   AboutBox.showmodal;
  124. end;
  125.  
  126. procedure TForm1.actDayChangeExecute(Sender: TObject);
  127. begin
  128.   Panel1.Caption := FormatDateTime('mmmm d, yyyy',Calendar1.CalendarDate);
  129. end;
  130.  
  131. procedure TForm1.actHelpContentExecute(Sender: TObject);
  132. begin
  133.   Application.HelpFile := 'DABMCal.hlp';
  134.   application.Helpcontext(0);
  135. end;
  136.  
  137. procedure TForm1.actHelpTopicExecute(Sender: TObject);
  138. begin
  139.   Application.HelpFile := 'DABMCal.hlp';
  140.   application.Helpcontext(0);
  141. end;
  142.  
  143. procedure TForm1.SpinEdit1Change(Sender: TObject);
  144. begin
  145.   Calendar1.Year := spinedit1.Value;
  146.   Panel1.Caption := formatdatetime('mmmm d, yyyy',Calendar1.CalendarDate);
  147.   Form1.Text := 'DAB Mini-Calendar - ' + formatdatetime('mmmm yyyy', Calendar1.calendardate);
  148. end;
  149.  
  150. end.
  151.