home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / DRBOBC.ZIP / FILENAME.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-12  |  809b  |  34 lines
  1. unit FileName;
  2. interface
  3. uses DsgnIntf;
  4.  
  5. Type
  6.   TFileNameProperty = class(TStringProperty)
  7.   public
  8.     function GetAttributes: TPropertyAttributes; override;
  9.     procedure Edit; override;
  10.   end;
  11.  
  12. implementation
  13. uses Dialogs, Forms;
  14.  
  15.   function TFileNameProperty.GetAttributes: TPropertyAttributes;
  16.   begin
  17.     Result := [paDialog]
  18.   end {GetAttributes};
  19.  
  20.   procedure TFileNameProperty.Edit;
  21.   begin
  22.     with TOpenDialog.Create(Application) do
  23.     try
  24.       Title := GetName; { name of property as OpenDialog caption }
  25.       Filename := GetValue;
  26.       Filter := 'All Files (*.*)|*.*';
  27.       HelpContext := 0;
  28.       Options := Options + [ofShowHelp, ofPathMustExist, ofFileMustExist];
  29.       if Execute then SetValue(Filename);
  30.     finally
  31.       Free
  32.     end
  33.   end {Edit};
  34. end.