blob: 2a5d3a7216bab55f73a20026953a519b39c4d1cb (
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
{ Parsed from Appkit.framework NSInterfaceStyle.h }
{$ifdef TYPES}
{$ifndef NSINTERFACESTYLE_PAS_T}
{$define NSINTERFACESTYLE_PAS_T}
{ Constants }
const
NSNoInterfaceStyle = 0;
NSNextStepInterfaceStyle = 1;
NSWindows95InterfaceStyle = 2;
NSMacintoshInterfaceStyle = 3;
{ Types }
type
NSInterfaceStyle = NSUInteger;
NSInterfaceStylePtr = ^NSInterfaceStyle;
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSINTERFACESTYLE_PAS_R}
{$define NSINTERFACESTYLE_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSINTERFACESTYLE_PAS_F}
{$define NSINTERFACESTYLE_PAS_F}
{ Functions }
function NSInterfaceStyleForKey(key: NSString; responder: NSResponder): NSInterfaceStyle; cdecl; external;
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSINTERFACESTYLE_PAS_S}
{$define NSINTERFACESTYLE_PAS_S}
{ External string constants }
var
NSInterfaceStyleDefault: NSString; cvar; external;
{$endif}
{$endif}
{$ifdef FORWARD}
{$endif}
{$ifdef CLASSES}
{$ifndef NSINTERFACESTYLE_PAS_C}
{$define NSINTERFACESTYLE_PAS_C}
{ NSInterfaceStyleCategory }
NSInterfaceStyleCategory = objccategory external (NSResponder)
function interfaceStyle: NSInterfaceStyle; message 'interfaceStyle';
procedure setInterfaceStyle(interfaceStyle: NSInterfaceStyle); message 'setInterfaceStyle:';
end;
{$endif}
{$endif}
|
