home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / smiles / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  1.9 KB  |  90 lines
  1. unit Main;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: SMILES }
  5.  
  6. { This program uses the TSmiley button that
  7.   Nick Hodges wrote and that ships with this
  8.   book. You must first install TSmiley in the
  9.   component palette, then you can run this
  10.   program. TSmiley is in the UNITS subdirectory.
  11.  
  12.   This program shows how to use Run Time Type
  13.   Information. }
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, WinTypes, WinProcs,
  19.   Messages, Classes, Graphics,
  20.   Controls, Forms, Dialogs,
  21.   StdCtrls, Smiley, ExtCtrls;
  22.  
  23. type
  24.   TForm1 = class(TForm)
  25.     Smiley1: TSmiley;
  26.     Smiley2: TSmiley;
  27.     Smiley3: TSmiley;
  28.     Smiley4: TSmiley;
  29.     Smiley5: TSmiley;
  30.     Smiley6: TSmiley;
  31.     Smiley7: TSmiley;
  32.     Smiley8: TSmiley;
  33.     Smiley9: TSmiley;
  34.     Smiley10: TSmiley;
  35.     Smiley11: TSmiley;
  36.     Smiley12: TSmiley;
  37.     Smiley13: TSmiley;
  38.     Smiley14: TSmiley;
  39.     Smiley15: TSmiley;
  40.     Smiley16: TSmiley;
  41.     Smiley17: TSmiley;
  42.     Smiley18: TSmiley;
  43.     Smiley19: TSmiley;
  44.     Smiley20: TSmiley;
  45.     Smiley21: TSmiley;
  46.     Smiley22: TSmiley;
  47.     Smiley23: TSmiley;
  48.     Smiley24: TSmiley;
  49.     Smiley25: TSmiley;
  50.     Smiley26: TSmiley;
  51.     Smiley27: TSmiley;
  52.     Smiley28: TSmiley;
  53.     Smiley29: TSmiley;
  54.     Smiley30: TSmiley;
  55.     Smiley31: TSmiley;
  56.     Smiley32: TSmiley;
  57.     Smiley33: TSmiley;
  58.     Smiley34: TSmiley;
  59.     Smiley35: TSmiley;
  60.     Smiley36: TSmiley;
  61.     Smiley37: TSmiley;
  62.     Smiley38: TSmiley;
  63.     Smiley39: TSmiley;
  64.     Smiley40: TSmiley;
  65.     Timer1: TTimer;
  66.     procedure Timer1Timer(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.Timer1Timer(Sender: TObject);
  81. var
  82.   i: integer;
  83. begin
  84.   for i := 0 to ComponentCount - 1 do
  85.     if Components[i] is TSmiley then
  86.       TSmiley(Components[i]).Mood := TMood(Random(5));
  87. end;
  88.  
  89. end.
  90.