blob: 5c16afb106c22c42536f61c75aa518d3b11d876c (
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}
{$ifndef NSCONTROL_PAS_T}
{$define NSCONTROL_PAS_T}
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSCONTROL_PAS_R}
{$define NSCONTROL_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSCONTROL_PAS_F}
{$define NSCONTROL_PAS_F}
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSCONTROL_PAS_S}
{$define NSCONTROL_PAS_S}
{ External string constants }
var
NSControlTextDidBeginEditingNotification: NSString; cvar; external;
NSControlTextDidEndEditingNotification: NSString; cvar; external;
NSControlTextDidChangeNotification: NSString; cvar; external;
{$endif}
{$endif}
{$ifdef FORWARD}
NSControlTextEditingDelegateProtocol = objcprotocol;
NSControl = objcclass;
NSControlPointer = ^NSControl;
NSControlPtr = NSControlPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSCONTROL_PAS_C}
{$define NSCONTROL_PAS_C}
{ NSControl }
NSControl = objcclass external (NSView)
private
_tag: NSInteger;
_cell: id;
__conFlags: record
case byte of
0: (_anonbitfield_NSControl0: cuint);
1: (data: bitpacked record
enabled: 0..1;
ignoreMultiClick: 0..1;
_calcSize: 0..1;
drawingAncestor: 0..1;
ibReserved: 0..1;
updateCellFocus: 0..1;
reserved: 0..((1 shl 26)-1);
end;
);
end;
public
class procedure setCellClass(factoryId: Pobjc_class); message 'setCellClass:';
class function cellClass: Pobjc_class; message 'cellClass';
function initWithFrame(frameRect: NSRect): id; message 'initWithFrame:';
procedure sizeToFit; message 'sizeToFit';
procedure calcSize; message 'calcSize';
function cell: id; message 'cell';
procedure setCell(aCell: NSCell); message 'setCell:';
function selectedCell: id; message 'selectedCell';
function target: id; message 'target';
procedure setTarget(anObject: id); message 'setTarget:';
function action: SEL; message 'action';
procedure setAction(aSelector: SEL); message 'setAction:';
function tag: NSInteger; message 'tag';
procedure setTag(anInt: NSInteger); message 'setTag:';
function selectedTag: NSInteger; message 'selectedTag';
procedure setIgnoresMultiClick(flag: Boolean); message 'setIgnoresMultiClick:';
function ignoresMultiClick: Boolean; message 'ignoresMultiClick';
function sendActionOn(mask: NSInteger): NSInteger; message 'sendActionOn:';
function isContinuous: Boolean; message 'isContinuous';
procedure setContinuous(flag: Boolean); message 'setContinuous:';
function isEnabled: Boolean; message 'isEnabled';
procedure setEnabled(flag: Boolean); message 'setEnabled:';
function alignment: NSTextAlignment; message 'alignment';
procedure setAlignment(mode: NSTextAlignment); message 'setAlignment:';
function font: NSFont; message 'font';
procedure setFont(fontObj: NSFont); message 'setFont:';
procedure setFormatter(newFormatter: NSFormatter); message 'setFormatter:';
function formatter: id; message 'formatter';
procedure setObjectValue(obj: NSCopyingProtocol); message 'setObjectValue:';
procedure setStringValue(aString: NSString); message 'setStringValue:';
procedure setIntValue(anInt: cint); message 'setIntValue:';
procedure setFloatValue(aFloat: single); message 'setFloatValue:';
procedure setDoubleValue(aDouble: double); message 'setDoubleValue:';
function objectValue: id; message 'objectValue';
function stringValue: NSString; message 'stringValue';
function intValue: cint; message 'intValue';
function floatValue: single; message 'floatValue';
function doubleValue: double; message 'doubleValue';
procedure setNeedsDisplay; message 'setNeedsDisplay';
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:';
function sendAction_to(theAction: SEL; theTarget: id): Boolean; 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:';
function currentEditor: NSText; message 'currentEditor';
function abortEditing: Boolean; message 'abortEditing';
procedure validateEditing; message 'validateEditing';
procedure mouseDown(theEvent: NSEvent); message 'mouseDown:';
function baseWritingDirection: NSWritingDirection; message 'baseWritingDirection';
procedure setBaseWritingDirection(writingDirection: NSWritingDirection); message 'setBaseWritingDirection:';
function integerValue: NSInteger; message 'integerValue';
procedure setIntegerValue(anInteger: NSInteger); message 'setIntegerValue:';
procedure takeIntegerValueFrom(sender: id); message 'takeIntegerValueFrom:';
end;
{ NSKeyboardUI_NSControlCategory }
NSKeyboardUI_NSControlCategory = objccategory external name 'NSKeyboardUI' (NSControl)
procedure performClick(sender: id); message 'performClick:';
procedure setRefusesFirstResponder(flag: Boolean); message 'setRefusesFirstResponder:';
function refusesFirstResponder: Boolean; message 'refusesFirstResponder';
end;
{ NSControlSubclassNotificationsCategory }
NSControlSubclassNotificationsCategory = objccategory external (NSObject)
procedure controlTextDidBeginEditing(obj: NSNotification); message 'controlTextDidBeginEditing:';
procedure controlTextDidEndEditing(obj: NSNotification); message 'controlTextDidEndEditing:';
procedure controlTextDidChange(obj: NSNotification); message 'controlTextDidChange:';
end;
{ NSControlAttributedStringMethodsCategory }
NSControlAttributedStringMethodsCategory = objccategory external (NSControl)
function attributedStringValue: NSAttributedString; message 'attributedStringValue';
procedure setAttributedStringValue(obj: NSAttributedString); message 'setAttributedStringValue:';
end;
{ NSDeprecated_NSControlCategory }
NSDeprecated_NSControlCategory = objccategory external name 'NSDeprecated' (NSControl)
procedure setFloatingPointFormat_left_right(autoRange: Boolean; leftDigits: NSUInteger; rightDigits: NSUInteger); message 'setFloatingPointFormat:left:right:'; deprecated 'in Mac OS X 10 and later';
end;
{$endif}
{$endif}
{$ifdef PROTOCOLS}
{$ifndef NSCONTROL_PAS_P}
{$define NSCONTROL_PAS_P}
{ NSControlTextEditingDelegate Protocol }
NSControlTextEditingDelegateProtocol = objcprotocol external name 'NSControlTextEditingDelegate'
optional
function control_textShouldBeginEditing(control: NSControl; fieldEditor: NSText): Boolean; message 'control:textShouldBeginEditing:';
function control_textShouldEndEditing(control: NSControl; fieldEditor: NSText): Boolean; message 'control:textShouldEndEditing:';
function control_didFailToFormatString_errorDescription(control: NSControl; string_: NSString; error: NSString): Boolean; 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): Boolean; message 'control:isValidObject:';
function control_textView_doCommandBySelector(control: NSControl; textView: NSTextView; commandSelector: SEL): Boolean; 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}
{$endif}
|
