home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibdemo3.zip / SAMPLES.DAT / SAMPLES / ADDONSMP / ADDMAIN.PAS next >
Pascal/Delphi Source File  |  1997-11-04  |  3KB  |  102 lines
  1. Unit AddMain;
  2.  
  3. Interface
  4.  
  5. Uses
  6.   Classes, Forms, StdCtrls,Graphics, Gradient, Seven,
  7.   Clocks, GlyphBtn, Hints, LED, XplorBtn, ExtCtrls,
  8.   Calendar, CalUnit, ClkUnit, SevUnit, LedUnit, SwiUnit,
  9.   HiUnit;
  10.  
  11. Type
  12.   TMainForm = Class (TForm)
  13.     Gradient1: TGradient;
  14.     ToolBar1: TToolbar;
  15.     TExplorerButton1: TExplorerButton;
  16.     MainMenu1: TMainMenu;
  17.     MenuItem1: TMenuItem;
  18.     MenuItem2: TMenuItem;
  19.     MenuItem3: TMenuItem;
  20.     MenuItem4: TMenuItem;
  21.     MenuItem5: TMenuItem;
  22.     TExplorerButton4: TExplorerButton;
  23.     TExplorerButton5: TExplorerButton;
  24.     MenuItem6: TMenuItem;
  25.     ImageList1: TImageList;
  26.     TExplorerButton6: TExplorerButton;
  27.     MenuItem7: TMenuItem;
  28.     TExplorerButton3: TExplorerButton;
  29.     TExplorerButton2: TExplorerButton;
  30.     Procedure MenuItem7OnClick (Sender: TObject);
  31.     Procedure MainFormOnCreate (Sender: TObject);
  32.     Procedure MenuItem6OnClick (Sender: TObject);
  33.     Procedure MenuItem5OnClick (Sender: TObject);
  34.     Procedure MenuItem4OnClick (Sender: TObject);
  35.     Procedure MenuItem3OnClick (Sender: TObject);
  36.     Procedure MenuItem2OnClick (Sender: TObject);
  37.   Private
  38.     {Insert private declarations here}
  39.   Public
  40.     {Insert public declarations here}
  41.     Procedure GradientAfterPaint(Sender:TObject;Const Rec:TRect);
  42.   End;
  43.  
  44. Var
  45.   MainForm: TMainForm;
  46.  
  47. Implementation
  48.  
  49. Procedure TMainForm.MenuItem7OnClick (Sender: TObject);
  50. Begin
  51.   HintsForm.Show;
  52.   HintsForm.BringToFront;
  53. End;
  54.  
  55. Procedure TMainForm.MainFormOnCreate (Sender: TObject);
  56. Begin
  57.   Gradient1.OnAfterPaint:=GradientAfterPaint;
  58. End;
  59.  
  60. Procedure TMainForm.GradientAfterPaint(Sender:TObject;Const Rec:TRect);
  61. Begin
  62.   ImageList1.Draw(Gradient1.Canvas,50,150,0);
  63.   ImageList1.Draw(Gradient1.Canvas,150,150,1);
  64.   ImageList1.Draw(Gradient1.Canvas,250,30,2);
  65. End;
  66.  
  67. Procedure TMainForm.MenuItem6OnClick (Sender: TObject);
  68. Begin
  69.   OnOffSwitchForm.Show;
  70.   OnOffSwitchForm.BringToFront;
  71. End;
  72.  
  73. Procedure TMainForm.MenuItem5OnClick (Sender: TObject);
  74. Begin
  75.   LedForm.Show;
  76.   LedForm.BringToFront;
  77. End;
  78.  
  79. Procedure TMainForm.MenuItem4OnClick (Sender: TObject);
  80. Begin
  81.   SevenSegForm.Show;
  82.   SevenSegForm.BringToFront;
  83. End;
  84.  
  85. Procedure TMainForm.MenuItem3OnClick (Sender: TObject);
  86. Begin
  87.   ClockForm.Show;
  88.   ClockForm.BringToFront;
  89. End;
  90.  
  91. Procedure TMainForm.MenuItem2OnClick (Sender: TObject);
  92. Begin
  93.    CalendarForm.Show;
  94.    CalendarForm.BringToFront;
  95. End;
  96.  
  97. Initialization
  98.   RegisterClasses ([TMainForm, TGradient,
  99.     TToolbar, TExplorerButton
  100.    , TMainMenu, TMenuItem, TImageList]);
  101. End.
  102.