blob: c2c4db0f6f5b5cfaa0b2e4d1838e182edc0ab2d0 (
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
101
102
103
104
105
106
107
108
109
110
111
112
|
{ Parsed from Appkit.framework NSStatusItem.h }
{ Version: 2.1.4 - Sun Jan 2 15:08:19 CET 2011 }
{$ifdef TYPES}
{$ifndef NSSTATUSITEM_PAS_T}
{$define NSSTATUSITEM_PAS_T}
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSSTATUSITEM_PAS_R}
{$define NSSTATUSITEM_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSSTATUSITEM_PAS_F}
{$define NSSTATUSITEM_PAS_F}
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSSTATUSITEM_PAS_S}
{$define NSSTATUSITEM_PAS_S}
{$endif}
{$endif}
{$ifdef FORWARD}
NSStatusItem = objcclass;
NSStatusItemPointer = ^NSStatusItem;
NSStatusItemPtr = NSStatusItemPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSSTATUSITEM_PAS_C}
{$define NSSTATUSITEM_PAS_C}
{ NSStatusItem }
NSStatusItem = objcclass external (NSObject)
private
_fStatusBar: NSStatusBar;
_fLength: CGFloat;
_fWindow: NSWindow;
_fView: NSView;
_fPriority: cint;
__fFlags: bitpacked record
case byte of
0: (_anonbitfield_NSStatusItem0: cuint);
1: (
customView: 0..1;
_highlightMode: 0..1;
hasAlternateImage: 0..1;
hidden: 0..1;
backgroundStyle: 0..((1 shl 4)-1);
inAdjustLength: 0..1;
reserved: 0..((1 shl 23)-1);
);
end;
_statusItemMenu: id;
_fReserved2: id;
_fReserved3: id;
_fReserved4: id;
public
function statusBar: NSStatusBar; message 'statusBar';
function length: CGFloat; message 'length';
procedure setLength(length_: CGFloat); message 'setLength:';
end;
{ NSStatusItemCommonCategory }
NSStatusItemCommonCategory = objccategory external (NSStatusItem)
function action: SEL; message 'action';
procedure setAction(action_: SEL); message 'setAction:';
function doubleAction: SEL; message 'doubleAction';
procedure setDoubleAction(action_: SEL); message 'setDoubleAction:';
function target: id; message 'target';
procedure setTarget(target_: id); message 'setTarget:';
function title: NSString; message 'title';
procedure setTitle(title_: NSString); message 'setTitle:';
function attributedTitle: NSAttributedString; message 'attributedTitle';
procedure setAttributedTitle(title_: NSAttributedString); message 'setAttributedTitle:';
function image: NSImage; message 'image';
procedure setImage(image_: NSImage); message 'setImage:';
function alternateImage: NSImage; message 'alternateImage';
procedure setAlternateImage(image_: NSImage); message 'setAlternateImage:';
function menu: NSMenu; message 'menu';
procedure setMenu(menu_: NSMenu); message 'setMenu:';
function isEnabled: Boolean; message 'isEnabled';
procedure setEnabled(enabled: Boolean); message 'setEnabled:';
function toolTip: NSString; message 'toolTip';
procedure setToolTip(toolTip_: NSString); message 'setToolTip:';
procedure setHighlightMode(highlightMode_: Boolean); message 'setHighlightMode:';
function highlightMode: Boolean; message 'highlightMode';
function sendActionOn(mask: NSInteger): NSInteger; message 'sendActionOn:';
procedure popUpStatusItemMenu(menu_: NSMenu); message 'popUpStatusItemMenu:';
procedure drawStatusBarBackgroundInRect_withHighlight(rect: NSRect; highlight: Boolean); message 'drawStatusBarBackgroundInRect:withHighlight:';
end;
{ NSStatusItemViewCategory }
NSStatusItemViewCategory = objccategory external (NSStatusItem)
function view: NSView; message 'view';
procedure setView(view_: NSView); message 'setView:';
end;
{$endif}
{$endif}
|
