home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / srctt26 / freehrs.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  1.3 KB  |  57 lines
  1. unit Freehrs;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, Mask, ExtCtrls, SysUtils;
  7.  
  8. type
  9.   TBtnBottomDlg = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     CancelBtn: TBitBtn;
  12.     Bevel1: TBevel;
  13.     Label1: TLabel;
  14.     MaskEdit1: TMaskEdit;
  15.     MaskEdit2: TMaskEdit;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Label4: TLabel;
  19.     MaskEdit3: TMaskEdit;
  20.     procedure OKBtnClick(Sender: TObject);
  21.     procedure FormCreate(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   FreeHoursDlg: TBtnBottomDlg;
  30.   FreeHours         : Integer;
  31.   WarningLevel      : Integer;
  32.   PerHourCost       : Integer;
  33.   Temp              : String;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39.  
  40. procedure TBtnBottomDlg.OKBtnClick(Sender: TObject);
  41. begin
  42.   FreeHours := StrToInt (MaskEdit1.Text);
  43.   WarningLevel := StrToInt (MaskEdit2.Text);
  44.   Temp := MaskEdit3.Text[2] + MaskEdit3.Text[4] + MaskEdit3.Text[5];
  45.   PerHourCost := StrToInt (Temp);
  46. end;
  47.  
  48. procedure TBtnBottomDlg.FormCreate(Sender: TObject);
  49. begin
  50.   MaskEdit1.Text := IntToStr (FreeHours);
  51.   MaskEdit2.Text := IntToStr (WarningLevel);
  52.   MaskEdit3.Text := '$' + IntToStr (PerHourCost div 100) + '.' +
  53.     IntToStr (PerHourCost mod 100);
  54. end;
  55.  
  56. end.
  57.