1{%mainunit appkit.pas}
2(*
3	NSText.h
4	Application Kit
5	Copyright (c) 1994-2005, Apple Computer, Inc.
6	All rights reserved.
7*)
8
9{$ifdef HEADER}
10{$ifndef NSTEXT_PAS_H}
11{$define NSTEXT_PAS_H}
12
13{$include NSView.inc}
14{$include NSSpellProtocol.inc}
15
16  //  Various important unicodes
17const
18  NSParagraphSeparatorCharacter = $2029;
19  NSLineSeparatorCharacter = $2028;
20  NSTabCharacter = $0009;
21  NSFormFeedCharacter = $000c;
22  NSNewlineCharacter = $000a;
23  NSCarriageReturnCharacter = $000d;
24  NSEnterCharacter = $0003;
25  NSBackspaceCharacter = $0008;
26  NSBackTabCharacter = $0019;
27  NSDeleteCharacter = $007f;
28
29type
30  NSTextAlignment = (
31    NSLeftTextAlignment = 0,
32    NSRightTextAlignment = 1,
33    NSCenterTextAlignment = 2,
34    NSJustifiedTextAlignment = 3,
35    NSNaturalTextAlignment = 4
36  );
37
38
39type
40  NSWritingDirection = (
41    NSWritingDirectionNatural = 1,
42    NSWritingDirectionLeftToRight = 0{%H-},
43    NSWritingDirectionRightToLeft
44  );
45
46
47  //  Movement codes for movement between fields; these codes are the intValue of the
48  // NSTextMovement key in NSTextDidEndEditing notifications, and are used when completions
49  // change in the NSTextView method insertCompletion:forPartialWordRange:movement:isFinal:.
50  //  Note that the value 0 is used for movements that do not fall under any of the other
51  // values, hence NSOtherTextMovement is a more appropriate name than the previous NSIllegalTextMovement.
52const
53  NSIllegalTextMovement = 0;
54  NSReturnTextMovement = $10;
55  NSTabTextMovement = $11;
56  NSBacktabTextMovement = $12;
57  NSLeftTextMovement = $13;
58  NSRightTextMovement = $14;
59  NSUpTextMovement = $15;
60  NSDownTextMovement = $16;
61  NSCancelTextMovement = $17;
62  NSOtherTextMovement = 0;
63
64//APPKIT_EXTERN NSString *NSTextDidBeginEditingNotification;
65//APPKIT_EXTERN NSString *NSTextDidEndEditingNotification;	// userInfo key:  @"NSTextMovement"
66//APPKIT_EXTERN NSString *NSTextDidChangeNotification;
67{$endif}
68{$endif}
69
70{$ifdef FORWARD}
71  NSText = class;
72
73{$endif}
74
75{$ifdef CLASSES}
76{$ifndef NSTEXT_PAS_C}
77{$define NSTEXT_PAS_C}
78
79{$include NSView.inc}
80{$include NSSpellProtocol.inc}
81
82  { NSText }
83
84  NSText = class(NSView)
85  public
86    class function getClass: lobjc.id; override;
87    // All instance variables are private
88    function string_: CFStringRef;
89    procedure setString(__string: CFStringRef);
90    procedure replaceCharactersInRange_withString(_range: NSRange; _aString: CFStringRef);
91    procedure replaceCharactersInRange_withRTF(_range: NSRange; _rtfData: CFDataRef);
92    procedure replaceCharactersInRange_withRTFD(_range: NSRange; _rtfdData: CFDataRef);
93    function RTFFromRange(_range: NSRange): CFDataRef;
94    function RTFDFromRange(_range: NSRange): CFDataRef;
95    function writeRTFDToFile_atomically(_path: CFStringRef; _flag: LongBool): LongBool;
96    function readRTFDFromFile(_path: CFStringRef): LongBool;
97    function delegate: lobjc.id;
98    procedure setDelegate(_anObject: lobjc.id);
99    function isEditable: LongBool;
100    procedure setEditable(_flag: LongBool);
101    function isSelectable: LongBool;
102    procedure setSelectable(_flag: LongBool);
103    function isRichText: LongBool;
104    procedure setRichText(_flag: LongBool);
105    //  If NO, also clears setImportsGraphics:
106    function importsGraphics: LongBool;
107    procedure setImportsGraphics(_flag: LongBool);
108    //  If YES, also sets setRichText:
109    procedure setBackgroundColor(_color: lobjc.id {NSColor});
110    function backgroundColor: lobjc.id;{NSColor}
111    procedure setDrawsBackground(_flag: LongBool);
112    function drawsBackground: LongBool;
113    procedure setFont(_obj: lobjc.id {NSFont});
114    function font: lobjc.id;{NSFont}
115    procedure setTextColor(_color: lobjc.id {NSColor});
116    function textColor: lobjc.id;{NSColor}
117    function alignment: NSTextAlignment;
118    procedure setAlignment(_mode: NSTextAlignment);
119    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
120    function baseWritingDirection: NSWritingDirection;
121    procedure setBaseWritingDirection(_writingDirection: NSWritingDirection);
122    {.$endif}
123    procedure setFieldEditor(_flag: LongBool);
124    //  A BOOL to indicate whether to end on CR, TAB, etc
125    function isFieldEditor: LongBool;
126    procedure setTextColor_range(_color: lobjc.id {NSColor}; _range: NSRange);
127    procedure setFont_range(_font: lobjc.id {NSFont}; _range: NSRange);
128    function usesFontPanel: LongBool;
129    procedure setUsesFontPanel(_flag: LongBool);
130    function maxSize: NSSize;
131    procedure setMaxSize(_newMaxSize: NSSize);
132    function minSize: NSSize;
133    procedure setMinSize(_newMinSize: NSSize);
134    function isHorizontallyResizable: LongBool;
135    procedure setHorizontallyResizable(_flag: LongBool);
136    function isVerticallyResizable: LongBool;
137    procedure setVerticallyResizable(_flag: LongBool);
138    procedure sizeToFit;
139    procedure copy(_sender: lobjc.id);
140    procedure copyFont(_sender: lobjc.id);
141    procedure copyRuler(_sender: lobjc.id);
142    procedure cut(_sender: lobjc.id);
143    procedure delete(_sender: lobjc.id);
144    procedure paste(_sender: lobjc.id);
145    procedure pasteFont(_sender: lobjc.id);
146    procedure pasteRuler(_sender: lobjc.id);
147    procedure selectAll(_sender: lobjc.id);
148    procedure changeFont(_sender: lobjc.id);
149    procedure alignLeft(_sender: lobjc.id);
150    procedure alignRight(_sender: lobjc.id);
151    procedure alignCenter(_sender: lobjc.id);
152    procedure subscript(_sender: lobjc.id);
153    procedure superscript(_sender: lobjc.id);
154    procedure underline(_sender: lobjc.id);
155    procedure unscript(_sender: lobjc.id);
156    procedure showGuessPanel(_sender: lobjc.id);
157    procedure checkSpelling(_sender: lobjc.id);
158    procedure toggleRuler(_sender: lobjc.id);
159    function isRulerVisible: LongBool;
160    function selectedRange: NSRange;
161    procedure setSelectedRange(_range: NSRange);
162    procedure scrollRangeToVisible(_range: NSRange);
163  end;
164
165{$endif}
166{$endif}
167
168{$ifdef IMPLEMENTATION}
169const
170  StrNSText_NSText = 'NSText';
171  StrNSText_string = 'string';
172  StrNSText_setString = 'setString:';
173  StrNSText_replaceCharactersInRange_withString = 'replaceCharactersInRange:withString:';
174  StrNSText_replaceCharactersInRange_withRTF = 'replaceCharactersInRange:withRTF:';
175  StrNSText_replaceCharactersInRange_withRTFD = 'replaceCharactersInRange:withRTFD:';
176  StrNSText_RTFFromRange = 'RTFFromRange:';
177  StrNSText_RTFDFromRange = 'RTFDFromRange:';
178  StrNSText_writeRTFDToFile_atomically = 'writeRTFDToFile:atomically:';
179  StrNSText_readRTFDFromFile = 'readRTFDFromFile:';
180  StrNSText_delegate = 'delegate';
181  StrNSText_setDelegate = 'setDelegate:';
182  StrNSText_isEditable = 'isEditable';
183  StrNSText_setEditable = 'setEditable:';
184  StrNSText_isSelectable = 'isSelectable';
185  StrNSText_setSelectable = 'setSelectable:';
186  StrNSText_isRichText = 'isRichText';
187  StrNSText_setRichText = 'setRichText:';
188  StrNSText_importsGraphics = 'importsGraphics';
189  StrNSText_setImportsGraphics = 'setImportsGraphics:';
190  StrNSText_setBackgroundColor = 'setBackgroundColor:';
191  StrNSText_backgroundColor = 'backgroundColor';
192  StrNSText_setDrawsBackground = 'setDrawsBackground:';
193  StrNSText_drawsBackground = 'drawsBackground';
194  StrNSText_setFont = 'setFont:';
195  StrNSText_font = 'font';
196  StrNSText_setTextColor = 'setTextColor:';
197  StrNSText_textColor = 'textColor';
198  StrNSText_alignment = 'alignment';
199  StrNSText_setAlignment = 'setAlignment:';
200  StrNSText_baseWritingDirection = 'baseWritingDirection';
201  StrNSText_setBaseWritingDirection = 'setBaseWritingDirection:';
202  StrNSText_setFieldEditor = 'setFieldEditor:';
203  StrNSText_isFieldEditor = 'isFieldEditor';
204  StrNSText_setTextColor_range = 'setTextColor:range:';
205  StrNSText_setFont_range = 'setFont:range:';
206  StrNSText_usesFontPanel = 'usesFontPanel';
207  StrNSText_setUsesFontPanel = 'setUsesFontPanel:';
208  StrNSText_maxSize = 'maxSize';
209  StrNSText_setMaxSize = 'setMaxSize:';
210  StrNSText_minSize = 'minSize';
211  StrNSText_setMinSize = 'setMinSize:';
212  StrNSText_isHorizontallyResizable = 'isHorizontallyResizable';
213  StrNSText_setHorizontallyResizable = 'setHorizontallyResizable:';
214  StrNSText_isVerticallyResizable = 'isVerticallyResizable';
215  StrNSText_setVerticallyResizable = 'setVerticallyResizable:';
216  StrNSText_sizeToFit = 'sizeToFit';
217  StrNSText_copy = 'copy:';
218  StrNSText_copyFont = 'copyFont:';
219  StrNSText_copyRuler = 'copyRuler:';
220  StrNSText_cut = 'cut:';
221  StrNSText_delete = 'delete:';
222  StrNSText_paste = 'paste:';
223  StrNSText_pasteFont = 'pasteFont:';
224  StrNSText_pasteRuler = 'pasteRuler:';
225  StrNSText_selectAll = 'selectAll:';
226  StrNSText_changeFont = 'changeFont:';
227  StrNSText_alignLeft = 'alignLeft:';
228  StrNSText_alignRight = 'alignRight:';
229  StrNSText_alignCenter = 'alignCenter:';
230  StrNSText_subscript = 'subscript:';
231  StrNSText_superscript = 'superscript:';
232  StrNSText_underline = 'underline:';
233  StrNSText_unscript = 'unscript:';
234  StrNSText_showGuessPanel = 'showGuessPanel:';
235  StrNSText_checkSpelling = 'checkSpelling:';
236  StrNSText_toggleRuler = 'toggleRuler:';
237  StrNSText_isRulerVisible = 'isRulerVisible';
238  StrNSText_selectedRange = 'selectedRange';
239  StrNSText_setSelectedRange = 'setSelectedRange:';
240  StrNSText_scrollRangeToVisible = 'scrollRangeToVisible:';
241
242{ NSText }
243
244class function NSText.getClass: lobjc.id;
245begin
246  Result := objc_getClass(StrNSText_NSText);
247end;
248
249function NSText.string_: CFStringRef;
250begin
251  Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_string)), []));
252end;
253
254procedure NSText.setString(__string: CFStringRef);
255type
256  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;__string: CFStringRef); cdecl;
257var
258  vmethod: TmsgSendWrapper;
259begin
260  vmethod := TmsgSendWrapper(@objc_msgSend);
261  vmethod(Handle, sel_registerName(PChar(StrNSText_setString)), __string);
262end;
263
264procedure NSText.replaceCharactersInRange_withString(_range: NSRange; _aString: CFStringRef);
265type
266  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_range: NSRange; _aString: CFStringRef); cdecl;
267var
268  vmethod: TmsgSendWrapper;
269begin
270  vmethod := TmsgSendWrapper(@objc_msgSend);
271  vmethod(Handle, sel_registerName(PChar(StrNSText_replaceCharactersInRange_withString)), _range, _aString);
272end;
273
274procedure NSText.replaceCharactersInRange_withRTF(_range: NSRange; _rtfData: CFDataRef);
275type
276  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_range: NSRange; _rtfData: CFDataRef); cdecl;
277var
278  vmethod: TmsgSendWrapper;
279begin
280  vmethod := TmsgSendWrapper(@objc_msgSend);
281  vmethod(Handle, sel_registerName(PChar(StrNSText_replaceCharactersInRange_withRTF)), _range, _rtfData);
282end;
283
284procedure NSText.replaceCharactersInRange_withRTFD(_range: NSRange; _rtfdData: CFDataRef);
285type
286  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_range: NSRange; _rtfdData: CFDataRef); cdecl;
287var
288  vmethod: TmsgSendWrapper;
289begin
290  vmethod := TmsgSendWrapper(@objc_msgSend);
291  vmethod(Handle, sel_registerName(PChar(StrNSText_replaceCharactersInRange_withRTFD)), _range, _rtfdData);
292end;
293
294function NSText.RTFFromRange(_range: NSRange): CFDataRef;
295type
296  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_range: NSRange): CFDataRef; cdecl;
297var
298  vmethod: TmsgSendWrapper;
299begin
300  vmethod := TmsgSendWrapper(@objc_msgSend);
301  Result := CFDataRef(vmethod(Handle, sel_registerName(PChar(StrNSText_RTFFromRange)), _range));
302end;
303
304function NSText.RTFDFromRange(_range: NSRange): CFDataRef;
305type
306  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_range: NSRange): CFDataRef; cdecl;
307var
308  vmethod: TmsgSendWrapper;
309begin
310  vmethod := TmsgSendWrapper(@objc_msgSend);
311  Result := CFDataRef(vmethod(Handle, sel_registerName(PChar(StrNSText_RTFDFromRange)), _range));
312end;
313
314function NSText.writeRTFDToFile_atomically(_path: CFStringRef; _flag: LongBool): LongBool;
315type
316  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_path: CFStringRef; _flag: LongBool): LongBool; cdecl;
317var
318  vmethod: TmsgSendWrapper;
319begin
320  vmethod := TmsgSendWrapper(@objc_msgSend);
321  Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSText_writeRTFDToFile_atomically)), _path, _flag));
322end;
323
324function NSText.readRTFDFromFile(_path: CFStringRef): LongBool;
325type
326  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_path: CFStringRef): LongBool; cdecl;
327var
328  vmethod: TmsgSendWrapper;
329begin
330  vmethod := TmsgSendWrapper(@objc_msgSend);
331  Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSText_readRTFDFromFile)), _path));
332end;
333
334function NSText.delegate: lobjc.id;
335begin
336  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_delegate)), []));
337end;
338
339procedure NSText.setDelegate(_anObject: lobjc.id);
340type
341  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_anObject: lobjc.id); cdecl;
342var
343  vmethod: TmsgSendWrapper;
344begin
345  vmethod := TmsgSendWrapper(@objc_msgSend);
346  vmethod(Handle, sel_registerName(PChar(StrNSText_setDelegate)), _anObject);
347end;
348
349function NSText.isEditable: LongBool;
350begin
351  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isEditable)), []));
352end;
353
354procedure NSText.setEditable(_flag: LongBool);
355type
356  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
357var
358  vmethod: TmsgSendWrapper;
359begin
360  vmethod := TmsgSendWrapper(@objc_msgSend);
361  vmethod(Handle, sel_registerName(PChar(StrNSText_setEditable)), _flag);
362end;
363
364function NSText.isSelectable: LongBool;
365begin
366  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isSelectable)), []));
367end;
368
369procedure NSText.setSelectable(_flag: LongBool);
370type
371  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
372var
373  vmethod: TmsgSendWrapper;
374begin
375  vmethod := TmsgSendWrapper(@objc_msgSend);
376  vmethod(Handle, sel_registerName(PChar(StrNSText_setSelectable)), _flag);
377end;
378
379function NSText.isRichText: LongBool;
380begin
381  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isRichText)), []));
382end;
383
384procedure NSText.setRichText(_flag: LongBool);
385type
386  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
387var
388  vmethod: TmsgSendWrapper;
389begin
390  vmethod := TmsgSendWrapper(@objc_msgSend);
391  vmethod(Handle, sel_registerName(PChar(StrNSText_setRichText)), _flag);
392end;
393
394function NSText.importsGraphics: LongBool;
395begin
396  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_importsGraphics)), []));
397end;
398
399procedure NSText.setImportsGraphics(_flag: LongBool);
400type
401  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
402var
403  vmethod: TmsgSendWrapper;
404begin
405  vmethod := TmsgSendWrapper(@objc_msgSend);
406  vmethod(Handle, sel_registerName(PChar(StrNSText_setImportsGraphics)), _flag);
407end;
408
409procedure NSText.setBackgroundColor(_color: lobjc.id {NSColor});
410type
411  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_color: lobjc.id {NSColor}); cdecl;
412var
413  vmethod: TmsgSendWrapper;
414begin
415  vmethod := TmsgSendWrapper(@objc_msgSend);
416  vmethod(Handle, sel_registerName(PChar(StrNSText_setBackgroundColor)), _color);
417end;
418
419function NSText.backgroundColor: lobjc.id;
420begin
421  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_backgroundColor)), []));
422end;
423
424procedure NSText.setDrawsBackground(_flag: LongBool);
425type
426  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
427var
428  vmethod: TmsgSendWrapper;
429begin
430  vmethod := TmsgSendWrapper(@objc_msgSend);
431  vmethod(Handle, sel_registerName(PChar(StrNSText_setDrawsBackground)), _flag);
432end;
433
434function NSText.drawsBackground: LongBool;
435begin
436  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_drawsBackground)), []));
437end;
438
439procedure NSText.setFont(_obj: lobjc.id {NSFont});
440type
441  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_obj: lobjc.id {NSFont}); cdecl;
442var
443  vmethod: TmsgSendWrapper;
444begin
445  vmethod := TmsgSendWrapper(@objc_msgSend);
446  vmethod(Handle, sel_registerName(PChar(StrNSText_setFont)), _obj);
447end;
448
449function NSText.font: lobjc.id;
450begin
451  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_font)), []));
452end;
453
454procedure NSText.setTextColor(_color: lobjc.id {NSColor});
455type
456  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_color: lobjc.id {NSColor}); cdecl;
457var
458  vmethod: TmsgSendWrapper;
459begin
460  vmethod := TmsgSendWrapper(@objc_msgSend);
461  vmethod(Handle, sel_registerName(PChar(StrNSText_setTextColor)), _color);
462end;
463
464function NSText.textColor: lobjc.id;
465begin
466  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_textColor)), []));
467end;
468
469function NSText.alignment: NSTextAlignment;
470begin
471  Result := NSTextAlignment(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_alignment)), []));
472end;
473
474procedure NSText.setAlignment(_mode: NSTextAlignment);
475type
476  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_mode: NSTextAlignment); cdecl;
477var
478  vmethod: TmsgSendWrapper;
479begin
480  vmethod := TmsgSendWrapper(@objc_msgSend);
481  vmethod(Handle, sel_registerName(PChar(StrNSText_setAlignment)), _mode);
482end;
483
484{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
485function NSText.baseWritingDirection: NSWritingDirection;
486begin
487  Result := NSWritingDirection(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_baseWritingDirection)), []));
488end;
489
490procedure NSText.setBaseWritingDirection(_writingDirection: NSWritingDirection);
491type
492  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_writingDirection: NSWritingDirection); cdecl;
493var
494  vmethod: TmsgSendWrapper;
495begin
496  vmethod := TmsgSendWrapper(@objc_msgSend);
497  vmethod(Handle, sel_registerName(PChar(StrNSText_setBaseWritingDirection)), _writingDirection);
498end;
499
500{.$endif}
501procedure NSText.setFieldEditor(_flag: LongBool);
502type
503  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
504var
505  vmethod: TmsgSendWrapper;
506begin
507  vmethod := TmsgSendWrapper(@objc_msgSend);
508  vmethod(Handle, sel_registerName(PChar(StrNSText_setFieldEditor)), _flag);
509end;
510
511function NSText.isFieldEditor: LongBool;
512begin
513  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isFieldEditor)), []));
514end;
515
516procedure NSText.setTextColor_range(_color: lobjc.id {NSColor}; _range: NSRange);
517type
518  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_color: lobjc.id {NSColor}; _range: NSRange); cdecl;
519var
520  vmethod: TmsgSendWrapper;
521begin
522  vmethod := TmsgSendWrapper(@objc_msgSend);
523  vmethod(Handle, sel_registerName(PChar(StrNSText_setTextColor_range)), _color, _range);
524end;
525
526procedure NSText.setFont_range(_font: lobjc.id {NSFont}; _range: NSRange);
527type
528  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_font: lobjc.id {NSFont}; _range: NSRange); cdecl;
529var
530  vmethod: TmsgSendWrapper;
531begin
532  vmethod := TmsgSendWrapper(@objc_msgSend);
533  vmethod(Handle, sel_registerName(PChar(StrNSText_setFont_range)), _font, _range);
534end;
535
536function NSText.usesFontPanel: LongBool;
537begin
538  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_usesFontPanel)), []));
539end;
540
541procedure NSText.setUsesFontPanel(_flag: LongBool);
542type
543  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
544var
545  vmethod: TmsgSendWrapper;
546begin
547  vmethod := TmsgSendWrapper(@objc_msgSend);
548  vmethod(Handle, sel_registerName(PChar(StrNSText_setUsesFontPanel)), _flag);
549end;
550
551function NSText.maxSize: NSSize;
552begin
553  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSText_maxSize)), []);
554end;
555
556procedure NSText.setMaxSize(_newMaxSize: NSSize);
557type
558  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newMaxSize: NSSize); cdecl;
559var
560  vmethod: TmsgSendWrapper;
561begin
562  vmethod := TmsgSendWrapper(@objc_msgSend);
563  vmethod(Handle, sel_registerName(PChar(StrNSText_setMaxSize)), _newMaxSize);
564end;
565
566function NSText.minSize: NSSize;
567begin
568  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSText_minSize)), []);
569end;
570
571procedure NSText.setMinSize(_newMinSize: NSSize);
572type
573  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newMinSize: NSSize); cdecl;
574var
575  vmethod: TmsgSendWrapper;
576begin
577  vmethod := TmsgSendWrapper(@objc_msgSend);
578  vmethod(Handle, sel_registerName(PChar(StrNSText_setMinSize)), _newMinSize);
579end;
580
581function NSText.isHorizontallyResizable: LongBool;
582begin
583  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isHorizontallyResizable)), []));
584end;
585
586procedure NSText.setHorizontallyResizable(_flag: LongBool);
587type
588  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
589var
590  vmethod: TmsgSendWrapper;
591begin
592  vmethod := TmsgSendWrapper(@objc_msgSend);
593  vmethod(Handle, sel_registerName(PChar(StrNSText_setHorizontallyResizable)), _flag);
594end;
595
596function NSText.isVerticallyResizable: LongBool;
597begin
598  Result := {%H-}{%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isVerticallyResizable)), []));
599end;
600
601procedure NSText.setVerticallyResizable(_flag: LongBool);
602type
603  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
604var
605  vmethod: TmsgSendWrapper;
606begin
607  vmethod := TmsgSendWrapper(@objc_msgSend);
608  vmethod(Handle, sel_registerName(PChar(StrNSText_setVerticallyResizable)), _flag);
609end;
610
611procedure NSText.sizeToFit;
612begin
613  objc_msgSend(Handle, sel_registerName(PChar(StrNSText_sizeToFit)), []);
614end;
615
616procedure NSText.copy(_sender: lobjc.id);
617type
618  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
619var
620  vmethod: TmsgSendWrapper;
621begin
622  vmethod := TmsgSendWrapper(@objc_msgSend);
623  vmethod(Handle, sel_registerName(PChar(StrNSText_copy)), _sender);
624end;
625
626procedure NSText.copyFont(_sender: lobjc.id);
627type
628  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
629var
630  vmethod: TmsgSendWrapper;
631begin
632  vmethod := TmsgSendWrapper(@objc_msgSend);
633  vmethod(Handle, sel_registerName(PChar(StrNSText_copyFont)), _sender);
634end;
635
636procedure NSText.copyRuler(_sender: lobjc.id);
637type
638  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
639var
640  vmethod: TmsgSendWrapper;
641begin
642  vmethod := TmsgSendWrapper(@objc_msgSend);
643  vmethod(Handle, sel_registerName(PChar(StrNSText_copyRuler)), _sender);
644end;
645
646procedure NSText.cut(_sender: lobjc.id);
647type
648  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
649var
650  vmethod: TmsgSendWrapper;
651begin
652  vmethod := TmsgSendWrapper(@objc_msgSend);
653  vmethod(Handle, sel_registerName(PChar(StrNSText_cut)), _sender);
654end;
655
656procedure NSText.delete(_sender: lobjc.id);
657type
658  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
659var
660  vmethod: TmsgSendWrapper;
661begin
662  vmethod := TmsgSendWrapper(@objc_msgSend);
663  vmethod(Handle, sel_registerName(PChar(StrNSText_delete)), _sender);
664end;
665
666procedure NSText.paste(_sender: lobjc.id);
667type
668  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
669var
670  vmethod: TmsgSendWrapper;
671begin
672  vmethod := TmsgSendWrapper(@objc_msgSend);
673  vmethod(Handle, sel_registerName(PChar(StrNSText_paste)), _sender);
674end;
675
676procedure NSText.pasteFont(_sender: lobjc.id);
677type
678  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
679var
680  vmethod: TmsgSendWrapper;
681begin
682  vmethod := TmsgSendWrapper(@objc_msgSend);
683  vmethod(Handle, sel_registerName(PChar(StrNSText_pasteFont)), _sender);
684end;
685
686procedure NSText.pasteRuler(_sender: lobjc.id);
687type
688  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
689var
690  vmethod: TmsgSendWrapper;
691begin
692  vmethod := TmsgSendWrapper(@objc_msgSend);
693  vmethod(Handle, sel_registerName(PChar(StrNSText_pasteRuler)), _sender);
694end;
695
696procedure NSText.selectAll(_sender: lobjc.id);
697type
698  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
699var
700  vmethod: TmsgSendWrapper;
701begin
702  vmethod := TmsgSendWrapper(@objc_msgSend);
703  vmethod(Handle, sel_registerName(PChar(StrNSText_selectAll)), _sender);
704end;
705
706procedure NSText.changeFont(_sender: lobjc.id);
707type
708  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
709var
710  vmethod: TmsgSendWrapper;
711begin
712  vmethod := TmsgSendWrapper(@objc_msgSend);
713  vmethod(Handle, sel_registerName(PChar(StrNSText_changeFont)), _sender);
714end;
715
716procedure NSText.alignLeft(_sender: lobjc.id);
717type
718  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
719var
720  vmethod: TmsgSendWrapper;
721begin
722  vmethod := TmsgSendWrapper(@objc_msgSend);
723  vmethod(Handle, sel_registerName(PChar(StrNSText_alignLeft)), _sender);
724end;
725
726procedure NSText.alignRight(_sender: lobjc.id);
727type
728  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
729var
730  vmethod: TmsgSendWrapper;
731begin
732  vmethod := TmsgSendWrapper(@objc_msgSend);
733  vmethod(Handle, sel_registerName(PChar(StrNSText_alignRight)), _sender);
734end;
735
736procedure NSText.alignCenter(_sender: lobjc.id);
737type
738  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
739var
740  vmethod: TmsgSendWrapper;
741begin
742  vmethod := TmsgSendWrapper(@objc_msgSend);
743  vmethod(Handle, sel_registerName(PChar(StrNSText_alignCenter)), _sender);
744end;
745
746procedure NSText.subscript(_sender: lobjc.id);
747type
748  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
749var
750  vmethod: TmsgSendWrapper;
751begin
752  vmethod := TmsgSendWrapper(@objc_msgSend);
753  vmethod(Handle, sel_registerName(PChar(StrNSText_subscript)), _sender);
754end;
755
756procedure NSText.superscript(_sender: lobjc.id);
757type
758  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
759var
760  vmethod: TmsgSendWrapper;
761begin
762  vmethod := TmsgSendWrapper(@objc_msgSend);
763  vmethod(Handle, sel_registerName(PChar(StrNSText_superscript)), _sender);
764end;
765
766procedure NSText.underline(_sender: lobjc.id);
767type
768  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
769var
770  vmethod: TmsgSendWrapper;
771begin
772  vmethod := TmsgSendWrapper(@objc_msgSend);
773  vmethod(Handle, sel_registerName(PChar(StrNSText_underline)), _sender);
774end;
775
776procedure NSText.unscript(_sender: lobjc.id);
777type
778  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
779var
780  vmethod: TmsgSendWrapper;
781begin
782  vmethod := TmsgSendWrapper(@objc_msgSend);
783  vmethod(Handle, sel_registerName(PChar(StrNSText_unscript)), _sender);
784end;
785
786procedure NSText.showGuessPanel(_sender: lobjc.id);
787type
788  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
789var
790  vmethod: TmsgSendWrapper;
791begin
792  vmethod := TmsgSendWrapper(@objc_msgSend);
793  vmethod(Handle, sel_registerName(PChar(StrNSText_showGuessPanel)), _sender);
794end;
795
796procedure NSText.checkSpelling(_sender: lobjc.id);
797type
798  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
799var
800  vmethod: TmsgSendWrapper;
801begin
802  vmethod := TmsgSendWrapper(@objc_msgSend);
803  vmethod(Handle, sel_registerName(PChar(StrNSText_checkSpelling)), _sender);
804end;
805
806procedure NSText.toggleRuler(_sender: lobjc.id);
807type
808  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
809var
810  vmethod: TmsgSendWrapper;
811begin
812  vmethod := TmsgSendWrapper(@objc_msgSend);
813  vmethod(Handle, sel_registerName(PChar(StrNSText_toggleRuler)), _sender);
814end;
815
816function NSText.isRulerVisible: LongBool;
817begin
818  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isRulerVisible)), []));
819end;
820
821function NSText.selectedRange: NSRange;
822begin
823  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSText_selectedRange)), []);
824end;
825
826procedure NSText.setSelectedRange(_range: NSRange);
827type
828  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_range: NSRange); cdecl;
829var
830  vmethod: TmsgSendWrapper;
831begin
832  vmethod := TmsgSendWrapper(@objc_msgSend);
833  vmethod(Handle, sel_registerName(PChar(StrNSText_setSelectedRange)), _range);
834end;
835
836procedure NSText.scrollRangeToVisible(_range: NSRange);
837type
838  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_range: NSRange); cdecl;
839var
840  vmethod: TmsgSendWrapper;
841begin
842  vmethod := TmsgSendWrapper(@objc_msgSend);
843  vmethod(Handle, sel_registerName(PChar(StrNSText_scrollRangeToVisible)), _range);
844end;
845
846{$endif}
847