home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibdemo3.zip / SAMPLES.DAT / SAMPLES / ADDONSMP / SEVUNIT.PAS < prev    next >
Pascal/Delphi Source File  |  1997-08-17  |  2KB  |  73 lines
  1. Unit SevUnit;
  2.  
  3. Interface
  4.  
  5. Uses
  6.   SysUtils, Classes, Forms, Graphics, StdCtrls, Seven;
  7.  
  8. Type
  9.   TSevenSegForm = Class (TForm)
  10.     Label1: TLabel;
  11.     SevenSegDisplay1: TSevenSegDisplay;
  12.     SevenSegDisplay2: TSevenSegDisplay;
  13.     SevenSegDisplay3: TSevenSegDisplay;
  14.     SevenSegDisplay4: TSevenSegDisplay;
  15.     SevenSegDisplay5: TSevenSegDisplay;
  16.     SevenSegDisplay6: TSevenSegDisplay;
  17.     SevenSegDisplay7: TSevenSegDisplay;
  18.     SevenSegDisplay8: TSevenSegDisplay;
  19.     SevenSegDisplay9: TSevenSegDisplay;
  20.     SevenSegDisplay10: TSevenSegDisplay;
  21.     Timer1: TTimer;
  22.     Procedure SevenSegFormOnCreate (Sender: TObject);
  23.     Procedure Timer1OnTimer (Sender: TObject);
  24.   Private
  25.     {Insert private declarations here}
  26.   Public
  27.     {Insert public declarations here}
  28.     Procedure UpdateSeg;
  29.   End;
  30.  
  31. Var
  32.   SevenSegForm: TSevenSegForm;
  33.  
  34. Implementation
  35.  
  36. Procedure TSevenSegForm.UpdateSeg;
  37. Var Size:String;
  38.  
  39.    Procedure SetDigit(SevenSeg:TSevenSegDisplay;Number:Byte);
  40.    Begin
  41.        SevenSeg.Digits:=Size[Number];
  42.    End;
  43.  
  44. Begin
  45.     Size:=Tostr(DiskFree(3));
  46.     While length(Size)<10 Do Size:='0'+Size;
  47.     SetDigit(SevenSegDisplay10,10);
  48.     SetDigit(SevenSegDisplay9,9);
  49.     SetDigit(SevenSegDisplay8,8);
  50.     SetDigit(SevenSegDisplay7,7);
  51.     SetDigit(SevenSegDisplay6,6);
  52.     SetDigit(SevenSegDisplay5,5);
  53.     SetDigit(SevenSegDisplay4,4);
  54.     SetDigit(SevenSegDisplay3,3);
  55.     SetDigit(SevenSegDisplay2,2);
  56.     SetDigit(SevenSegDisplay1,1);
  57. End;
  58.  
  59. Procedure TSevenSegForm.SevenSegFormOnCreate (Sender: TObject);
  60. Begin
  61.   Timer1.Start;
  62.   UpdateSeg;
  63. End;
  64.  
  65. Procedure TSevenSegForm.Timer1OnTimer (Sender: TObject);
  66. Begin
  67.   UpdateSeg;
  68. End;
  69.  
  70. Initialization
  71.   RegisterClasses ([TSevenSegForm, TLabel, TSevenSegDisplay, TTimer]);
  72. End.
  73.