blob: 878f1274277c837a8921108fc33c502cf99b2525 (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
{}
var
xmlfilename:array [0..511] of WideChar;
const
etMacro = 1; // Groups changed
etACT = 2; // Actions changed
{$include i_opt_dlg2.inc}
function OnOptInitialise(wParam:WPARAM;lParam:LPARAM):int;cdecl;
var
odp:TOPTIONSDIALOGPAGE;
ptr:pActionLink;
tmpl:pAnsiChar;
name:pansiChar;
proc:pointer;
i:integer;
begin
result:=0;
NoDescription:=TranslateW('No description');
StrCopyW(xmlfilename,'c:\export.xml');
DoInitCommonControls(ICC_USEREX_CLASSES);
FillChar(odp,SizeOf(odp),0);
odp.flags :=ODPF_BOLDGROUPS;
odp.Position :=900003000;
odp.szGroup.a :='Services';
odp.szTitle.a :='Actions';
odp.szTab.a :='Actions';
odp.pfnDlgProc :=@DlgProcOpt2;
odp.pszTemplate:=PAnsiChar(IDD_ACTION);
Options_AddPage(wParam,@odp);
ptr:=ActionLink;
while ptr<>nil do
begin
if @ptr^.AddOption<>nil then
begin
i:=ptr^.AddOption(tmpl,proc,name);
odp.pszTemplate:=tmpl;
odp.pfnDlgProc :=proc;
odp.szTab.a :=name;
Options_AddPage(wParam,@odp);
if i>0 then continue;
end;
ptr:=ptr^.Next;
end;
end;
|
