blob: ca07be30e0464f8ff0c10d6d6a1e531e02e55a8a (
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
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
|
{ Parsed from AppKit.framework NSControl.h }
{$ifdef TYPES}
type
NSControlPtr = ^NSControl;
NSControlTextEditingDelegateProtocolPtr = ^NSControlTextEditingDelegateProtocol;
{$endif}
{$ifdef CLASSES}
type
NSControl = objcclass external (NSView)
private
_aux: NSControlAuxiliary;
_cell: id;
_conFlags: bitpacked record
case byte of
0: (_anonBitField__conFlags0: cuint);
1: (
enabled: 0..1;
ignoreMultiClick: 0..1;
calcSize_: 0..1;
drawingAncestor: 0..1;
ibReserved: 0..1;
updateCellFocus: 0..1;
allowsLogicalLayoutDirection: 0..1;
asmlwidth: 0..1;
hsmlwidth: 0..1;
dontValidate: 0..1;
reserved: 0..((1 shl 22)-1);
);
end;
public
procedure setTarget(newValue: id); message 'setTarget:';
function target: id; message 'target';
procedure setAction(newValue: SEL); message 'setAction:';
function action: SEL; message 'action';
procedure setTag(newValue: NSInteger); message 'setTag:';
function tag: NSInteger; message 'tag';
procedure setIgnoresMultiClick(newValue: ObjCBOOL); message 'setIgnoresMultiClick:';
function ignoresMultiClick: ObjCBOOL; message 'ignoresMultiClick';
procedure setContinuous(newValue: ObjCBOOL); message 'setContinuous:';
function isContinuous: ObjCBOOL; message 'isContinuous';
procedure setEnabled(newValue: ObjCBOOL); message 'setEnabled:';
function isEnabled: ObjCBOOL; message 'isEnabled';
procedure setRefusesFirstResponder(newValue: ObjCBOOL); message 'setRefusesFirstResponder:';
function refusesFirstResponder: ObjCBOOL; message 'refusesFirstResponder';
procedure setHighlighted(newValue: ObjCBOOL); message 'setHighlighted:';
function isHighlighted: ObjCBOOL; message 'isHighlighted';
procedure setControlSize(newValue: NSControlSize); message 'setControlSize:';
function controlSize: NSControlSize; message 'controlSize';
procedure setFormatter(newValue: id); message 'setFormatter:';
function formatter: id; message 'formatter';
procedure setStringValue(newValue: NSString); message 'setStringValue:';
function stringValue: NSString; message 'stringValue';
procedure setAttributedStringValue(newValue: NSAttributedString); message 'setAttributedStringValue:';
function attributedStringValue: NSAttributedString; message 'attributedStringValue';
procedure setObjectValue(newValue: id); message 'setObjectValue:';
function objectValue: id; message 'objectValue';
procedure setIntValue(newValue: cint); message 'setIntValue:';
function intValue: cint; message 'intValue';
procedure setIntegerValue(newValue: NSInteger); message 'setIntegerValue:';
function integerValue: NSInteger; message 'integerValue';
procedure setFloatValue(newValue: single); message 'setFloatValue:';
function floatValue: single; message 'floatValue';
procedure setDoubleValue(newValue: double); message 'setDoubleValue:';
function doubleValue: double; message 'doubleValue';
function sizeThatFits (size: NSSize): NSSize; message 'sizeThatFits:'; { available in 10_10 }
function initWithFrame (frameRect: NSRect): instancetype; message 'initWithFrame:'; { NS_DESIGNATED_INITIALIZER }
function initWithCoder (coder: NSCoder): instancetype; message 'initWithCoder:'; { NS_DESIGNATED_INITIALIZER }
procedure sizeToFit; message 'sizeToFit';
function sendActionOn (mask: NSInteger): NSInteger; message 'sendActionOn:';
function sendAction_to (theAction: SEL; theTarget: id): ObjCBOOL; message 'sendAction:to:';
procedure takeIntValueFrom (sender: id); message 'takeIntValueFrom:';
procedure takeFloatValueFrom (sender: id); message 'takeFloatValueFrom:';
procedure takeDoubleValueFrom (sender: id); message 'takeDoubleValueFrom:';
procedure takeStringValueFrom (sender: id); message 'takeStringValueFrom:';
procedure takeObjectValueFrom (sender: id); message 'takeObjectValueFrom:';
procedure takeIntegerValueFrom (sender: id); message 'takeIntegerValueFrom:'; { available in 10_5 }
procedure mouseDown (theEvent: NSEvent); message 'mouseDown:';
end;
type
NSControl_NSKeyboardUI = objccategory external name 'NSKeyboardUI' (NSControl)
procedure performClick (sender: id); message 'performClick:';
procedure setRefusesFirstResponder (flag: ObjCBOOL); message 'setRefusesFirstResponder:';
function refusesFirstResponder_: ObjCBOOL; message 'refusesFirstResponder';
end;
type
NSControlTextMethods = objccategory external (NSControl)
procedure setAlignment(newValue: NSTextAlignment); message 'setAlignment:';
function alignment: NSTextAlignment; message 'alignment';
procedure setFont(newValue: NSFont); message 'setFont:';
function font: NSFont; message 'font';
procedure setLineBreakMode(newValue: NSLineBreakMode); message 'setLineBreakMode:';
function lineBreakMode: NSLineBreakMode; message 'lineBreakMode';
procedure setUsesSingleLineMode(newValue: ObjCBOOL); message 'setUsesSingleLineMode:';
function usesSingleLineMode: ObjCBOOL; message 'usesSingleLineMode';
procedure setBaseWritingDirection(newValue: NSWritingDirection); message 'setBaseWritingDirection:';
function baseWritingDirection: NSWritingDirection; message 'baseWritingDirection';
procedure setAllowsExpansionToolTips(newValue: ObjCBOOL); message 'setAllowsExpansionToolTips:';
function allowsExpansionToolTips: ObjCBOOL; message 'allowsExpansionToolTips';
function expansionFrameWithFrame (contentFrame: NSRect): NSRect; message 'expansionFrameWithFrame:'; { available in 10_10 }
procedure drawWithExpansionFrame_inView (contentFrame: NSRect; view: NSView); message 'drawWithExpansionFrame:inView:'; { available in 10_10 }
end;
type
NSControlEditableTextMethods = objccategory external (NSControl)
function currentEditor: NSText; message 'currentEditor';
function abortEditing: ObjCBOOL; message 'abortEditing';
procedure validateEditing; message 'validateEditing';
procedure editWithFrame_editor_delegate_event (aRect: NSRect; textObj: NSText; anObject: id; theEvent: NSEvent); message 'editWithFrame:editor:delegate:event:'; { available in 10_10 }
procedure selectWithFrame_editor_delegate_start_length (aRect: NSRect; textObj: NSText; anObject: id; selStart: NSInteger; selLength: NSInteger); message 'selectWithFrame:editor:delegate:start:length:'; { available in 10_10 }
procedure endEditing (textObj: NSText); message 'endEditing:'; { available in 10_10 }
end;
type
NSControlSubclassNotifications = objccategory external (NSObject)
procedure controlTextDidBeginEditing (obj: NSNotification); message 'controlTextDidBeginEditing:';
procedure controlTextDidEndEditing (obj: NSNotification); message 'controlTextDidEndEditing:';
procedure controlTextDidChange (obj: NSNotification); message 'controlTextDidChange:';
end;
{$endif}
{$ifdef PROTOCOLS}
type
NSControlTextEditingDelegateProtocol = objcprotocol external name 'NSControlTextEditingDelegate' (NSObjectProtocol)
optional
function control_textShouldBeginEditing (control: NSControl; fieldEditor: NSText): ObjCBOOL; message 'control:textShouldBeginEditing:';
function control_textShouldEndEditing (control: NSControl; fieldEditor: NSText): ObjCBOOL; message 'control:textShouldEndEditing:';
function control_didFailToFormatString_errorDescription (control: NSControl; string_: NSString; error: NSString): ObjCBOOL; message 'control:didFailToFormatString:errorDescription:';
procedure control_didFailToValidatePartialString_errorDescription (control: NSControl; string_: NSString; error: NSString); message 'control:didFailToValidatePartialString:errorDescription:';
function control_isValidObject (control: NSControl; obj: id): ObjCBOOL; message 'control:isValidObject:';
function control_textView_doCommandBySelector (control: NSControl; textView: NSTextView; commandSelector: SEL): ObjCBOOL; message 'control:textView:doCommandBySelector:';
function control_textView_completions_forPartialWordRange_indexOfSelectedItem (control: NSControl; textView: NSTextView; words: NSArray; charRange: NSRange; index: NSIntegerPtr): NSArray; message 'control:textView:completions:forPartialWordRange:indexOfSelectedItem:';
end;
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
var
NSControlTextDidBeginEditingNotification: NSString; cvar; external;
NSControlTextDidEndEditingNotification: NSString; cvar; external;
NSControlTextDidChangeNotification: NSString; cvar; external;
{$endif}
{$ifdef CLASSES}
type
NSControl_NSDeprecated = objccategory external name 'NSDeprecated' (NSControl)
procedure setFloatingPointFormat_left_right (autoRange: ObjCBOOL; leftDigits: NSUInteger; rightDigits: NSUInteger); message 'setFloatingPointFormat:left:right:'; deprecated 'in 10_0, 10_0';
class procedure setCellClass (factoryId: pobjc_class); message 'setCellClass:';
class function cellClass: pobjc_class; message 'cellClass';
function cell: id; message 'cell';
procedure setCell (aCell: NSCell); message 'setCell:';
function selectedCell: id; message 'selectedCell';
function selectedTag: NSInteger; message 'selectedTag';
{$ifndef LEGACY_SETNEEDSDISPLAY}
procedure setNeedsDisplay_; message 'setNeedsDisplay';
{$else}
procedure setNeedsDisplay; message 'setNeedsDisplay';
{$endif}
procedure calcSize; message 'calcSize';
procedure updateCell (aCell: NSCell); message 'updateCell:';
procedure updateCellInside (aCell: NSCell); message 'updateCellInside:';
procedure drawCellInside (aCell: NSCell); message 'drawCellInside:';
procedure drawCell (aCell: NSCell); message 'drawCell:';
procedure selectCell (aCell: NSCell); message 'selectCell:';
end;
{$endif}
|
