home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 37 / hot37.iso / FICHEROS / 9TOOL / ADDZIP.ZIP / DELPHI / QUICKZIP / REPLACE.PAS < prev    next >
Pascal/Delphi Source File  |  1998-02-01  |  825b  |  42 lines
  1. unit Replace;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;
  8.  
  9. type
  10.   TReplaceDlg = class(TForm)
  11.     imgQuestion: TImage;
  12.     btnYes: TBitBtn;
  13.     btnNo: TBitBtn;
  14.     lblReplace: TLabel;
  15.     lblWith: TLabel;
  16.     lblOldFileName: TLabel;
  17.     lblOldFileData: TLabel;
  18.     lblNewFileName: TLabel;
  19.     lblNewFileData: TLabel;
  20.     btnYesToAll: TBitBtn;
  21.     btnNoToAll: TBitBtn;
  22.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   ReplaceDlg: TReplaceDlg;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TReplaceDlg.FormClose(Sender: TObject; var Action: TCloseAction);
  37. begin
  38.    Action := caFree;
  39. end;
  40.  
  41. end.
  42.