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
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
|
// Copyright Scott Ellis (mail@scottellis.com.au) 2005
// This software is licenced under the GPL (General Public Licence)
// available at http://www.gnu.org/copyleft/gpl.html
{$IFNDEF FONT_SERVICE_API}
{$DEFINE FONT_SERVICE_API}
const
// style flags
DBFONTF_BOLD = 1;
DBFONTF_ITALIC = 2;
DBFONTF_UNDERLINE = 4;
DBFONTF_STRIKEOUT = 8;
// flags for compatibility
FIDF_APPENDNAME = 1; // append 'Name' to the setting used to store
// font face (as CLC settings require)
FIDF_NOAS = 2; // disable the <prefix>As setting to prevent
// 'same as' behaviour
FIDF_SAVEACTUALHEIGHT = 4; // write the actual height of a test string to the db
FIDF_SAVEPOINTSIZE = 8; // write the font point size to the db
// additional flags
FIDF_DEFAULTVALID = 32; // the default font settings are valid - else,
// just use generic default
FIDF_NEEDRESTART = 64; // setting changes will not take effect until
// miranda is restarted
FIDF_ALLOWREREGISTER = 128; // allow plugins to register this font again
// (i.e. override already registered settings
// such as flags)
FIDF_ALLOWEFFECTS = 256; // allow setting of font effects
// (i.e. underline and strikeout)
FIDF_DISABLESTYLES = 512; // don't allow to select font attributes (bold/underline/italics)
// FIDF_ALLOWEFFECTS has priority and will override this flag!
const
// font class
FIDF_CLASSMASK = $70000000;
FIDF_CLASSHEADER = $10000000;
FIDF_CLASSGENERAL = $20000000;
FIDF_CLASSSMALL = $30000000;
type
// settings to be used for the value of 'deffontsettings' in the FontID
// structure below - i.e. defaults
PFontSettings_tag = ^TFontSettings_tag;
TFontSettings_tag = record
colour : TCOLORREF;
size : ShortInt;
style : BYTE; // see the DBFONTF_* flags above
charset : BYTE;
szFace : array[0..(LF_FACESIZE)-1] of AnsiChar;
end;
TFontSettings = TFontSettings_tag;
PFontSettings = ^TFontSettings;
PFontSettingsW_tag = ^TFontSettingsW_tag;
TFontSettingsW_tag = record
colour : TCOLORREF;
size : ShortInt;
style : BYTE; // see the DBFONTF_* flags above
charset : BYTE;
szFace : array[0..(LF_FACESIZE)-1] of WideChar;
end;
TFontSettingsW = TFontSettingsW_tag;
PFontSettingsW = ^TFontSettingsW;
type
// a font identifier structire - used for registering a font,
// and getting one out again
PFontID_tag = ^TFontID_tag;
TFontID_tag = record
cbSize : int;
// [TRANSLATED-BY-CORE] group the font belongs to - this is the 'Font Group' list in the options page
group : array[0..63] of AnsiChar;
// [TRANSLATED-BY-CORE] the name of the font setting e.g. 'contacts' in the 'contact list' group
name : array[0..63] of AnsiChar;
// the 'module' in the database where the font data is stored
dbSettingsGroup: array[0..31] of AnsiChar;
// prepended to the settings used to store this font's data in the db
prefix : array[0..31] of AnsiChar;
// bitwise OR of the FIDF_* flags above
flags : DWORD;
deffontsettings: TFontSettings; // defaults, if flags & FIDF_DEFAULTVALID
// controls the order in the font group in which the fonts are listed in the
// UI (if order fields are equal, they will be ordered alphabetically by name)
order : int;
backgroundGroup:array [0..63] of AnsiChar;
backgroundName: array [0..63] of AnsiChar;
end;
TFontID = TFontID_tag;
pFontID = ^TFontID;
PFontIDW_tag = ^TFontIDW_tag;
TFontIDW_tag = record
cbSize : int;
// [TRANSLATED-BY-CORE] group the font belongs to - this is the 'Font Group' list in the options page
group : array[0..63] of WideChar;
// [TRANSLATED-BY-CORE] the name of the font setting e.g. 'contacts' in the 'contact list' group
name : array[0..63] of WideChar;
// the 'module' in the database where the font data is stored
dbSettingsGroup: array[0..31] of AnsiChar;
// prepended to the settings used to store this font's data in the db
prefix : array[0..31] of AnsiChar;
// bitwise OR of the FIDF_* flags above
flags : DWORD;
deffontsettings: TFontSettingsW; // defaults, if flags & FIDF_DEFAULTVALID
// controls the order in the font group in which the fonts are listed in the
// UI (if order fields are equal, they will be ordered alphabetically by name)
order : int;
backgroundGroup:array [0..63] of WideChar;
backgroundName: array [0..63] of WideChar;
end;
TFontIDW = TFontIDW_tag;
PFontIDW = ^TFontIDW;
const
{$IFNDEF WIN64}
FontID_SIZEOF_V2 = 372;
FontID_SIZEOF_V2A = 372;
FontID_SIZEOF_V2U = 660;
FontIDW_SIZEOF_V2 = 660;
{$ELSE}
FontID_SIZEOF_V2 = SizeOf(TFontID);
FontID_SIZEOF_V2A = SizeOf(TFontID);
FontID_SIZEOF_V2U = SizeOf(TFontIDW);
FontIDW_SIZEOF_V2 = SizeOf(TFontIDW);
{$ENDIF}
const
{ register a font }
{ wparam = pointer to FontID structure}
{ lparam = hLangpack }
MS_FONT_REGISTERA:PAnsiChar = 'Font/Register';
MS_FONT_REGISTERW:PAnsiChar = 'Font/RegisterW';
{ get a font }
{ wparam = pointer to FontID structure (only name and group matter) }
{ lParam = pointer to LOGFONT structure }
{ returns the font's colour }
MS_FONT_GETA:PAnsiChar = 'Font/Get';
MS_FONT_GETW:PAnsiChar = 'Font/GetW';
{ fired when a user modifies font settings, so reget your fonts }
ME_FONT_RELOAD:PAnsiChar = 'Font/Reload';
type
PColourID_tag = ^TColourID_tag;
TColourID_tag = record
cbSize : int;
group : array[0..63] of AnsiChar;
name : array[0..63] of AnsiChar;
dbSettingsGroup : array[0..31] of AnsiChar;
setting : array[0..31] of AnsiChar;
flags : DWORD; // not used
defcolour : TCOLORREF; // default value
order : int;
end;
TColourID = TColourID_tag;
PColourID = ^TColourID;
PColourIDW_tag = ^TColourIDW_tag;
TColourIDW_tag = record
cbSize : int;
group : array[0..63] of WideChar;
name : array[0..63] of WideChar;
dbSettingsGroup : array[0..31] of AnsiChar;
setting : array[0..31] of AnsiChar;
flags : DWORD; // not used
defcolour : TCOLORREF; // default value
order : int;
end;
TColourIDW = TColourIDW_tag;
PColourIDW = ^TColourIDW;
const
{ register a colour (this should be used for everything except actual text colour for registered fonts) }
{ [note - a colour with name 'Background' has special meaning and will be used as the background colour of }
{ the font list box in the options, for the given group] }
{ wparam = pointer to ColourID structure }
{ lparam = hLangpack }
MS_COLOUR_REGISTERA:PAnsiChar = 'Colour/Register';
MS_COLOUR_REGISTERW:PAnsiChar = 'Colour/RegisterW';
{ get a colour }
{ wparam = pointer to ColourID structure (only name and group matter) }
{ returns the colour (as COLORREF), or -1 if not found }
MS_COLOUR_GETA:PAnsiChar = 'Colour/Get';
MS_COLOUR_GETW:PAnsiChar = 'Colour/GetW';
{ fired when a user modifies font settings, so reget your fonts and colours }
ME_COLOUR_RELOAD:PAnsiChar = 'Colour/Reload';
var
MS_FONT_REGISTER :PAnsiChar absolute MS_FONT_REGISTERW;
MS_FONT_GET :PAnsiChar absolute MS_FONT_GETW;
MS_COLOUR_REGISTER:PAnsiChar absolute MS_COLOUR_REGISTERW;
MS_COLOUR_GET :PAnsiChar absolute MS_COLOUR_GETW;
//////////////////////////////////////////////////////////////////////////
//
// EFFECTS
//
type
FONTEFFECT_tag = record
effectIndex :byte;
baseColour :dword; // ARGB
secondaryColour:dword; // ARGB
end;
TFONTEFFECT = FONTEFFECT_tag;
type
EffectID_tag = record
cbSize :int;
group :array [0..63] of AnsiChar;
name :array [0..63] of AnsiChar;
dbSettingsGroup:array [0..31] of AnsiChar;
setting :array [0..31] of AnsiChar;
flags :dword;
defeffect :TFONTEFFECT;
order :int;
value :TFONTEFFECT;
end;
PEffectID = ^TEffectID;
TEffectID = EffectID_tag;
type
EffectIDW_tag = record
cbSize :int;
group :array [0..63] of WideChar;
name :array [0..63] of WideChar;
dbSettingsGroup:array [0..31] of AnsiChar;
setting :array [0..31] of AnsiChar;
flags :dword;
defeffect :TFONTEFFECT;
order :int;
value :TFONTEFFECT;
end;
PEffectIDW = ^TEffectIDW;
TEffectIDW = EffectIDW_tag;
const
// register an effect
// wparam = (EffectID *)&effect_id
// lparam = hLangpack
MS_EFFECT_REGISTERA:pAnsiChar = 'Effect/Register';
MS_EFFECT_REGISTERW:pAnsiChar = 'Effect/RegisterW';
// get a effect
// wparam = (EffectID *)&effect_id (only name and group matter)
// lparam = (FONTEFFECT *)&effect
// rerturns 0, or -1 if not found
MS_EFFECT_GET :pAnsiChar = 'Effect/Get';
MS_EFFECT_GETW:pAnsiChar = 'Effect/GetW';
// fired when a user modifies font settings, so reget your fonts and colours
// wparam = lparam = 0
ME_EFFECT_RELOAD:pAnsiChar = 'Effect/Reload';
{$ENDIF}
|
