home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / QDB / QDBV.ZIP / qdbvreg.pas < prev    next >
Pascal/Delphi Source File  |  1998-06-27  |  2KB  |  74 lines
  1. unit qdbvreg;
  2.  
  3. interface
  4.  
  5. uses
  6.   DsgnIntf;
  7.  
  8. { Component editor for TQDBView. Handles the restructuring }
  9. { of files which contain data.                             }
  10. type
  11.   TQDBViewEditor = class(TComponentEditor)
  12.   public
  13.     function GetVerb(Index: Integer): string; override;
  14.     function GetVerbCount: Integer; override;
  15.     procedure ExecuteVerb(Index: Integer); override;
  16.   end;
  17.  
  18. procedure Register;
  19.  
  20. implementation
  21.  
  22. uses
  23.   SysUtils, Classes, Dialogs, Forms, TypInfo, Controls,
  24.   QDBView, RestForm;
  25.  
  26. {$IFDEF WIN32}
  27.   {$R QDBVREG.R32}
  28. {$ELSE}
  29.   {$R QDBVREG.R16}
  30. {$ENDIF}
  31.  
  32. function TQDBViewEditor.GetVerb(Index: Integer): string;
  33. var
  34.   FileName: string;
  35. begin
  36.   FileName:=(Component as TQDBView).FileName;
  37.   Result:='Restructure ' + ExtractFileName(FileName);
  38. end;
  39.  
  40. function TQDBViewEditor.GetVerbCount: Integer;
  41. begin
  42.   if ((Component as TQDBView).FileName = '') or
  43.      ((Component as TQDBView).Panel = nil) then
  44.     Result := 0
  45.   else
  46.     Result:=1;
  47. end;
  48.  
  49. procedure TQDBViewEditor.ExecuteVerb(Index: Integer);
  50. var
  51.   Form: TRestructureForm;
  52. begin
  53.   Form := TRestructureForm.Create(Application);
  54.   try
  55.     with (Component as TQDBView) do
  56.     begin
  57.     Form.Caption:='Restructuring ' + ExtractFileName(FileName);
  58.     Form.FileName:=FileName;
  59.     Form.Panel:=Panel;
  60.     Form.ShowModal;
  61.     end;
  62.   finally
  63.     Form.Free;
  64.   end;
  65. end;
  66.  
  67. procedure Register;
  68. begin
  69. RegisterComponents('IHSoftware', [TQDBItem, TQDBView]);
  70. RegisterComponentEditor(TQDBView,TQDBViewEditor);
  71. end;
  72.  
  73. end.
  74.