home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / WORKFILE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-25  |  1.3 KB  |  58 lines
  1. unit WorkFile;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls, Dialogs, Mask;
  7.  
  8. type
  9.   TWorkFileDlg = class(TForm)
  10.     OKBtn: TButton;
  11.     CancelBtn: TButton;
  12.     Bevel1: TBevel;
  13.     Label1: TLabel;
  14.     Edit1: TEdit;
  15.     FileBtn: TSpeedButton;
  16.     SaveDialog: TSaveDialog;
  17.     Label2: TLabel;
  18.     MaskEdit1: TMaskEdit;
  19.     Label3: TLabel;
  20.     procedure FormShow(Sender: TObject);
  21.     procedure FileBtnClick(Sender: TObject);
  22.     procedure OKBtnClick(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   WorkFileDlg: TWorkFileDlg;
  31.  
  32. implementation
  33.  
  34. uses Sdimain;
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TWorkFileDlg.FormShow(Sender: TObject);
  39. begin
  40.   Edit1.Text:=MainForm.LEADCapCtrl1.CapWorkFile;
  41.   MaskEdit1.Text:=IntToStr(MainForm.LEADCapCtrl1.CapWorkFileSize);
  42. end;
  43.  
  44. procedure TWorkFileDlg.FileBtnClick(Sender: TObject);
  45. begin
  46.   SaveDialog.FileName:=Edit1.Text;
  47.   if SaveDialog.Execute then
  48.     Edit1.Text:=SaveDialog.FileName;
  49. end;
  50.  
  51. procedure TWorkFileDlg.OKBtnClick(Sender: TObject);
  52. begin
  53.   MainForm.LEADCapCtrl1.CapWorkFile:=Edit1.Text;
  54.   MainForm.LEADCapCtrl1.CapWorkFileSize:=StrToInt(TrimRight(MaskEdit1.Text));
  55. end;
  56.  
  57. end.
  58.