home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / delphi / DB / QDBVCLD3.ZIP / qdbreg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-11-20  |  1.2 KB  |  57 lines
  1. unit qdbreg;
  2.  
  3. interface
  4.  
  5. procedure Register;
  6.  
  7. implementation
  8.  
  9. uses
  10.   SysUtils, Classes, Dialogs, Forms, DsgnIntf, QDB, QDBPanel;
  11.  
  12. const
  13.   SFilter = 'QDB files (*.QDB)|*.QDB|Any Files (*.*)|*.*';
  14.  
  15. {$IFDEF WIN32}
  16.   {$R QDBREG.R32}
  17. {$ELSE}
  18.   {$R QDBREG.R16}
  19. {$ENDIF}
  20.  
  21. type
  22.   TQDBFilenameProperty = class(TStringProperty)
  23.   public
  24.     procedure Edit; override;
  25.     function GetAttributes: TPropertyAttributes; override;
  26.   end;
  27.  
  28.  
  29. procedure TQDBFilenameProperty.Edit;
  30. var
  31.   QDBFileOpen: TOpenDialog;
  32. begin
  33.   QDBFileOpen:=TOpenDialog.Create(Application);
  34.   QDBFileOpen.Filename:=GetValue;
  35.   QDBFileOpen.Filter:=SFilter;
  36.   QDBFileOpen.HelpContext:=0;
  37.   QDBFileOpen.Options:=[ofPathMustExist];
  38.   try
  39.     if QDBFileOpen.Execute then SetValue(QDBFileOpen.Filename);
  40.   finally
  41.     QDBFileOpen.Free;
  42.   end;
  43. end;
  44.  
  45. function TQDBFilenameProperty.GetAttributes: TPropertyAttributes;
  46. begin
  47.   Result := [paDialog{$IFDEF WIN32}, paRevertable{$ENDIF}];
  48. end;
  49.  
  50. procedure Register;
  51. begin
  52. RegisterComponents('IHSoftware', [TQDB,TQDBNavigator,TQDBPanel]);
  53. RegisterPropertyEditor(TypeInfo(TQDBFileName), TQDB, 'FileName', TQDBFileNameProperty);
  54. end;
  55.  
  56. end.
  57.