home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd2.bin / Borland / interbase / IBConsole_src.ZIP / ibconsole / frmuAddTool.pas < prev    next >
Pascal/Delphi Source File  |  2000-07-24  |  2KB  |  77 lines
  1. {
  2.  * The contents of this file are subject to the InterBase Public License
  3.  * Version 1.0 (the "License"); you may not use this file except in
  4.  * compliance with the License.
  5.  * 
  6.  * You may obtain a copy of the License at http://www.Inprise.com/IPL.html.
  7.  * 
  8.  * Software distributed under the License is distributed on an "AS IS"
  9.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  10.  * the License for the specific language governing rights and limitations
  11.  * under the License.  The Original Code was created by Inprise
  12.  * Corporation and its predecessors.
  13.  * 
  14.  * Portions created by Inprise Corporation are Copyright (C) Inprise
  15.  * Corporation. All Rights Reserved.
  16.  * 
  17.  * Contributor(s): ______________________________________.
  18. }
  19.  
  20. unit frmuAddTool;
  21.  
  22. interface
  23.  
  24. uses
  25.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  26.   frmuDlgClass, StdCtrls;
  27.  
  28. type
  29.   TfrmAddTools = class(TDialog)
  30.     Label1: TLabel;
  31.     Label2: TLabel;
  32.     Label3: TLabel;
  33.     Label4: TLabel;
  34.     edtTitle: TEdit;
  35.     edtProgram: TEdit;
  36.     edtWorkingDir: TEdit;
  37.     edtParams: TEdit;
  38.     btnOK: TButton;
  39.     btnCancel: TButton;
  40.     btnBrowse: TButton;
  41.     procedure btnBrowseClick(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  47.  
  48. implementation
  49.  
  50. uses zluGlobal;
  51.  
  52. {$R *.DFM}
  53.  
  54. procedure TfrmAddTools.btnBrowseClick(Sender: TObject);
  55. var
  56.   OpenDlg: TOpenDialog;
  57. begin
  58.   inherited;
  59.   OpenDlg := TOpenDialog.Create (self);
  60.  
  61.   with OpenDlg do
  62.   begin
  63.     DefaultExt := '.EXE';
  64.     Options := Options + [ofPathMustExist, ofFileMustExist];
  65.     Filter := 'Program Files | *.EXE; *.BAT; *.COM;';
  66.     if Execute then
  67.     begin
  68.       edtProgram.Text := FileName;
  69.       if Length(edtTitle.Text) = 0 then
  70.         edtTitle.Text := ExtractFileName(FileName);
  71.     end;
  72.     Free;
  73.   end;
  74. end;
  75.  
  76. end.
  77.