home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap28 / object4 / selldlgs.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-20  |  2KB  |  80 lines
  1. unit Selldlgs;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: OBJECT4 }
  5.  
  6. interface
  7.  
  8. uses
  9.   WinTypes, WinProcs, Classes,
  10.   Graphics, Forms, Controls,
  11.   Buttons, StdCtrls, ExtCtrls,
  12.   Mask, SysUtils;
  13.  
  14. type
  15.   TDataRec = record
  16.     BlueTotal: LongInt;
  17.     YellowTotal: LongInt;
  18.     GreenTotal: LongInt;
  19.     VioletTotal: LongInt;
  20.   end;
  21.  
  22.   TSellDlg = class(TForm)
  23.     OKBtn: TBitBtn;
  24.     CancelBtn: TBitBtn;
  25.     HelpBtn: TBitBtn;
  26.     Bevel1: TBevel;
  27.     Label1: TLabel;
  28.     Label2: TLabel;
  29.     Label3: TLabel;
  30.     Label4: TLabel;
  31.     MaskEdit1: TMaskEdit;
  32.     MaskEdit2: TMaskEdit;
  33.     MaskEdit3: TMaskEdit;
  34.     MaskEdit4: TMaskEdit;
  35.     procedure FormActivate(Sender: TObject);
  36.   public
  37.     function GetData(var DataRec: TDataRec): Boolean;
  38.   end;
  39.  
  40. var
  41.   SellDlg: TSellDlg;
  42.  
  43. implementation
  44.  
  45. uses
  46.   StrBox;
  47.  
  48. {$R *.DFM}
  49.  
  50. function CheckString(S: string): string;
  51. begin
  52.   S := CleanString(S);
  53.   if S = '' then S := '0';
  54.   Result := S;
  55. end;
  56.  
  57. function TSellDlg.GetData(var DataRec: TDataRec): Boolean;
  58. var
  59.   i: Integer;
  60. begin
  61.   GetData := True;
  62.   for i := 0 to ComponentCount - 1 do
  63.     if Components[i] is TMaskEdit then
  64.       TMaskEdit(Components[i]).Text := '';
  65.   if ShowModal = mrOk then begin
  66.     DataRec.BlueTotal := StrToInt(CheckString(MaskEdit1.Text));
  67.     DataRec.YellowTotal := StrToInt(CheckString(MaskEdit2.Text));
  68.     DataRec.GreenTotal := StrToInt(CheckString(MaskEdit3.Text));
  69.     DataRec.VioletTotal := StrToInt(CheckString(MaskEdit4.Text));
  70.   end else
  71.     GetData := False;
  72. end;
  73.  
  74. procedure TSellDlg.FormActivate(Sender: TObject);
  75. begin
  76.   MaskEdit1.SetFocus;
  77. end;
  78.  
  79. end.
  80.