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