blob: 276f71dea7e0a002a41add05570b19cf57ef67b5 (
plain)
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
|
unit global;
interface
const
DBBranch = 'ActMan';
const
ACF_SELECTED = $08000000;
ACF_EXPORT = ACF_SELECTED;
ACF_IMPORT = ACF_SELECTED;
ACF_OVERLOAD = $01000000;
type
tAddOption = function(var tmpl:pAnsiChar;var proc:pointer;var name:PAnsiChar):integer;
type
pActionLink=^tActionLink;
tActionLink=record
Next :pActionLink;
Init :procedure;
DeInit :procedure;
AddOption:tAddOption;
end;
const
ActionLink:pActionLink=nil;
implementation
end.
|
