blob: b2a98997b11c51c1559b7d41899a745592a15bcd (
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
|
{ Parsed from AppKit.framework NSMenuView.h }
{$ifdef TYPES}
type
NSMenuViewPtr = ^NSMenuView;
{$endif}
{$if not defined(__LP64__)}
{$ifdef CLASSES}
type
NSMenuView = objcclass external (NSView)
private
_menu: NSMenu;
_cells: NSMutableArray;
_stateImageWidth: CGFloat;
_imageAndTitleWidth: CGFloat;
_keyEquivalentWidth: CGFloat;
_extents: CGFloatPtr;
_extentsCapacity: cuint;
_highlightedItemIndex: cint;
_submenuPopupCancel: pObjCBOOL;
_attachedMenuView: NSMenuView;
_scrollArrowHeight: CGFloat;
_maxWinHeight: CGFloat;
_font: NSFont;
_minSize: NSSize;
_horizontalEdgePad: CGFloat;
trackingState: pointer;
_scrollingView: id;
_mvFlags: bitpacked record
case byte of
0: (_anonBitField__mvFlags0: cuint);
1: (
needsSizing_: 0..1;
releasingWindow: 0..1;
isHorizontal_: 0..1;
disableSizing: 0..1;
attachedSubmenuWhileMouseWasUp: 0..1;
needsToCreateCells: 0..1;
allowsTearOffs: 0..1;
isTearOff: 0..1;
keyEquivGlyphWidth: 0..((1 shl 16)-1);
disableResize: 0..1;
savedHODState: 0..1;
drawCenter: 0..1;
RESERVED: 0..((1 shl 5)-1);
);
end;
public
class function menuBarHeight: CGFloat; message 'menuBarHeight';
function initWithFrame (frame_: NSRect): id; message 'initWithFrame:';
function initAsTearOff: id; message 'initAsTearOff';
procedure setMenu (menu_: NSMenu); message 'setMenu:';
function menu_: NSMenu; message 'menu';
procedure itemChanged (notification: NSNotification); message 'itemChanged:';
procedure itemAdded (notification: NSNotification); message 'itemAdded:';
procedure itemRemoved (notification: NSNotification); message 'itemRemoved:';
procedure update; message 'update';
procedure setHorizontal (flag: ObjCBOOL); message 'setHorizontal:';
function isHorizontal: ObjCBOOL; message 'isHorizontal';
procedure setFont (font: NSFont); message 'setFont:';
function font: NSFont; message 'font';
function innerRect: NSRect; message 'innerRect';
function rectOfItemAtIndex (index: NSInteger): NSRect; message 'rectOfItemAtIndex:';
function indexOfItemAtPoint (point: NSPoint): NSInteger; message 'indexOfItemAtPoint:';
procedure setNeedsDisplayForItemAtIndex (index: NSInteger); message 'setNeedsDisplayForItemAtIndex:';
procedure setHighlightedItemIndex (index: NSInteger); message 'setHighlightedItemIndex:';
function highlightedItemIndex: NSInteger; message 'highlightedItemIndex';
function stateImageOffset: CGFloat; message 'stateImageOffset';
function stateImageWidth: CGFloat; message 'stateImageWidth';
function imageAndTitleOffset: CGFloat; message 'imageAndTitleOffset';
function imageAndTitleWidth: CGFloat; message 'imageAndTitleWidth';
function keyEquivalentOffset: CGFloat; message 'keyEquivalentOffset';
function keyEquivalentWidth: CGFloat; message 'keyEquivalentWidth';
procedure setMenuItemCell_forItemAtIndex (cell: NSMenuItemCell; index: NSInteger); message 'setMenuItemCell:forItemAtIndex:';
function menuItemCellForItemAtIndex (index: NSInteger): NSMenuItemCell; message 'menuItemCellForItemAtIndex:';
function attachedMenuView: NSMenuView; message 'attachedMenuView';
procedure setNeedsSizing (flag: ObjCBOOL); message 'setNeedsSizing:';
function needsSizing: ObjCBOOL; message 'needsSizing';
procedure sizeToFit; message 'sizeToFit';
function attachedMenu: NSMenu; message 'attachedMenu';
function isAttached: ObjCBOOL; message 'isAttached';
function isTornOff: ObjCBOOL; message 'isTornOff';
function locationForSubmenu (aSubmenu: NSMenu): NSPoint; message 'locationForSubmenu:';
procedure setWindowFrameForAttachingToRect_onScreen_preferredEdge_popUpSelectedItem (screenRect: NSRect; screen: NSScreen; edge: NSRectEdge; selectedItemIndex: NSInteger); message 'setWindowFrameForAttachingToRect:onScreen:preferredEdge:popUpSelectedItem:';
procedure detachSubmenu; message 'detachSubmenu';
procedure attachSubmenuForItemAtIndex (index: NSInteger); message 'attachSubmenuForItemAtIndex:';
procedure performActionWithHighlightingForItemAtIndex (index: NSInteger); message 'performActionWithHighlightingForItemAtIndex:';
function trackWithEvent (event: NSEvent): ObjCBOOL; message 'trackWithEvent:';
function horizontalEdgePadding: CGFloat; message 'horizontalEdgePadding';
procedure setHorizontalEdgePadding (pad: CGFloat); message 'setHorizontalEdgePadding:';
end;
{$endif}
{$endif}
|
