36c17ca7ed
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6905 8e941d3f-bd1b-0410-a28a-d453659cc2b4
45 lines
857 B
ObjectPascal
45 lines
857 B
ObjectPascal
unit paradoxreg;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LResources, Paradoxds, LazarusPackageIntf, PropEdits;
|
|
|
|
resourcestring
|
|
dbfsAllparadoxfiles = 'Paradox Files';
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
{$R pdx_icons.res}
|
|
|
|
type
|
|
TParadoxFileNamePropertyEditor = class(TFileNamePropertyEditor)
|
|
public
|
|
function GetFilter: String; override;
|
|
end;
|
|
|
|
function TParadoxFileNamePropertyEditor.GetFilter: String;
|
|
begin
|
|
Result := dbfsAllParadoxFiles+' (*.db)|*.db;*.DB';
|
|
Result:= Result+ '|'+ inherited GetFilter;
|
|
end;
|
|
|
|
procedure RegisterUnitParadox;
|
|
begin
|
|
RegisterComponents('Data Access',[TParadoxDataSet]);
|
|
RegisterPropertyEditor(TypeInfo(AnsiString), TParadoxDataSet, 'TableName', TParadoxFileNamePropertyEditor);
|
|
end;
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterUnit('paradoxds',@RegisterUnitParadox);
|
|
end;
|
|
|
|
initialization
|
|
|
|
end.
|