blob: 2364ff660f1b92586d0f1c35b39f5e31c8da57c7 (
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
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
|
{ Parsed from AppKit.framework NSBox.h }
{$ifdef TYPES}
type
NSBoxPtr = ^NSBox;
{$endif}
{$ifdef TYPES}
type
NSTitlePosition = NSUInteger;
NSTitlePositionPtr = ^NSTitlePosition;
const
NSNoTitle = 0;
NSAboveTop = 1;
NSAtTop = 2;
NSBelowTop = 3;
NSAboveBottom = 4;
NSAtBottom = 5;
NSBelowBottom = 6;
type
NSBoxType = NSUInteger;
NSBoxTypePtr = ^NSBoxType;
const
NSBoxPrimary = 0;
NSBoxSecondary = 1;
NSBoxSeparator = 2;
NSBoxOldStyle = 3;
NSBoxCustom = 4 { available in 10_5 };
{$endif}
{$ifdef CLASSES}
type
NSBox = objcclass external (NSView)
private
_titleCell: id;
_contentView: id;
_offsets: NSSize;
_borderRect: NSRect;
_titleRect: NSRect;
_bFlags: bitpacked record
case byte of
0: (_anonBitField__bFlags0: cuint);
1: (
borderType: 0..((1 shl 2)-1);
titlePosition: 0..((1 shl 3)-1);
backgroundTransparent: 0..1;
orientation: 0..((1 shl 2)-1);
needsTile: 0..1;
transparent: 0..1;
colorAltInterpretation: 0..1;
boxType: 0..((1 shl 3)-1);
useSuperAddSubview: 0..1;
_RESERVED: 0..((1 shl 17)-1);
);
end;
_unused: id;
public
procedure setBorderType(newValue: NSBorderType); message 'setBorderType:';
function borderType: NSBorderType; message 'borderType';
procedure setTitlePosition(newValue: NSTitlePosition); message 'setTitlePosition:';
function titlePosition: NSTitlePosition; message 'titlePosition';
procedure setBoxType(newValue: NSBoxType); message 'setBoxType:';
function boxType: NSBoxType; message 'boxType';
procedure setTitle(newValue: NSString); message 'setTitle:';
function title: NSString; message 'title';
procedure setTitleFont(newValue: NSFont); message 'setTitleFont:';
function titleFont: NSFont; message 'titleFont';
function borderRect: NSRect; message 'borderRect';
function titleRect: NSRect; message 'titleRect';
function titleCell: id; message 'titleCell';
procedure sizeToFit; message 'sizeToFit';
procedure setContentViewMargins(newValue: NSSize); message 'setContentViewMargins:';
function contentViewMargins: NSSize; message 'contentViewMargins';
procedure setFrameFromContentFrame (contentFrame: NSRect); message 'setFrameFromContentFrame:';
procedure setContentView(newValue: id); message 'setContentView:';
function contentView: id; message 'contentView';
procedure setTransparent(newValue: ObjCBOOL); message 'setTransparent:';
function isTransparent: ObjCBOOL; message 'isTransparent';
procedure setBorderWidth(newValue: CGFloat); message 'setBorderWidth:';
function borderWidth: CGFloat; message 'borderWidth';
procedure setCornerRadius(newValue: CGFloat); message 'setCornerRadius:';
function cornerRadius: CGFloat; message 'cornerRadius';
procedure setBorderColor(newValue: NSColor); message 'setBorderColor:';
function borderColor: NSColor; message 'borderColor';
procedure setFillColor(newValue: NSColor); message 'setFillColor:';
function fillColor: NSColor; message 'fillColor';
end;
type
NSBox_NSDeprecated = objccategory external name 'NSDeprecated' (NSBox)
procedure setTitleWithMnemonic (stringWithAmpersand: NSString); message 'setTitleWithMnemonic:'; deprecated 'in 10_0, 10_8';
end;
{$endif}
|
