1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
{
**********************************************************************
See the file COPYING.FPC, included in this distribution,
for details about the license.
**********************************************************************
Register the Paradox component
Copyright (C) 2008, Michael Van Canneyt michael@freepascal.org
}
unit regparadox;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, propedits, lresources, LazarusPackageIntf, paradox;
Type
TParadoxFileNamePropertyEditor=class(TFileNamePropertyEditor)
public
function GetFilter: String; override;
function GetInitialDirectory: string; override;
end;
TParadoxBlobFileNamePropertyEditor=class(TFileNamePropertyEditor)
public
function GetFilter: String; override;
function GetInitialDirectory: string; override;
end;
procedure register;
implementation
Resourcestring
SParadoxFiles = 'Paradox files';
SParadoxBlobFiles = 'Paradox blob files';
{ TParadoxFileNamePropertyEditor }
function TParadoxFileNamePropertyEditor.GetFilter: String;
begin
Result := SParadoxFiles+' (*.db)|*.db';
Result:= Result+ '|'+ inherited GetFilter;
end;
function TParadoxFileNamePropertyEditor.GetInitialDirectory: string;
begin
Result:= (GetComponent(0) as TParadox).FileName;
Result:= ExtractFilePath(Result);
end;
{ TParadoxBlobFileNamePropertyEditor }
function TParadoxBlobFileNamePropertyEditor.GetFilter: String;
begin
Result := SParadoxBlobFiles+' (*.bm)|*.bm';
Result:= Result+ '|'+ inherited GetFilter;
end;
function TParadoxBlobFileNamePropertyEditor.GetInitialDirectory: string;
begin
Result:= (GetComponent(0) as TParadox).BlobFileName;
Result:= ExtractFilePath(Result);
end;
procedure registerunitparadox;
begin
Registercomponents('Data Access',[TParadox]);
end;
procedure register;
begin
RegisterPropertyEditor(TypeInfo(AnsiString),
TParadox, 'FileName', TParadoxFileNamePropertyEditor);
RegisterPropertyEditor(TypeInfo(AnsiString),
TParadox, 'BlobFileName', TParadoxBlobFileNamePropertyEditor);
RegisterUnit('paradox',@RegisterUnitParadox);
end;
initialization
{$i regparadox.lrs}
end.
|
