blob: 625fce23e14d2159a74f6343ea8f51cecece4e89 (
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
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
{ Parsed from Appkit.framework NSText.h }
{$ifdef TYPES}
{$ifndef NSTEXT_PAS_T}
{$define NSTEXT_PAS_T}
{ Constants }
const
NSEnterCharacter = $0003;
NSBackspaceCharacter = $0008;
NSTabCharacter = $0009;
NSNewlineCharacter = $000a;
NSFormFeedCharacter = $000c;
NSCarriageReturnCharacter = $000d;
NSBackTabCharacter = $0019;
NSDeleteCharacter = $007f;
NSLineSeparatorCharacter = $2028;
NSParagraphSeparatorCharacter = $2029;
const
NSLeftTextAlignment = 0;
NSRightTextAlignment = 1;
NSCenterTextAlignment = 2;
NSJustifiedTextAlignment = 3;
NSNaturalTextAlignment = 4;
const
NSWritingDirectionNatural = -1;
NSWritingDirectionLeftToRight = 0;
NSWritingDirectionRightToLeft = 1;
const
NSTextWritingDirectionEmbedding = 0 shl 1;
NSTextWritingDirectionOverride = 1 shl 1;
const
NSIllegalTextMovement = 0;
NSReturnTextMovement = $10;
NSTabTextMovement = $11;
NSBacktabTextMovement = $12;
NSLeftTextMovement = $13;
NSRightTextMovement = $14;
NSUpTextMovement = $15;
NSDownTextMovement = $16;
NSCancelTextMovement = $17;
NSOtherTextMovement = 0;
{ Types }
type
NSTextAlignment = NSUInteger;
NSTextAlignmentPtr = ^NSTextAlignment;
NSWritingDirection = NSInteger;
NSWritingDirectionPtr = ^NSWritingDirection;
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSTEXT_PAS_R}
{$define NSTEXT_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSTEXT_PAS_F}
{$define NSTEXT_PAS_F}
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSTEXT_PAS_S}
{$define NSTEXT_PAS_S}
{ External string constants }
var
NSTextDidBeginEditingNotification: NSString; cvar; external;
NSTextDidEndEditingNotification: NSString; cvar; external;
NSTextDidChangeNotification: NSString; cvar; external;
{$endif}
{$endif}
{$ifdef FORWARD}
NSTextDelegateProtocol = objcprotocol;
NSText = objcclass;
NSTextPointer = ^NSText;
NSTextPtr = NSTextPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSTEXT_PAS_C}
{$define NSTEXT_PAS_C}
{ NSText }
NSText = objcclass external (NSView, NSChangeSpellingProtocol, NSIgnoreMisspelledWordsProtocol)
private
_ivars: id;
public
function string_: NSString; message 'string';
procedure setString(string__: NSString); message 'setString:';
procedure replaceCharactersInRange_withString(range: NSRange; aString: NSString); message 'replaceCharactersInRange:withString:';
procedure replaceCharactersInRange_withRTF(range: NSRange; rtfData: NSData); message 'replaceCharactersInRange:withRTF:';
procedure replaceCharactersInRange_withRTFD(range: NSRange; rtfdData: NSData); message 'replaceCharactersInRange:withRTFD:';
function RTFFromRange(range: NSRange): NSData; message 'RTFFromRange:';
function RTFDFromRange(range: NSRange): NSData; message 'RTFDFromRange:';
function writeRTFDToFile_atomically(path: NSString; flag: Boolean): Boolean; message 'writeRTFDToFile:atomically:';
function readRTFDFromFile(path: NSString): Boolean; message 'readRTFDFromFile:';
function delegate: NSTextDelegateProtocol; message 'delegate';
procedure setDelegate(anObject: NSTextDelegateProtocol); message 'setDelegate:';
function isEditable: Boolean; message 'isEditable';
procedure setEditable(flag: Boolean); message 'setEditable:';
function isSelectable: Boolean; message 'isSelectable';
procedure setSelectable(flag: Boolean); message 'setSelectable:';
function isRichText: Boolean; message 'isRichText';
procedure setRichText(flag: Boolean); message 'setRichText:';
function importsGraphics: Boolean; message 'importsGraphics';
procedure setImportsGraphics(flag: Boolean); message 'setImportsGraphics:';
function isFieldEditor: Boolean; message 'isFieldEditor';
procedure setFieldEditor(flag: Boolean); message 'setFieldEditor:';
function usesFontPanel: Boolean; message 'usesFontPanel';
procedure setUsesFontPanel(flag: Boolean); message 'setUsesFontPanel:';
function drawsBackground: Boolean; message 'drawsBackground';
procedure setDrawsBackground(flag: Boolean); message 'setDrawsBackground:';
function backgroundColor: NSColor; message 'backgroundColor';
procedure setBackgroundColor(color: NSColor); message 'setBackgroundColor:';
function isRulerVisible: Boolean; message 'isRulerVisible';
function selectedRange: NSRange; message 'selectedRange';
procedure setSelectedRange(range: NSRange); message 'setSelectedRange:';
procedure scrollRangeToVisible(range: NSRange); message 'scrollRangeToVisible:';
procedure setFont(obj: NSFont); message 'setFont:';
function font: NSFont; message 'font';
procedure setTextColor(color: NSColor); message 'setTextColor:';
function textColor: NSColor; message 'textColor';
function alignment: NSTextAlignment; message 'alignment';
procedure setAlignment(mode: NSTextAlignment); message 'setAlignment:';
function baseWritingDirection: NSWritingDirection; message 'baseWritingDirection';
procedure setBaseWritingDirection(writingDirection: NSWritingDirection); message 'setBaseWritingDirection:';
procedure setTextColor_range(color: NSColor; range: NSRange); message 'setTextColor:range:';
procedure setFont_range(font_: NSFont; range: NSRange); message 'setFont:range:';
function maxSize: NSSize; message 'maxSize';
procedure setMaxSize(newMaxSize: NSSize); message 'setMaxSize:';
function minSize: NSSize; message 'minSize';
procedure setMinSize(newMinSize: NSSize); message 'setMinSize:';
function isHorizontallyResizable: Boolean; message 'isHorizontallyResizable';
procedure setHorizontallyResizable(flag: Boolean); message 'setHorizontallyResizable:';
function isVerticallyResizable: Boolean; message 'isVerticallyResizable';
procedure setVerticallyResizable(flag: Boolean); message 'setVerticallyResizable:';
procedure sizeToFit; message 'sizeToFit';
procedure copy_(sender: id); message 'copy:';
procedure copyFont(sender: id); message 'copyFont:';
procedure copyRuler(sender: id); message 'copyRuler:';
procedure cut(sender: id); message 'cut:';
procedure delete(sender: id); message 'delete:';
procedure paste(sender: id); message 'paste:';
procedure pasteFont(sender: id); message 'pasteFont:';
procedure pasteRuler(sender: id); message 'pasteRuler:';
procedure selectAll(sender: id); message 'selectAll:';
procedure changeFont(sender: id); message 'changeFont:';
procedure alignLeft(sender: id); message 'alignLeft:';
procedure alignRight(sender: id); message 'alignRight:';
procedure alignCenter(sender: id); message 'alignCenter:';
procedure subscript(sender: id); message 'subscript:';
procedure superscript(sender: id); message 'superscript:';
procedure underline(sender: id); message 'underline:';
procedure unscript(sender: id); message 'unscript:';
procedure showGuessPanel(sender: id); message 'showGuessPanel:';
procedure checkSpelling(sender: id); message 'checkSpelling:';
procedure toggleRuler(sender: id); message 'toggleRuler:';
{ Adopted Protocols }
procedure changeSpelling(sender: id);
procedure ignoreSpelling(sender: id);
end;
{$endif}
{$endif}
{$ifdef PROTOCOLS}
{$ifndef NSTEXT_PAS_P}
{$define NSTEXT_PAS_P}
{ NSTextDelegate Protocol }
NSTextDelegateProtocol = objcprotocol external name 'NSTextDelegate'
optional
function textShouldBeginEditing(textObject: NSText): Boolean; message 'textShouldBeginEditing:';
function textShouldEndEditing(textObject: NSText): Boolean; message 'textShouldEndEditing:';
procedure textDidBeginEditing(notification: NSNotification); message 'textDidBeginEditing:';
procedure textDidEndEditing(notification: NSNotification); message 'textDidEndEditing:';
procedure textDidChange(notification: NSNotification); message 'textDidChange:';
end;
{$endif}
{$endif}
|
