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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
{
Miranda IM: the free IM client for Microsoft Windows
Copyright 2000-2003 Miranda ICQ/IM project,
all portions of this codebase are copyrighted to the people
listed in contributors.txt.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
{$IFNDEF M_OPTIONS}
{$DEFINE M_OPTIONS}
const
{ Opt/Initialise
The user opened the options dialog. Modules should do whatever initialisation
they need and call opt/addpage one or more times if they want pages displayed
in the options dialog
wParam=addInfo
lParam=0
addInfo should be passed straight to the wParam of opt/addpage
}
ME_OPT_INITIALISE:PAnsiChar = 'Opt/Initialise';
{ Opt/AddPage
Must only be called during an opt/initialise hook
Adds a page to the options dialog
wParam=addInfo
lParam=(LPARAM)(OPTIONSDIALOGPAGE )odp
addInfo must have come straight from the wParam of opt/initialise
Pages in the options dialog operate just like pages in property sheets. See the
Microsoft documentation for details on how they operate.
Strings in the structure can be released as soon as the service returns, but
icons must be kept around. This is not a problem if you're loading them from a
resource.
Prior to v0.1.2.1 the options dialog would resize to fit the largest page, but
since then it is fixed in size. The largest page that fits neatly is 314x240
DLUs.
}
type
POPTIONSDIALOGPAGE = ^TOPTIONSDIALOGPAGE;
TOPTIONSDIALOGPAGE = record
cbSize :int;
position :int; // a position number, lower numbers are topmost
szTitle :TChar; // [TRANSLATED-BY-CORE]
pfnDlgProc :pointer;
pszTemplate :PAnsiChar;
hInstance :THANDLE;
hIcon :HICON; // v0.1.0.1+
szGroup :TChar; // v0.1.0.1+ [TRANSLATED-BY-CORE]
groupPosition :int; // v0.1.0.1+
hGroupIcon :HICON; // v0.1.0.1+
flags :dword; // v0.1.2.1+
nIDBottomSimpleControl:int; // v0.1.2.1+
// if in simple mode the dlg will be cut off after this control,
// 0 to disable
nIDRightSimpleControl :int; // v0.1.2.1+
// if in simple mode the dlg will be cut off after this control,
// 0 to disable
expertOnlyControls :^uint;
nExpertOnlyControls :int; // v0.1.2.1+
// these controls will be hidden in simple mode. Array must remain valid
// for duration of dlg.
szTab :TChar; // v0.6.0.0+ [TRANSLATED-BY-CORE]
dwInitParam :LPARAM; // v0.8.0.0+ a value to pass to lParam of WM_INITDIALOG message
hLangpack :int;
end;
const
{$IFNDEF WIN64}
OPTIONPAGE_OLD_SIZE = 40;
OPTIONPAGE_OLD_SIZE2 = 60;
OPTIONPAGE_OLD_SIZE3 = 64;
{$ELSE}
OPTIONPAGE_OLD_SIZE = SIZEOF(TOPTIONSDIALOGPAGE);
OPTIONPAGE_OLD_SIZE2 = SIZEOF(TOPTIONSDIALOGPAGE);
OPTIONPAGE_OLD_SIZE3 = SIZEOF(TOPTIONSDIALOGPAGE);
{$ENDIF}
const
ODPF_SIMPLEONLY = 1; // page is only shown when in simple mode
ODPF_EXPERTONLY = 2; // " expert mode
ODPF_BOLDGROUPS = 4; // give group box titles a bold font
ODPF_UNICODE = 8; // string fields in OPTIONSDIALOGPAGE are WCHAR*
ODPF_USERINFOTAB = 16; // options page is tabbed
ODPF_DONTTRANSLATE = 32; // do not translate option page title
const
PSN_EXPERTCHANGED = 2; //sent to pages via WM_NOTIFY when the expert checkbox is clicked. lParam=new state
PSM_ISEXPERT = WM_USER+101; //returns true/false
PSM_GETBOLDFONT = WM_USER+102; //returns HFONT used for group box titles
MS_OPT_ADDPAGE:PAnsiChar = 'Opt/AddPage';
{ Opens the options dialog, optionally at the specified page v0.1.2.1+
wParam=0
lParam=(LPARAM)(OPENOPTIONSDIALOG*)&ood;
Returns 0 on success, nonzero on failure
The behaviour if the options dialog is already open is that it will just be
activated, the page won't be changed. This may change in the future. }
type
POPENOPTIONSDIALOG = ^TOPENOPTIONSDIALOG;
TOPENOPTIONSDIALOG = record
cbSize :int;
pszGroup:PAnsiChar; // set to NULL if it's a root item
pszPage :PAnsiChar; // set to NULL to just open the options at no specific page
pszTab :PAnsiChar; // set to NULL to just open the options at no specific tab
end;
const
MS_OPT_OPENOPTIONS:PAnsiChar = 'Opt/OpenOptions';
//Opens the options dialog, with only specified page v0.8.0.x+
MS_OPT_OPENOPTIONSPAGE = 'Opt/OpenOptionsPage';
SETTING_SHOWEXPERT_DEFAULT = 1;
{$ENDIF}
|
