1{%mainunit appkit.pas} 2(* 3 NSView.h 4 Application Kit 5 Copyright (c) 1994-2005, Apple Computer, Inc. 6 All rights reserved. 7*) 8 9{$ifdef HEADER} 10{$ifndef NSVIEW_PAS_H} 11{$define NSVIEW_PAS_H} 12 13{$include NSResponder.inc} 14{$include AppKitDefines.inc} 15{$include NSGraphics.inc} 16 17const 18 NSViewNotSizable = 0; 19 NSViewMinXMargin = 1; 20 NSViewWidthSizable = 2; 21 NSViewMaxXMargin = 4; 22 NSViewMinYMargin = 8; 23 NSViewHeightSizable = 16; 24 NSViewMaxYMargin = 32; 25 26type 27 NSBorderType = ( 28 NSNoBorder = 0, 29 NSLineBorder = 1, 30 NSBezelBorder = 2, 31 NSGrooveBorder = 3 32 ); 33 34 35type 36 __VFlags = packed record 37 _bitflags1 : LongWord; 38 _bitflags2 : LongWord; 39 end; 40 _VFlags = __VFlags; 41 42type 43 NSTrackingRectTag = Integer; 44 45type 46 NSToolTipTag = Integer; 47 48//APPKIT_EXTERN NSString *NSViewFrameDidChangeNotification; 49//APPKIT_EXTERN NSString *NSViewFocusDidChangeNotification; 50//APPKIT_EXTERN NSString *NSViewBoundsDidChangeNotification; 51//APPKIT_EXTERN NSString *NSViewGlobalFrameDidChangeNotification; 52{$endif} 53{$endif} 54 55{$ifdef FORWARD} 56 NSView = class; 57 58{$endif} 59 60{$ifdef CLASSES} 61{$ifndef NSVIEW_PAS_C} 62{$define NSVIEW_PAS_C} 63 64 TProcNSViewcompare0 = function (_param1: lobjc.id; _param2: lobjc.id; _param3: Pointer): Integer; cdecl; 65 66{$include NSResponder.inc} 67{$include AppKitDefines.inc} 68{$include NSGraphics.inc} 69 70 { NSView } 71 72 NSView = class(NSResponder) 73 public 74 class function getClass: lobjc.id; override; 75 // All instance variables are private 76 constructor initWithFrame(_frameRect: NSRect); 77 function window: lobjc.id;{NSWindow} 78 function superview: lobjc.id;{NSView} 79 function subviews: CFArrayRef; 80 function isDescendantOf(_aView: lobjc.id {NSView}): LongBool; 81 function ancestorSharedWithView(_aView: lobjc.id {NSView}): lobjc.id;{NSView} 82 function opaqueAncestor: lobjc.id;{NSView} 83 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} 84 procedure setHidden(_flag: LongBool); 85 function isHidden: LongBool; 86 function isHiddenOrHasHiddenAncestor: LongBool; 87 procedure getRectsBeingDrawn_count(_rects: NSRect; _count: Integer); 88 function needsToDrawRect(_aRect: NSRect): LongBool; 89 function wantsDefaultClipping: LongBool; 90 {.$endif} 91 procedure addSubview(_aView: lobjc.id {NSView}); 92 procedure addSubview_positioned_relativeTo(_aView: lobjc.id {NSView}; _place: NSWindowOrderingMode; _otherView: lobjc.id {NSView}); 93 procedure sortSubviewsUsingFunction_context(_compare: TProcNSViewcompare0; _context: Pointer); 94 procedure viewWillMoveToWindow(_newWindow: lobjc.id {NSWindow}); 95 procedure viewDidMoveToWindow; 96 procedure viewWillMoveToSuperview(_newSuperview: lobjc.id {NSView}); 97 procedure viewDidMoveToSuperview; 98 procedure didAddSubview(_subview: lobjc.id {NSView}); 99 procedure willRemoveSubview(_subview: lobjc.id {NSView}); 100 procedure removeFromSuperview; 101 procedure replaceSubview_with(_oldView: lobjc.id {NSView}; _newView: lobjc.id {NSView}); 102 procedure removeFromSuperviewWithoutNeedingDisplay; 103 procedure setPostsFrameChangedNotifications(_flag: LongBool); 104 function postsFrameChangedNotifications: LongBool; 105 procedure resizeSubviewsWithOldSize(_oldSize: NSSize); 106 procedure resizeWithOldSuperviewSize(_oldSize: NSSize); 107 procedure setAutoresizesSubviews(_flag: LongBool); 108 function autoresizesSubviews: LongBool; 109 procedure setAutoresizingMask(_mask: LongWord); 110 function autoresizingMask: LongWord; 111 procedure setFrameOrigin(_newOrigin: NSPoint); 112 procedure setFrameSize(_newSize: NSSize); 113 procedure setFrame(_frameRect: NSRect); 114 function frame: NSRect; 115 procedure setFrameRotation(_angle: Single); 116 function frameRotation: Single; 117 procedure setBoundsOrigin(_newOrigin: NSPoint); 118 procedure setBoundsSize(_newSize: NSSize); 119 procedure setBoundsRotation(_angle: Single); 120 function boundsRotation: Single; 121 procedure translateOriginToPoint(_translation: NSPoint); 122 procedure scaleUnitSquareToSize(_newUnitSize: NSSize); 123 procedure rotateByAngle(_angle: Single); 124 procedure setBounds(_aRect: NSRect); 125 function bounds: NSRect; 126 function isFlipped: LongBool; 127 function isRotatedFromBase: LongBool; 128 function isRotatedOrScaledFromBase: LongBool; 129 function isOpaque: LongBool; 130 function convertPoint_fromView(_aPoint: NSPoint; _aView: lobjc.id {NSView}): NSPoint; 131 function convertPoint_toView(_aPoint: NSPoint; _aView: lobjc.id {NSView}): NSPoint; 132 function convertSize_fromView(_aSize: NSSize; _aView: lobjc.id {NSView}): NSSize; 133 function convertSize_toView(_aSize: NSSize; _aView: lobjc.id {NSView}): NSSize; 134 function convertRect_fromView(_aRect: NSRect; _aView: lobjc.id {NSView}): NSRect; 135 function convertRect_toView(_aRect: NSRect; _aView: lobjc.id {NSView}): NSRect; 136 function centerScanRect(_aRect: NSRect): NSRect; 137 function canDraw: LongBool; 138 procedure setNeedsDisplay(_flag: LongBool); 139 procedure setNeedsDisplayInRect(_invalidRect: NSRect); 140 function needsDisplay: LongBool; 141 procedure lockFocus; 142 procedure unlockFocus; 143 function lockFocusIfCanDraw: LongBool; 144 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 145 function lockFocusIfCanDrawInContext(_context: lobjc.id {NSGraphicsContext}): LongBool; 146 {.$endif} 147 constructor focusView; 148 function visibleRect: NSRect; 149 procedure display; 150 procedure displayIfNeeded; 151 procedure displayIfNeededIgnoringOpacity; 152 procedure displayRect(_rect: NSRect); 153 procedure displayIfNeededInRect(_rect: NSRect); 154 procedure displayRectIgnoringOpacity(_rect: NSRect); 155 procedure displayIfNeededInRectIgnoringOpacity(_rect: NSRect); 156 procedure drawRect(_rect: NSRect); 157 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 158 procedure displayRectIgnoringOpacity_inContext(_aRect: NSRect; _context: lobjc.id {NSGraphicsContext}); 159 function bitmapImageRepForCachingDisplayInRect(_rect: NSRect): lobjc.id;{NSBitmapImageRep} 160 procedure cacheDisplayInRect_toBitmapImageRep(_rect: NSRect; _bitmapImageRep: lobjc.id {NSBitmapImageRep}); 161 {.$endif} 162 function gState: Integer; 163 procedure allocateGState; 164 procedure releaseGState; 165 procedure setUpGState; 166 procedure renewGState; 167 procedure scrollPoint(_aPoint: NSPoint); 168 function scrollRectToVisible(_aRect: NSRect): LongBool; 169 function autoscroll(_theEvent: lobjc.id {NSEvent}): LongBool; 170 function adjustScroll(_newVisible: NSRect): NSRect; 171 procedure scrollRect_by(_aRect: NSRect; _delta: NSSize); 172 function hitTest(_aPoint: NSPoint): lobjc.id;{NSView} 173 function mouse_inRect(_aPoint: NSPoint; _aRect: NSRect): LongBool; 174 function viewWithTag(_aTag: Integer): lobjc.id; 175 function tag: Integer; 176 function performKeyEquivalent(_theEvent: lobjc.id {NSEvent}): LongBool; 177 function acceptsFirstMouse(_theEvent: lobjc.id {NSEvent}): LongBool; 178 function shouldDelayWindowOrderingForEvent(_theEvent: lobjc.id {NSEvent}): LongBool; 179 function needsPanelToBecomeKey: LongBool; 180 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2} 181 function mouseDownCanMoveWindow: LongBool; 182 {.$endif} 183 procedure addCursorRect_cursor(_aRect: NSRect; _anObj: lobjc.id {NSCursor}); 184 procedure removeCursorRect_cursor(_aRect: NSRect; _anObj: lobjc.id {NSCursor}); 185 procedure discardCursorRects; 186 procedure resetCursorRects; 187 function addTrackingRect_owner_userData_assumeInside(_aRect: NSRect; _anObject: lobjc.id; _data: Pointer; _flag: LongBool): NSTrackingRectTag; 188 procedure removeTrackingRect(_tag: NSTrackingRectTag); 189 function shouldDrawColor: LongBool; 190 procedure setPostsBoundsChangedNotifications(_flag: LongBool); 191 function postsBoundsChangedNotifications: LongBool; 192 function enclosingScrollView: lobjc.id;{NSScrollView} 193 function menuForEvent(_event: lobjc.id {NSEvent}): lobjc.id;{NSMenu} 194 class function defaultMenu: lobjc.id;{NSMenu} 195 procedure setToolTip(__string: CFStringRef); 196 function toolTip: CFStringRef; 197 function addToolTipRect_owner_userData(_aRect: NSRect; _anObject: lobjc.id; _data: Pointer): NSToolTipTag; 198 procedure removeToolTip(_tag: NSToolTipTag); 199 procedure removeAllToolTips; 200 // Live resize support 201 // a view receives viewWillStartLiveResize before the frame is first changed for a 202 // live resize 203 procedure viewWillStartLiveResize; 204 // a view receives viewWillEndLiveResize after the frame is last changed for a live 205 // resize 206 procedure viewDidEndLiveResize; 207 // inLiveResize can be called from drawRect: to decide between cheap and full drawing 208 function inLiveResize: LongBool; 209 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 210 // A view that returns YES for -preservesContentDuringLiveResize is responsible for 211 // invalidating its own dirty rects during live resize 212 function preservesContentDuringLiveResize: LongBool; 213 // -rectPreservedDuringLiveResize indicates the rect the view previously occupied, 214 // in the current coordinate system of the view 215 function rectPreservedDuringLiveResize: NSRect; 216 // On return from -getRectsExposedDuringLiveResize, exposedRects indicates the parts 217 // of the view that are newly exposed (at most 4 rects). *count indicates how many 218 // rects are in the exposedRects list 219 procedure getRectsExposedDuringLiveResize; 220 {.$endif} 221 function performMnemonic(_theString: CFStringRef): LongBool; 222 procedure setNextKeyView(_next: lobjc.id {NSView}); 223 function nextKeyView: lobjc.id;{NSView} 224 function previousKeyView: lobjc.id;{NSView} 225 function nextValidKeyView: lobjc.id;{NSView} 226 function previousValidKeyView: lobjc.id;{NSView} 227 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} 228 function canBecomeKeyView: LongBool; 229 {.$endif} 230 procedure setKeyboardFocusRingNeedsDisplayInRect(_rect: NSRect); 231 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} 232 procedure setFocusRingType(_focusRingType: NSFocusRingType); 233 function focusRingType: NSFocusRingType; 234 class function defaultFocusRingType: NSFocusRingType; 235 {.$endif} 236 // EPS/PDF generation 237 procedure writeEPSInsideRect_toPasteboard(_rect: NSRect; _pasteboard: lobjc.id {NSPasteboard}); 238 function dataWithEPSInsideRect(_rect: NSRect): CFDataRef; 239 procedure writePDFInsideRect_toPasteboard(_rect: NSRect; _pasteboard: lobjc.id {NSPasteboard}); 240 function dataWithPDFInsideRect(_rect: NSRect): CFDataRef; 241 // Printing action method (Note fax: is obsolete) 242 procedure print(_sender: lobjc.id); 243 // Pagination 244 function knowsPageRange(_range: NSRangePointer): LongBool; 245 function heightAdjustLimit: Single; 246 function widthAdjustLimit: Single; 247 procedure adjustPageWidthNew_left_right_limit(_newRight: Single; _oldLeft: Single; _oldRight: Single; _rightLimit: Single); 248 procedure adjustPageHeightNew_top_bottom_limit(_newBottom: Single; _oldTop: Single; _oldBottom: Single; _bottomLimit: Single); 249 function rectForPage(_page: Integer): NSRect; 250 function locationOfPrintRect(_aRect: NSRect): NSPoint; 251 procedure drawPageBorderWithSize(_borderSize: NSSize); 252 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 253 function pageHeader: lobjc.id;{NSAttributedString} 254 function pageFooter: lobjc.id;{NSAttributedString} 255 {.$endif} 256 // ** This method is obsolete. It will never be invoked from within AppKit, and NSView's 257 // implementation of it does nothing. ** 258 procedure drawSheetBorderWithSize(_borderSize: NSSize); 259 // Printing 260 // Returns print job title. Default implementation first tries its window's NSDocument 261 // (displayName), then window's title 262 function printJobTitle: CFStringRef; 263 procedure beginDocument; 264 procedure endDocument; 265 procedure beginPageInRect_atPlacement(_aRect: NSRect; _location: NSPoint); 266 procedure endPage; 267 procedure dragImage_at_offset_event_pasteboard_source_slideBack(_anImage: lobjc.id {NSImage}; _viewLocation: NSPoint; _initialOffset: NSSize; _event: lobjc.id {NSEvent}; _pboard: lobjc.id {NSPasteboard}; _sourceObj: lobjc.id; _slideFlag: LongBool); 268 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 269 function registeredDraggedTypes: CFArrayRef; 270 {.$endif} 271 procedure registerForDraggedTypes(_newTypes: CFArrayRef); 272 procedure unregisterDraggedTypes; 273 function dragFile_fromRect_slideBack_event(_filename: CFStringRef; _rect: NSRect; _aFlag: LongBool; _event: lobjc.id {NSEvent}): LongBool; 274 {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2} 275 function dragPromisedFilesOfTypes_fromRect_source_slideBack_event(_typeArray: CFArrayRef; _rect: NSRect; _sourceObject: lobjc.id; _aFlag: LongBool; _event: lobjc.id {NSEvent}): LongBool; 276 {.$endif} 277 end; 278 279{$endif} 280{$endif} 281 282{$ifdef IMPLEMENTATION} 283const 284 StrNSView_NSView = 'NSView'; 285 StrNSView_initWithFrame = 'initWithFrame:'; 286 StrNSView_window = 'window'; 287 StrNSView_superview = 'superview'; 288 StrNSView_subviews = 'subviews'; 289 StrNSView_isDescendantOf = 'isDescendantOf:'; 290 StrNSView_ancestorSharedWithView = 'ancestorSharedWithView:'; 291 StrNSView_opaqueAncestor = 'opaqueAncestor'; 292 StrNSView_setHidden = 'setHidden:'; 293 StrNSView_isHidden = 'isHidden'; 294 StrNSView_isHiddenOrHasHiddenAncestor = 'isHiddenOrHasHiddenAncestor'; 295 StrNSView_getRectsBeingDrawn_count = 'getRectsBeingDrawn:count:'; 296 StrNSView_needsToDrawRect = 'needsToDrawRect:'; 297 StrNSView_wantsDefaultClipping = 'wantsDefaultClipping'; 298 StrNSView_addSubview = 'addSubview:'; 299 StrNSView_addSubview_positioned_relativeTo = 'addSubview:positioned:relativeTo:'; 300 StrNSView_sortSubviewsUsingFunction_context = 'sortSubviewsUsingFunction:context:'; 301 StrNSView_viewWillMoveToWindow = 'viewWillMoveToWindow:'; 302 StrNSView_viewDidMoveToWindow = 'viewDidMoveToWindow'; 303 StrNSView_viewWillMoveToSuperview = 'viewWillMoveToSuperview:'; 304 StrNSView_viewDidMoveToSuperview = 'viewDidMoveToSuperview'; 305 StrNSView_didAddSubview = 'didAddSubview:'; 306 StrNSView_willRemoveSubview = 'willRemoveSubview:'; 307 StrNSView_removeFromSuperview = 'removeFromSuperview'; 308 StrNSView_replaceSubview_with = 'replaceSubview:with:'; 309 StrNSView_removeFromSuperviewWithoutNeedingDisplay = 'removeFromSuperviewWithoutNeedingDisplay'; 310 StrNSView_setPostsFrameChangedNotifications = 'setPostsFrameChangedNotifications:'; 311 StrNSView_postsFrameChangedNotifications = 'postsFrameChangedNotifications'; 312 StrNSView_resizeSubviewsWithOldSize = 'resizeSubviewsWithOldSize:'; 313 StrNSView_resizeWithOldSuperviewSize = 'resizeWithOldSuperviewSize:'; 314 StrNSView_setAutoresizesSubviews = 'setAutoresizesSubviews:'; 315 StrNSView_autoresizesSubviews = 'autoresizesSubviews'; 316 StrNSView_setAutoresizingMask = 'setAutoresizingMask:'; 317 StrNSView_autoresizingMask = 'autoresizingMask'; 318 StrNSView_setFrameOrigin = 'setFrameOrigin:'; 319 StrNSView_setFrameSize = 'setFrameSize:'; 320 StrNSView_setFrame = 'setFrame:'; 321 StrNSView_frame = 'frame'; 322 StrNSView_setFrameRotation = 'setFrameRotation:'; 323 StrNSView_frameRotation = 'frameRotation'; 324 StrNSView_setBoundsOrigin = 'setBoundsOrigin:'; 325 StrNSView_setBoundsSize = 'setBoundsSize:'; 326 StrNSView_setBoundsRotation = 'setBoundsRotation:'; 327 StrNSView_boundsRotation = 'boundsRotation'; 328 StrNSView_translateOriginToPoint = 'translateOriginToPoint:'; 329 StrNSView_scaleUnitSquareToSize = 'scaleUnitSquareToSize:'; 330 StrNSView_rotateByAngle = 'rotateByAngle:'; 331 StrNSView_setBounds = 'setBounds:'; 332 StrNSView_bounds = 'bounds'; 333 StrNSView_isFlipped = 'isFlipped'; 334 StrNSView_isRotatedFromBase = 'isRotatedFromBase'; 335 StrNSView_isRotatedOrScaledFromBase = 'isRotatedOrScaledFromBase'; 336 StrNSView_isOpaque = 'isOpaque'; 337 StrNSView_convertPoint_fromView = 'convertPoint:fromView:'; 338 StrNSView_convertPoint_toView = 'convertPoint:toView:'; 339 StrNSView_convertSize_fromView = 'convertSize:fromView:'; 340 StrNSView_convertSize_toView = 'convertSize:toView:'; 341 StrNSView_convertRect_fromView = 'convertRect:fromView:'; 342 StrNSView_convertRect_toView = 'convertRect:toView:'; 343 StrNSView_centerScanRect = 'centerScanRect:'; 344 StrNSView_canDraw = 'canDraw'; 345 StrNSView_setNeedsDisplay = 'setNeedsDisplay:'; 346 StrNSView_setNeedsDisplayInRect = 'setNeedsDisplayInRect:'; 347 StrNSView_needsDisplay = 'needsDisplay'; 348 StrNSView_lockFocus = 'lockFocus'; 349 StrNSView_unlockFocus = 'unlockFocus'; 350 StrNSView_lockFocusIfCanDraw = 'lockFocusIfCanDraw'; 351 StrNSView_lockFocusIfCanDrawInContext = 'lockFocusIfCanDrawInContext:'; 352 StrNSView_focusView = 'focusView'; 353 StrNSView_visibleRect = 'visibleRect'; 354 StrNSView_display = 'display'; 355 StrNSView_displayIfNeeded = 'displayIfNeeded'; 356 StrNSView_displayIfNeededIgnoringOpacity = 'displayIfNeededIgnoringOpacity'; 357 StrNSView_displayRect = 'displayRect:'; 358 StrNSView_displayIfNeededInRect = 'displayIfNeededInRect:'; 359 StrNSView_displayRectIgnoringOpacity = 'displayRectIgnoringOpacity:'; 360 StrNSView_displayIfNeededInRectIgnoringOpacity = 'displayIfNeededInRectIgnoringOpacity:'; 361 StrNSView_drawRect = 'drawRect:'; 362 StrNSView_displayRectIgnoringOpacity_inContext = 'displayRectIgnoringOpacity:inContext:'; 363 StrNSView_bitmapImageRepForCachingDisplayInRect = 'bitmapImageRepForCachingDisplayInRect:'; 364 StrNSView_cacheDisplayInRect_toBitmapImageRep = 'cacheDisplayInRect:toBitmapImageRep:'; 365 StrNSView_gState = 'gState'; 366 StrNSView_allocateGState = 'allocateGState'; 367 StrNSView_releaseGState = 'releaseGState'; 368 StrNSView_setUpGState = 'setUpGState'; 369 StrNSView_renewGState = 'renewGState'; 370 StrNSView_scrollPoint = 'scrollPoint:'; 371 StrNSView_scrollRectToVisible = 'scrollRectToVisible:'; 372 StrNSView_autoscroll = 'autoscroll:'; 373 StrNSView_adjustScroll = 'adjustScroll:'; 374 StrNSView_scrollRect_by = 'scrollRect:by:'; 375 StrNSView_hitTest = 'hitTest:'; 376 StrNSView_mouse_inRect = 'mouse:inRect:'; 377 StrNSView_viewWithTag = 'viewWithTag:'; 378 StrNSView_tag = 'tag'; 379 StrNSView_performKeyEquivalent = 'performKeyEquivalent:'; 380 StrNSView_acceptsFirstMouse = 'acceptsFirstMouse:'; 381 StrNSView_shouldDelayWindowOrderingForEvent = 'shouldDelayWindowOrderingForEvent:'; 382 StrNSView_needsPanelToBecomeKey = 'needsPanelToBecomeKey'; 383 StrNSView_mouseDownCanMoveWindow = 'mouseDownCanMoveWindow'; 384 StrNSView_addCursorRect_cursor = 'addCursorRect:cursor:'; 385 StrNSView_removeCursorRect_cursor = 'removeCursorRect:cursor:'; 386 StrNSView_discardCursorRects = 'discardCursorRects'; 387 StrNSView_resetCursorRects = 'resetCursorRects'; 388 StrNSView_addTrackingRect_owner_userData_assumeInside = 'addTrackingRect:owner:userData:assumeInside:'; 389 StrNSView_removeTrackingRect = 'removeTrackingRect:'; 390 StrNSView_shouldDrawColor = 'shouldDrawColor'; 391 StrNSView_setPostsBoundsChangedNotifications = 'setPostsBoundsChangedNotifications:'; 392 StrNSView_postsBoundsChangedNotifications = 'postsBoundsChangedNotifications'; 393 StrNSView_enclosingScrollView = 'enclosingScrollView'; 394 StrNSView_menuForEvent = 'menuForEvent:'; 395 StrNSView_defaultMenu = 'defaultMenu'; 396 StrNSView_setToolTip = 'setToolTip:'; 397 StrNSView_toolTip = 'toolTip'; 398 StrNSView_addToolTipRect_owner_userData = 'addToolTipRect:owner:userData:'; 399 StrNSView_removeToolTip = 'removeToolTip:'; 400 StrNSView_removeAllToolTips = 'removeAllToolTips'; 401 StrNSView_viewWillStartLiveResize = 'viewWillStartLiveResize'; 402 StrNSView_viewDidEndLiveResize = 'viewDidEndLiveResize'; 403 StrNSView_inLiveResize = 'inLiveResize'; 404 StrNSView_preservesContentDuringLiveResize = 'preservesContentDuringLiveResize'; 405 StrNSView_rectPreservedDuringLiveResize = 'rectPreservedDuringLiveResize'; 406 StrNSView_getRectsExposedDuringLiveResize = 'getRectsExposedDuringLiveResize'; 407 408 StrNSView_performMnemonic = 'performMnemonic:'; 409 StrNSView_setNextKeyView = 'setNextKeyView:'; 410 StrNSView_nextKeyView = 'nextKeyView'; 411 StrNSView_previousKeyView = 'previousKeyView'; 412 StrNSView_nextValidKeyView = 'nextValidKeyView'; 413 StrNSView_previousValidKeyView = 'previousValidKeyView'; 414 StrNSView_canBecomeKeyView = 'canBecomeKeyView'; 415 StrNSView_setKeyboardFocusRingNeedsDisplayInRect = 'setKeyboardFocusRingNeedsDisplayInRect:'; 416 StrNSView_setFocusRingType = 'setFocusRingType:'; 417 StrNSView_focusRingType = 'focusRingType'; 418 StrNSView_defaultFocusRingType = 'defaultFocusRingType'; 419 420 StrNSView_writeEPSInsideRect_toPasteboard = 'writeEPSInsideRect:toPasteboard:'; 421 StrNSView_dataWithEPSInsideRect = 'dataWithEPSInsideRect:'; 422 StrNSView_writePDFInsideRect_toPasteboard = 'writePDFInsideRect:toPasteboard:'; 423 StrNSView_dataWithPDFInsideRect = 'dataWithPDFInsideRect:'; 424 StrNSView_print = 'print:'; 425 StrNSView_knowsPageRange = 'knowsPageRange:'; 426 StrNSView_heightAdjustLimit = 'heightAdjustLimit'; 427 StrNSView_widthAdjustLimit = 'widthAdjustLimit'; 428 StrNSView_adjustPageWidthNew_left_right_limit = 'adjustPageWidthNew:left:right:limit:'; 429 StrNSView_adjustPageHeightNew_top_bottom_limit = 'adjustPageHeightNew:top:bottom:limit:'; 430 StrNSView_rectForPage = 'rectForPage:'; 431 StrNSView_locationOfPrintRect = 'locationOfPrintRect:'; 432 StrNSView_drawPageBorderWithSize = 'drawPageBorderWithSize:'; 433 StrNSView_pageHeader = 'pageHeader'; 434 StrNSView_pageFooter = 'pageFooter'; 435 StrNSView_drawSheetBorderWithSize = 'drawSheetBorderWithSize:'; 436 StrNSView_printJobTitle = 'printJobTitle'; 437 StrNSView_beginDocument = 'beginDocument'; 438 StrNSView_endDocument = 'endDocument'; 439 StrNSView_beginPageInRect_atPlacement = 'beginPageInRect:atPlacement:'; 440 StrNSView_endPage = 'endPage'; 441 442 StrNSView_dragImage_at_offset_event_pasteboard_source_slideBack = 'dragImage:at:offset:event:pasteboard:source:slideBack:'; 443 StrNSView_registeredDraggedTypes = 'registeredDraggedTypes'; 444 StrNSView_registerForDraggedTypes = 'registerForDraggedTypes:'; 445 StrNSView_unregisterDraggedTypes = 'unregisterDraggedTypes'; 446 StrNSView_dragFile_fromRect_slideBack_event = 'dragFile:fromRect:slideBack:event:'; 447 StrNSView_dragPromisedFilesOfTypes_fromRect_source_slideBack_event = 'dragPromisedFilesOfTypes:fromRect:source:slideBack:event:'; 448 449{ NSView } 450 451class function NSView.getClass: lobjc.id; 452begin 453 Result := objc_getClass(StrNSView_NSView); 454end; 455 456constructor NSView.initWithFrame(_frameRect: NSRect); 457type 458 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_frameRect: NSRect): lobjc.id; cdecl; 459var 460 vmethod: TmsgSendWrapper; 461begin 462 ClassID := getClass(); 463 allocbuf := objc_msgSend(ClassID, sel_registerName(PChar(Str_alloc)), []); 464 vmethod := TmsgSendWrapper(@objc_msgSend); 465 Handle := vmethod(allocbuf, sel_registerName(PChar(StrNSView_initWithFrame)), _frameRect); 466end; 467 468function NSView.window: lobjc.id; 469begin 470 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_window)), [])); 471end; 472 473function NSView.superview: lobjc.id; 474begin 475 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_superview)), [])); 476end; 477 478function NSView.subviews: CFArrayRef; 479begin 480 Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_subviews)), [])); 481end; 482 483function NSView.isDescendantOf(_aView: lobjc.id {NSView}): LongBool; 484type 485 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aView: lobjc.id {NSView}): LongBool; cdecl; 486var 487 vmethod: TmsgSendWrapper; 488begin 489 vmethod := TmsgSendWrapper(@objc_msgSend); 490 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_isDescendantOf)), _aView)); 491end; 492 493function NSView.ancestorSharedWithView(_aView: lobjc.id {NSView}): lobjc.id; 494type 495 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aView: lobjc.id {NSView}): lobjc.id; cdecl; 496var 497 vmethod: TmsgSendWrapper; 498begin 499 vmethod := TmsgSendWrapper(@objc_msgSend); 500 Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSView_ancestorSharedWithView)), _aView)); 501end; 502 503function NSView.opaqueAncestor: lobjc.id; 504begin 505 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_opaqueAncestor)), [])); 506end; 507 508{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} 509procedure NSView.setHidden(_flag: LongBool); 510type 511 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl; 512var 513 vmethod: TmsgSendWrapper; 514begin 515 vmethod := TmsgSendWrapper(@objc_msgSend); 516 vmethod(Handle, sel_registerName(PChar(StrNSView_setHidden)), _flag); 517end; 518 519function NSView.isHidden: LongBool; 520begin 521 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHidden)), [])); 522end; 523 524function NSView.isHiddenOrHasHiddenAncestor: LongBool; 525begin 526 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHiddenOrHasHiddenAncestor)), [])); 527end; 528 529procedure NSView.getRectsBeingDrawn_count(_rects: NSRect; _count: Integer); 530type 531 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rects: NSRect; _count: Integer); cdecl; 532var 533 vmethod: TmsgSendWrapper; 534begin 535 vmethod := TmsgSendWrapper(@objc_msgSend); 536 vmethod(Handle, sel_registerName(PChar(StrNSView_getRectsBeingDrawn_count)), _rects, _count); 537end; 538 539function NSView.needsToDrawRect(_aRect: NSRect): LongBool; 540type 541 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aRect: NSRect): LongBool; cdecl; 542var 543 vmethod: TmsgSendWrapper; 544begin 545 vmethod := TmsgSendWrapper(@objc_msgSend); 546 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_needsToDrawRect)), _aRect)); 547end; 548 549function NSView.wantsDefaultClipping: LongBool; 550begin 551 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_wantsDefaultClipping)), [])); 552end; 553 554{.$endif} 555procedure NSView.addSubview(_aView: lobjc.id {NSView}); 556type 557 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aView: lobjc.id {NSView}); cdecl; 558var 559 vmethod: TmsgSendWrapper; 560begin 561 vmethod := TmsgSendWrapper(@objc_msgSend); 562 vmethod(Handle, sel_registerName(PChar(StrNSView_addSubview)), _aView); 563end; 564 565procedure NSView.addSubview_positioned_relativeTo(_aView: lobjc.id {NSView}; _place: NSWindowOrderingMode; _otherView: lobjc.id {NSView}); 566type 567 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aView: lobjc.id {NSView}; _place: NSWindowOrderingMode; _otherView: lobjc.id {NSView}); cdecl; 568var 569 vmethod: TmsgSendWrapper; 570begin 571 vmethod := TmsgSendWrapper(@objc_msgSend); 572 vmethod(Handle, sel_registerName(PChar(StrNSView_addSubview_positioned_relativeTo)), _aView, _place, _otherView); 573end; 574 575procedure NSView.sortSubviewsUsingFunction_context(_compare: TProcNSViewcompare0; _context: Pointer); 576type 577 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_compare: TProcNSViewcompare0; _context: Pointer); cdecl; 578var 579 vmethod: TmsgSendWrapper; 580begin 581 vmethod := TmsgSendWrapper(@objc_msgSend); 582 vmethod(Handle, sel_registerName(PChar(StrNSView_sortSubviewsUsingFunction_context)), _compare, _context); 583end; 584 585procedure NSView.viewWillMoveToWindow(_newWindow: lobjc.id {NSWindow}); 586type 587 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newWindow: lobjc.id {NSWindow}); cdecl; 588var 589 vmethod: TmsgSendWrapper; 590begin 591 vmethod := TmsgSendWrapper(@objc_msgSend); 592 vmethod(Handle, sel_registerName(PChar(StrNSView_viewWillMoveToWindow)), _newWindow); 593end; 594 595procedure NSView.viewDidMoveToWindow; 596begin 597 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_viewDidMoveToWindow)), []); 598end; 599 600procedure NSView.viewWillMoveToSuperview(_newSuperview: lobjc.id {NSView}); 601type 602 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newSuperview: lobjc.id {NSView}); cdecl; 603var 604 vmethod: TmsgSendWrapper; 605begin 606 vmethod := TmsgSendWrapper(@objc_msgSend); 607 vmethod(Handle, sel_registerName(PChar(StrNSView_viewWillMoveToSuperview)), _newSuperview); 608end; 609 610procedure NSView.viewDidMoveToSuperview; 611begin 612 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_viewDidMoveToSuperview)), []); 613end; 614 615procedure NSView.didAddSubview(_subview: lobjc.id {NSView}); 616type 617 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_subview: lobjc.id {NSView}); cdecl; 618var 619 vmethod: TmsgSendWrapper; 620begin 621 vmethod := TmsgSendWrapper(@objc_msgSend); 622 vmethod(Handle, sel_registerName(PChar(StrNSView_didAddSubview)), _subview); 623end; 624 625procedure NSView.willRemoveSubview(_subview: lobjc.id {NSView}); 626type 627 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_subview: lobjc.id {NSView}); cdecl; 628var 629 vmethod: TmsgSendWrapper; 630begin 631 vmethod := TmsgSendWrapper(@objc_msgSend); 632 vmethod(Handle, sel_registerName(PChar(StrNSView_willRemoveSubview)), _subview); 633end; 634 635procedure NSView.removeFromSuperview; 636begin 637 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_removeFromSuperview)), []); 638end; 639 640procedure NSView.replaceSubview_with(_oldView: lobjc.id {NSView}; _newView: lobjc.id {NSView}); 641type 642 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_oldView: lobjc.id {NSView}; _newView: lobjc.id {NSView}); cdecl; 643var 644 vmethod: TmsgSendWrapper; 645begin 646 vmethod := TmsgSendWrapper(@objc_msgSend); 647 vmethod(Handle, sel_registerName(PChar(StrNSView_replaceSubview_with)), _oldView, _newView); 648end; 649 650procedure NSView.removeFromSuperviewWithoutNeedingDisplay; 651begin 652 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_removeFromSuperviewWithoutNeedingDisplay)), []); 653end; 654 655procedure NSView.setPostsFrameChangedNotifications(_flag: LongBool); 656type 657 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl; 658var 659 vmethod: TmsgSendWrapper; 660begin 661 vmethod := TmsgSendWrapper(@objc_msgSend); 662 vmethod(Handle, sel_registerName(PChar(StrNSView_setPostsFrameChangedNotifications)), _flag); 663end; 664 665function NSView.postsFrameChangedNotifications: LongBool; 666begin 667 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsFrameChangedNotifications)), [])); 668end; 669 670procedure NSView.resizeSubviewsWithOldSize(_oldSize: NSSize); 671type 672 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_oldSize: NSSize); cdecl; 673var 674 vmethod: TmsgSendWrapper; 675begin 676 vmethod := TmsgSendWrapper(@objc_msgSend); 677 vmethod(Handle, sel_registerName(PChar(StrNSView_resizeSubviewsWithOldSize)), _oldSize); 678end; 679 680procedure NSView.resizeWithOldSuperviewSize(_oldSize: NSSize); 681type 682 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_oldSize: NSSize); cdecl; 683var 684 vmethod: TmsgSendWrapper; 685begin 686 vmethod := TmsgSendWrapper(@objc_msgSend); 687 vmethod(Handle, sel_registerName(PChar(StrNSView_resizeWithOldSuperviewSize)), _oldSize); 688end; 689 690procedure NSView.setAutoresizesSubviews(_flag: LongBool); 691type 692 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl; 693var 694 vmethod: TmsgSendWrapper; 695begin 696 vmethod := TmsgSendWrapper(@objc_msgSend); 697 vmethod(Handle, sel_registerName(PChar(StrNSView_setAutoresizesSubviews)), _flag); 698end; 699 700function NSView.autoresizesSubviews: LongBool; 701begin 702 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizesSubviews)), [])); 703end; 704 705procedure NSView.setAutoresizingMask(_mask: LongWord); 706type 707 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_mask: LongWord); cdecl; 708var 709 vmethod: TmsgSendWrapper; 710begin 711 vmethod := TmsgSendWrapper(@objc_msgSend); 712 vmethod(Handle, sel_registerName(PChar(StrNSView_setAutoresizingMask)), _mask); 713end; 714 715function NSView.autoresizingMask: LongWord; 716begin 717 Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizingMask)), [])); 718end; 719 720procedure NSView.setFrameOrigin(_newOrigin: NSPoint); 721type 722 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newOrigin: NSPoint); cdecl; 723var 724 vmethod: TmsgSendWrapper; 725begin 726 vmethod := TmsgSendWrapper(@objc_msgSend); 727 vmethod(Handle, sel_registerName(PChar(StrNSView_setFrameOrigin)), _newOrigin); 728end; 729 730procedure NSView.setFrameSize(_newSize: NSSize); 731type 732 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newSize: NSSize); cdecl; 733var 734 vmethod: TmsgSendWrapper; 735begin 736 vmethod := TmsgSendWrapper(@objc_msgSend); 737 vmethod(Handle, sel_registerName(PChar(StrNSView_setFrameSize)), _newSize); 738end; 739 740procedure NSView.setFrame(_frameRect: NSRect); 741type 742 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_frameRect: NSRect); cdecl; 743var 744 vmethod: TmsgSendWrapper; 745begin 746 vmethod := TmsgSendWrapper(@objc_msgSend); 747 vmethod(Handle, sel_registerName(PChar(StrNSView_setFrame)), _frameRect); 748end; 749 750function NSView.frame: NSRect; 751begin 752 objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSView_frame)), []); 753end; 754 755procedure NSView.setFrameRotation(_angle: Single); 756type 757 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_angle: Single); cdecl; 758var 759 vmethod: TmsgSendWrapper; 760begin 761 vmethod := TmsgSendWrapper(@objc_msgSend); 762 vmethod(Handle, sel_registerName(PChar(StrNSView_setFrameRotation)), _angle); 763end; 764 765function NSView.frameRotation: Single; 766begin 767 Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_frameRotation)), [])); 768end; 769 770procedure NSView.setBoundsOrigin(_newOrigin: NSPoint); 771type 772 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newOrigin: NSPoint); cdecl; 773var 774 vmethod: TmsgSendWrapper; 775begin 776 vmethod := TmsgSendWrapper(@objc_msgSend); 777 vmethod(Handle, sel_registerName(PChar(StrNSView_setBoundsOrigin)), _newOrigin); 778end; 779 780procedure NSView.setBoundsSize(_newSize: NSSize); 781type 782 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newSize: NSSize); cdecl; 783var 784 vmethod: TmsgSendWrapper; 785begin 786 vmethod := TmsgSendWrapper(@objc_msgSend); 787 vmethod(Handle, sel_registerName(PChar(StrNSView_setBoundsSize)), _newSize); 788end; 789 790procedure NSView.setBoundsRotation(_angle: Single); 791type 792 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_angle: Single); cdecl; 793var 794 vmethod: TmsgSendWrapper; 795begin 796 vmethod := TmsgSendWrapper(@objc_msgSend); 797 vmethod(Handle, sel_registerName(PChar(StrNSView_setBoundsRotation)), _angle); 798end; 799 800function NSView.boundsRotation: Single; 801begin 802 Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_boundsRotation)), [])); 803end; 804 805procedure NSView.translateOriginToPoint(_translation: NSPoint); 806type 807 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_translation: NSPoint); cdecl; 808var 809 vmethod: TmsgSendWrapper; 810begin 811 vmethod := TmsgSendWrapper(@objc_msgSend); 812 vmethod(Handle, sel_registerName(PChar(StrNSView_translateOriginToPoint)), _translation); 813end; 814 815procedure NSView.scaleUnitSquareToSize(_newUnitSize: NSSize); 816type 817 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newUnitSize: NSSize); cdecl; 818var 819 vmethod: TmsgSendWrapper; 820begin 821 vmethod := TmsgSendWrapper(@objc_msgSend); 822 vmethod(Handle, sel_registerName(PChar(StrNSView_scaleUnitSquareToSize)), _newUnitSize); 823end; 824 825procedure NSView.rotateByAngle(_angle: Single); 826type 827 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_angle: Single); cdecl; 828var 829 vmethod: TmsgSendWrapper; 830begin 831 vmethod := TmsgSendWrapper(@objc_msgSend); 832 vmethod(Handle, sel_registerName(PChar(StrNSView_rotateByAngle)), _angle); 833end; 834 835procedure NSView.setBounds(_aRect: NSRect); 836type 837 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aRect: NSRect); cdecl; 838var 839 vmethod: TmsgSendWrapper; 840begin 841 vmethod := TmsgSendWrapper(@objc_msgSend); 842 vmethod(Handle, sel_registerName(PChar(StrNSView_setBounds)), _aRect); 843end; 844 845function NSView.bounds: NSRect; 846begin 847 objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSView_bounds)), []); 848end; 849 850function NSView.isFlipped: LongBool; 851begin 852 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isFlipped)), [])); 853end; 854 855function NSView.isRotatedFromBase: LongBool; 856begin 857 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedFromBase)), [])); 858end; 859 860function NSView.isRotatedOrScaledFromBase: LongBool; 861begin 862 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedOrScaledFromBase)), [])); 863end; 864 865function NSView.isOpaque: LongBool; 866begin 867 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isOpaque)), [])); 868end; 869 870function NSView.convertPoint_fromView(_aPoint: NSPoint; _aView: lobjc.id {NSView}): NSPoint; 871type 872 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aPoint: NSPoint; _aView: lobjc.id {NSView}); cdecl; 873var 874 vmethod: TmsgSendWrapper; 875begin 876 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 877 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_convertPoint_fromView)), _aPoint, _aView); 878end; 879 880function NSView.convertPoint_toView(_aPoint: NSPoint; _aView: lobjc.id {NSView}): NSPoint; 881type 882 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aPoint: NSPoint; _aView: lobjc.id {NSView}); cdecl; 883var 884 vmethod: TmsgSendWrapper; 885begin 886 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 887 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_convertPoint_toView)), _aPoint, _aView); 888end; 889 890function NSView.convertSize_fromView(_aSize: NSSize; _aView: lobjc.id {NSView}): NSSize; 891type 892 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aSize: NSSize; _aView: lobjc.id {NSView}); cdecl; 893var 894 vmethod: TmsgSendWrapper; 895begin 896 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 897 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_convertSize_fromView)), _aSize, _aView); 898end; 899 900function NSView.convertSize_toView(_aSize: NSSize; _aView: lobjc.id {NSView}): NSSize; 901type 902 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aSize: NSSize; _aView: lobjc.id {NSView}); cdecl; 903var 904 vmethod: TmsgSendWrapper; 905begin 906 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 907 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_convertSize_toView)), _aSize, _aView); 908end; 909 910function NSView.convertRect_fromView(_aRect: NSRect; _aView: lobjc.id {NSView}): NSRect; 911type 912 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aRect: NSRect; _aView: lobjc.id {NSView}); cdecl; 913var 914 vmethod: TmsgSendWrapper; 915begin 916 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 917 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_convertRect_fromView)), _aRect, _aView); 918end; 919 920function NSView.convertRect_toView(_aRect: NSRect; _aView: lobjc.id {NSView}): NSRect; 921type 922 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aRect: NSRect; _aView: lobjc.id {NSView}); cdecl; 923var 924 vmethod: TmsgSendWrapper; 925begin 926 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 927 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_convertRect_toView)), _aRect, _aView); 928end; 929 930function NSView.centerScanRect(_aRect: NSRect): NSRect; 931type 932 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aRect: NSRect); cdecl; 933var 934 vmethod: TmsgSendWrapper; 935begin 936 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 937 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_centerScanRect)), _aRect); 938end; 939 940function NSView.canDraw: LongBool; 941begin 942 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canDraw)), [])); 943end; 944 945procedure NSView.setNeedsDisplay(_flag: LongBool); 946type 947 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl; 948var 949 vmethod: TmsgSendWrapper; 950begin 951 vmethod := TmsgSendWrapper(@objc_msgSend); 952 vmethod(Handle, sel_registerName(PChar(StrNSView_setNeedsDisplay)), _flag); 953end; 954 955procedure NSView.setNeedsDisplayInRect(_invalidRect: NSRect); 956type 957 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_invalidRect: NSRect); cdecl; 958var 959 vmethod: TmsgSendWrapper; 960begin 961 vmethod := TmsgSendWrapper(@objc_msgSend); 962 vmethod(Handle, sel_registerName(PChar(StrNSView_setNeedsDisplayInRect)), _invalidRect); 963end; 964 965function NSView.needsDisplay: LongBool; 966begin 967 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsDisplay)), [])); 968end; 969 970procedure NSView.lockFocus; 971begin 972 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_lockFocus)), []); 973end; 974 975procedure NSView.unlockFocus; 976begin 977 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_unlockFocus)), []); 978end; 979 980function NSView.lockFocusIfCanDraw: LongBool; 981begin 982 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_lockFocusIfCanDraw)), [])); 983end; 984 985{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 986function NSView.lockFocusIfCanDrawInContext(_context: lobjc.id {NSGraphicsContext}): LongBool; 987type 988 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_context: lobjc.id {NSGraphicsContext}): LongBool; cdecl; 989var 990 vmethod: TmsgSendWrapper; 991begin 992 vmethod := TmsgSendWrapper(@objc_msgSend); 993 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_lockFocusIfCanDrawInContext)), _context)); 994end; 995 996{.$endif} 997constructor NSView.focusView; 998type 999 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL): lobjc.id; cdecl; 1000var 1001 vmethod: TmsgSendWrapper; 1002begin 1003 ClassID := getClass(); 1004 vmethod := TmsgSendWrapper(@objc_msgSend); 1005 Handle := vmethod(ClassID, sel_registerName(PChar(StrNSView_focusView))); 1006end; 1007 1008function NSView.visibleRect: NSRect; 1009begin 1010 objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSView_visibleRect)), []); 1011end; 1012 1013procedure NSView.display; 1014begin 1015 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_display)), []); 1016end; 1017 1018procedure NSView.displayIfNeeded; 1019begin 1020 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_displayIfNeeded)), []); 1021end; 1022 1023procedure NSView.displayIfNeededIgnoringOpacity; 1024begin 1025 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_displayIfNeededIgnoringOpacity)), []); 1026end; 1027 1028procedure NSView.displayRect(_rect: NSRect); 1029type 1030 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rect: NSRect); cdecl; 1031var 1032 vmethod: TmsgSendWrapper; 1033begin 1034 vmethod := TmsgSendWrapper(@objc_msgSend); 1035 vmethod(Handle, sel_registerName(PChar(StrNSView_displayRect)), _rect); 1036end; 1037 1038procedure NSView.displayIfNeededInRect(_rect: NSRect); 1039type 1040 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rect: NSRect); cdecl; 1041var 1042 vmethod: TmsgSendWrapper; 1043begin 1044 vmethod := TmsgSendWrapper(@objc_msgSend); 1045 vmethod(Handle, sel_registerName(PChar(StrNSView_displayIfNeededInRect)), _rect); 1046end; 1047 1048procedure NSView.displayRectIgnoringOpacity(_rect: NSRect); 1049type 1050 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rect: NSRect); cdecl; 1051var 1052 vmethod: TmsgSendWrapper; 1053begin 1054 vmethod := TmsgSendWrapper(@objc_msgSend); 1055 vmethod(Handle, sel_registerName(PChar(StrNSView_displayRectIgnoringOpacity)), _rect); 1056end; 1057 1058procedure NSView.displayIfNeededInRectIgnoringOpacity(_rect: NSRect); 1059type 1060 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rect: NSRect); cdecl; 1061var 1062 vmethod: TmsgSendWrapper; 1063begin 1064 vmethod := TmsgSendWrapper(@objc_msgSend); 1065 vmethod(Handle, sel_registerName(PChar(StrNSView_displayIfNeededInRectIgnoringOpacity)), _rect); 1066end; 1067 1068procedure NSView.drawRect(_rect: NSRect); 1069type 1070 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rect: NSRect); cdecl; 1071var 1072 vmethod: TmsgSendWrapper; 1073begin 1074 vmethod := TmsgSendWrapper(@objc_msgSend); 1075 vmethod(Handle, sel_registerName(PChar(StrNSView_drawRect)), _rect); 1076end; 1077 1078{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 1079procedure NSView.displayRectIgnoringOpacity_inContext(_aRect: NSRect; _context: lobjc.id {NSGraphicsContext}); 1080type 1081 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aRect: NSRect; _context: lobjc.id {NSGraphicsContext}); cdecl; 1082var 1083 vmethod: TmsgSendWrapper; 1084begin 1085 vmethod := TmsgSendWrapper(@objc_msgSend); 1086 vmethod(Handle, sel_registerName(PChar(StrNSView_displayRectIgnoringOpacity_inContext)), _aRect, _context); 1087end; 1088 1089function NSView.bitmapImageRepForCachingDisplayInRect(_rect: NSRect): lobjc.id; 1090type 1091 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_rect: NSRect): lobjc.id; cdecl; 1092var 1093 vmethod: TmsgSendWrapper; 1094begin 1095 vmethod := TmsgSendWrapper(@objc_msgSend); 1096 Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSView_bitmapImageRepForCachingDisplayInRect)), _rect)); 1097end; 1098 1099procedure NSView.cacheDisplayInRect_toBitmapImageRep(_rect: NSRect; _bitmapImageRep: lobjc.id {NSBitmapImageRep}); 1100type 1101 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rect: NSRect; _bitmapImageRep: lobjc.id {NSBitmapImageRep}); cdecl; 1102var 1103 vmethod: TmsgSendWrapper; 1104begin 1105 vmethod := TmsgSendWrapper(@objc_msgSend); 1106 vmethod(Handle, sel_registerName(PChar(StrNSView_cacheDisplayInRect_toBitmapImageRep)), _rect, _bitmapImageRep); 1107end; 1108 1109{.$endif} 1110function NSView.gState: Integer; 1111begin 1112 Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_gState)), [])); 1113end; 1114 1115procedure NSView.allocateGState; 1116begin 1117 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_allocateGState)), []); 1118end; 1119 1120procedure NSView.releaseGState; 1121begin 1122 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_releaseGState)), []); 1123end; 1124 1125procedure NSView.setUpGState; 1126begin 1127 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_setUpGState)), []); 1128end; 1129 1130procedure NSView.renewGState; 1131begin 1132 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_renewGState)), []); 1133end; 1134 1135procedure NSView.scrollPoint(_aPoint: NSPoint); 1136type 1137 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aPoint: NSPoint); cdecl; 1138var 1139 vmethod: TmsgSendWrapper; 1140begin 1141 vmethod := TmsgSendWrapper(@objc_msgSend); 1142 vmethod(Handle, sel_registerName(PChar(StrNSView_scrollPoint)), _aPoint); 1143end; 1144 1145function NSView.scrollRectToVisible(_aRect: NSRect): LongBool; 1146type 1147 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aRect: NSRect): LongBool; cdecl; 1148var 1149 vmethod: TmsgSendWrapper; 1150begin 1151 vmethod := TmsgSendWrapper(@objc_msgSend); 1152 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_scrollRectToVisible)), _aRect)); 1153end; 1154 1155function NSView.autoscroll(_theEvent: lobjc.id {NSEvent}): LongBool; 1156type 1157 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_theEvent: lobjc.id {NSEvent}): LongBool; cdecl; 1158var 1159 vmethod: TmsgSendWrapper; 1160begin 1161 vmethod := TmsgSendWrapper(@objc_msgSend); 1162 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_autoscroll)), _theEvent)); 1163end; 1164 1165function NSView.adjustScroll(_newVisible: NSRect): NSRect; 1166type 1167 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_newVisible: NSRect); cdecl; 1168var 1169 vmethod: TmsgSendWrapper; 1170begin 1171 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 1172 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_adjustScroll)), _newVisible); 1173end; 1174 1175procedure NSView.scrollRect_by(_aRect: NSRect; _delta: NSSize); 1176type 1177 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aRect: NSRect; _delta: NSSize); cdecl; 1178var 1179 vmethod: TmsgSendWrapper; 1180begin 1181 vmethod := TmsgSendWrapper(@objc_msgSend); 1182 vmethod(Handle, sel_registerName(PChar(StrNSView_scrollRect_by)), _aRect, _delta); 1183end; 1184 1185function NSView.hitTest(_aPoint: NSPoint): lobjc.id; 1186type 1187 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aPoint: NSPoint): lobjc.id; cdecl; 1188var 1189 vmethod: TmsgSendWrapper; 1190begin 1191 vmethod := TmsgSendWrapper(@objc_msgSend); 1192 Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSView_hitTest)), _aPoint)); 1193end; 1194 1195function NSView.mouse_inRect(_aPoint: NSPoint; _aRect: NSRect): LongBool; 1196type 1197 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aPoint: NSPoint; _aRect: NSRect): LongBool; cdecl; 1198var 1199 vmethod: TmsgSendWrapper; 1200begin 1201 vmethod := TmsgSendWrapper(@objc_msgSend); 1202 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_mouse_inRect)), _aPoint, _aRect)); 1203end; 1204 1205function NSView.viewWithTag(_aTag: Integer): lobjc.id; 1206type 1207 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aTag: Integer): lobjc.id; cdecl; 1208var 1209 vmethod: TmsgSendWrapper; 1210begin 1211 vmethod := TmsgSendWrapper(@objc_msgSend); 1212 Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSView_viewWithTag)), _aTag)); 1213end; 1214 1215function NSView.tag: Integer; 1216begin 1217 Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_tag)), [])); 1218end; 1219 1220function NSView.performKeyEquivalent(_theEvent: lobjc.id {NSEvent}): LongBool; 1221type 1222 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_theEvent: lobjc.id {NSEvent}): LongBool; cdecl; 1223var 1224 vmethod: TmsgSendWrapper; 1225begin 1226 vmethod := TmsgSendWrapper(@objc_msgSend); 1227 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_performKeyEquivalent)), _theEvent)); 1228end; 1229 1230function NSView.acceptsFirstMouse(_theEvent: lobjc.id {NSEvent}): LongBool; 1231type 1232 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_theEvent: lobjc.id {NSEvent}): LongBool; cdecl; 1233var 1234 vmethod: TmsgSendWrapper; 1235begin 1236 vmethod := TmsgSendWrapper(@objc_msgSend); 1237 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_acceptsFirstMouse)), _theEvent)); 1238end; 1239 1240function NSView.shouldDelayWindowOrderingForEvent(_theEvent: lobjc.id {NSEvent}): LongBool; 1241type 1242 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_theEvent: lobjc.id {NSEvent}): LongBool; cdecl; 1243var 1244 vmethod: TmsgSendWrapper; 1245begin 1246 vmethod := TmsgSendWrapper(@objc_msgSend); 1247 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_shouldDelayWindowOrderingForEvent)), _theEvent)); 1248end; 1249 1250function NSView.needsPanelToBecomeKey: LongBool; 1251begin 1252 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsPanelToBecomeKey)), [])); 1253end; 1254 1255{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2} 1256function NSView.mouseDownCanMoveWindow: LongBool; 1257begin 1258 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_mouseDownCanMoveWindow)), [])); 1259end; 1260 1261{.$endif} 1262procedure NSView.addCursorRect_cursor(_aRect: NSRect; _anObj: lobjc.id {NSCursor}); 1263type 1264 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aRect: NSRect; _anObj: lobjc.id {NSCursor}); cdecl; 1265var 1266 vmethod: TmsgSendWrapper; 1267begin 1268 vmethod := TmsgSendWrapper(@objc_msgSend); 1269 vmethod(Handle, sel_registerName(PChar(StrNSView_addCursorRect_cursor)), _aRect, _anObj); 1270end; 1271 1272procedure NSView.removeCursorRect_cursor(_aRect: NSRect; _anObj: lobjc.id {NSCursor}); 1273type 1274 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aRect: NSRect; _anObj: lobjc.id {NSCursor}); cdecl; 1275var 1276 vmethod: TmsgSendWrapper; 1277begin 1278 vmethod := TmsgSendWrapper(@objc_msgSend); 1279 vmethod(Handle, sel_registerName(PChar(StrNSView_removeCursorRect_cursor)), _aRect, _anObj); 1280end; 1281 1282procedure NSView.discardCursorRects; 1283begin 1284 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_discardCursorRects)), []); 1285end; 1286 1287procedure NSView.resetCursorRects; 1288begin 1289 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_resetCursorRects)), []); 1290end; 1291 1292function NSView.addTrackingRect_owner_userData_assumeInside(_aRect: NSRect; _anObject: lobjc.id; _data: Pointer; _flag: LongBool): NSTrackingRectTag; 1293type 1294 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aRect: NSRect; _anObject: lobjc.id; _data: Pointer; _flag: LongBool): NSTrackingRectTag; cdecl; 1295var 1296 vmethod: TmsgSendWrapper; 1297begin 1298 vmethod := TmsgSendWrapper(@objc_msgSend); 1299 Result := NSTrackingRectTag(vmethod(Handle, sel_registerName(PChar(StrNSView_addTrackingRect_owner_userData_assumeInside)), _aRect, _anObject, _data, _flag)); 1300end; 1301 1302procedure NSView.removeTrackingRect(_tag: NSTrackingRectTag); 1303type 1304 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_tag: NSTrackingRectTag); cdecl; 1305var 1306 vmethod: TmsgSendWrapper; 1307begin 1308 vmethod := TmsgSendWrapper(@objc_msgSend); 1309 vmethod(Handle, sel_registerName(PChar(StrNSView_removeTrackingRect)), _tag); 1310end; 1311 1312function NSView.shouldDrawColor: LongBool; 1313begin 1314 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_shouldDrawColor)), [])); 1315end; 1316 1317procedure NSView.setPostsBoundsChangedNotifications(_flag: LongBool); 1318type 1319 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl; 1320var 1321 vmethod: TmsgSendWrapper; 1322begin 1323 vmethod := TmsgSendWrapper(@objc_msgSend); 1324 vmethod(Handle, sel_registerName(PChar(StrNSView_setPostsBoundsChangedNotifications)), _flag); 1325end; 1326 1327function NSView.postsBoundsChangedNotifications: LongBool; 1328begin 1329 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsBoundsChangedNotifications)), [])); 1330end; 1331 1332function NSView.enclosingScrollView: lobjc.id; 1333begin 1334 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_enclosingScrollView)), [])); 1335end; 1336 1337function NSView.menuForEvent(_event: lobjc.id {NSEvent}): lobjc.id; 1338type 1339 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_event: lobjc.id {NSEvent}): lobjc.id; cdecl; 1340var 1341 vmethod: TmsgSendWrapper; 1342begin 1343 vmethod := TmsgSendWrapper(@objc_msgSend); 1344 Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSView_menuForEvent)), _event)); 1345end; 1346 1347class function NSView.defaultMenu: lobjc.id; 1348begin 1349 Result := lobjc.id(objc_msgSend(getClass, sel_registerName(PChar(StrNSView_defaultMenu)), [])); 1350end; 1351 1352procedure NSView.setToolTip(__string: CFStringRef); 1353type 1354 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;__string: CFStringRef); cdecl; 1355var 1356 vmethod: TmsgSendWrapper; 1357begin 1358 vmethod := TmsgSendWrapper(@objc_msgSend); 1359 vmethod(Handle, sel_registerName(PChar(StrNSView_setToolTip)), __string); 1360end; 1361 1362function NSView.toolTip: CFStringRef; 1363begin 1364 Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_toolTip)), [])); 1365end; 1366 1367function NSView.addToolTipRect_owner_userData(_aRect: NSRect; _anObject: lobjc.id; _data: Pointer): NSToolTipTag; 1368type 1369 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aRect: NSRect; _anObject: lobjc.id; _data: Pointer): NSToolTipTag; cdecl; 1370var 1371 vmethod: TmsgSendWrapper; 1372begin 1373 vmethod := TmsgSendWrapper(@objc_msgSend); 1374 Result := NSToolTipTag(vmethod(Handle, sel_registerName(PChar(StrNSView_addToolTipRect_owner_userData)), _aRect, _anObject, _data)); 1375end; 1376 1377procedure NSView.removeToolTip(_tag: NSToolTipTag); 1378type 1379 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_tag: NSToolTipTag); cdecl; 1380var 1381 vmethod: TmsgSendWrapper; 1382begin 1383 vmethod := TmsgSendWrapper(@objc_msgSend); 1384 vmethod(Handle, sel_registerName(PChar(StrNSView_removeToolTip)), _tag); 1385end; 1386 1387procedure NSView.removeAllToolTips; 1388begin 1389 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_removeAllToolTips)), []); 1390end; 1391 1392procedure NSView.viewWillStartLiveResize; 1393begin 1394 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_viewWillStartLiveResize)), []); 1395end; 1396 1397procedure NSView.viewDidEndLiveResize; 1398begin 1399 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_viewDidEndLiveResize)), []); 1400end; 1401 1402function NSView.inLiveResize: LongBool; 1403begin 1404 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_inLiveResize)), [])); 1405end; 1406 1407{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 1408function NSView.preservesContentDuringLiveResize: LongBool; 1409begin 1410 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_preservesContentDuringLiveResize)), [])); 1411end; 1412 1413function NSView.rectPreservedDuringLiveResize: NSRect; 1414begin 1415 objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSView_rectPreservedDuringLiveResize)), []); 1416end; 1417 1418procedure NSView.getRectsExposedDuringLiveResize; 1419begin 1420 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_getRectsExposedDuringLiveResize)), []); 1421end; 1422 1423{.$endif} 1424function NSView.performMnemonic(_theString: CFStringRef): LongBool; 1425type 1426 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_theString: CFStringRef): LongBool; cdecl; 1427var 1428 vmethod: TmsgSendWrapper; 1429begin 1430 vmethod := TmsgSendWrapper(@objc_msgSend); 1431 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_performMnemonic)), _theString)); 1432end; 1433 1434procedure NSView.setNextKeyView(_next: lobjc.id {NSView}); 1435type 1436 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_next: lobjc.id {NSView}); cdecl; 1437var 1438 vmethod: TmsgSendWrapper; 1439begin 1440 vmethod := TmsgSendWrapper(@objc_msgSend); 1441 vmethod(Handle, sel_registerName(PChar(StrNSView_setNextKeyView)), _next); 1442end; 1443 1444function NSView.nextKeyView: lobjc.id; 1445begin 1446 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_nextKeyView)), [])); 1447end; 1448 1449function NSView.previousKeyView: lobjc.id; 1450begin 1451 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_previousKeyView)), [])); 1452end; 1453 1454function NSView.nextValidKeyView: lobjc.id; 1455begin 1456 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_nextValidKeyView)), [])); 1457end; 1458 1459function NSView.previousValidKeyView: lobjc.id; 1460begin 1461 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_previousValidKeyView)), [])); 1462end; 1463 1464{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} 1465function NSView.canBecomeKeyView: LongBool; 1466begin 1467 Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canBecomeKeyView)), [])); 1468end; 1469 1470{.$endif} 1471procedure NSView.setKeyboardFocusRingNeedsDisplayInRect(_rect: NSRect); 1472type 1473 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rect: NSRect); cdecl; 1474var 1475 vmethod: TmsgSendWrapper; 1476begin 1477 vmethod := TmsgSendWrapper(@objc_msgSend); 1478 vmethod(Handle, sel_registerName(PChar(StrNSView_setKeyboardFocusRingNeedsDisplayInRect)), _rect); 1479end; 1480 1481{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} 1482procedure NSView.setFocusRingType(_focusRingType: NSFocusRingType); 1483type 1484 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_focusRingType: NSFocusRingType); cdecl; 1485var 1486 vmethod: TmsgSendWrapper; 1487begin 1488 vmethod := TmsgSendWrapper(@objc_msgSend); 1489 vmethod(Handle, sel_registerName(PChar(StrNSView_setFocusRingType)), _focusRingType); 1490end; 1491 1492function NSView.focusRingType: NSFocusRingType; 1493begin 1494 Result := NSFocusRingType(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_focusRingType)), [])); 1495end; 1496 1497class function NSView.defaultFocusRingType: NSFocusRingType; 1498begin 1499 Result := NSFocusRingType(objc_msgSend(getClass, sel_registerName(PChar(StrNSView_defaultFocusRingType)), [])); 1500end; 1501 1502{.$endif} 1503procedure NSView.writeEPSInsideRect_toPasteboard(_rect: NSRect; _pasteboard: lobjc.id {NSPasteboard}); 1504type 1505 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rect: NSRect; _pasteboard: lobjc.id {NSPasteboard}); cdecl; 1506var 1507 vmethod: TmsgSendWrapper; 1508begin 1509 vmethod := TmsgSendWrapper(@objc_msgSend); 1510 vmethod(Handle, sel_registerName(PChar(StrNSView_writeEPSInsideRect_toPasteboard)), _rect, _pasteboard); 1511end; 1512 1513function NSView.dataWithEPSInsideRect(_rect: NSRect): CFDataRef; 1514type 1515 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_rect: NSRect): CFDataRef; cdecl; 1516var 1517 vmethod: TmsgSendWrapper; 1518begin 1519 vmethod := TmsgSendWrapper(@objc_msgSend); 1520 Result := CFDataRef(vmethod(Handle, sel_registerName(PChar(StrNSView_dataWithEPSInsideRect)), _rect)); 1521end; 1522 1523procedure NSView.writePDFInsideRect_toPasteboard(_rect: NSRect; _pasteboard: lobjc.id {NSPasteboard}); 1524type 1525 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_rect: NSRect; _pasteboard: lobjc.id {NSPasteboard}); cdecl; 1526var 1527 vmethod: TmsgSendWrapper; 1528begin 1529 vmethod := TmsgSendWrapper(@objc_msgSend); 1530 vmethod(Handle, sel_registerName(PChar(StrNSView_writePDFInsideRect_toPasteboard)), _rect, _pasteboard); 1531end; 1532 1533function NSView.dataWithPDFInsideRect(_rect: NSRect): CFDataRef; 1534type 1535 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_rect: NSRect): CFDataRef; cdecl; 1536var 1537 vmethod: TmsgSendWrapper; 1538begin 1539 vmethod := TmsgSendWrapper(@objc_msgSend); 1540 Result := CFDataRef(vmethod(Handle, sel_registerName(PChar(StrNSView_dataWithPDFInsideRect)), _rect)); 1541end; 1542 1543procedure NSView.print(_sender: lobjc.id); 1544type 1545 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl; 1546var 1547 vmethod: TmsgSendWrapper; 1548begin 1549 vmethod := TmsgSendWrapper(@objc_msgSend); 1550 vmethod(Handle, sel_registerName(PChar(StrNSView_print)), _sender); 1551end; 1552 1553function NSView.knowsPageRange(_range: NSRangePointer): LongBool; 1554type 1555 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_range: NSRangePointer): LongBool; cdecl; 1556var 1557 vmethod: TmsgSendWrapper; 1558begin 1559 vmethod := TmsgSendWrapper(@objc_msgSend); 1560 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_knowsPageRange)), _range)); 1561end; 1562 1563function NSView.heightAdjustLimit: Single; 1564begin 1565 Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_heightAdjustLimit)), [])); 1566end; 1567 1568function NSView.widthAdjustLimit: Single; 1569begin 1570 Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_widthAdjustLimit)), [])); 1571end; 1572 1573procedure NSView.adjustPageWidthNew_left_right_limit(_newRight: Single; _oldLeft: Single; _oldRight: Single; _rightLimit: Single); 1574type 1575 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newRight: Single; _oldLeft: Single; _oldRight: Single; _rightLimit: Single); cdecl; 1576var 1577 vmethod: TmsgSendWrapper; 1578begin 1579 vmethod := TmsgSendWrapper(@objc_msgSend); 1580 vmethod(Handle, sel_registerName(PChar(StrNSView_adjustPageWidthNew_left_right_limit)), _newRight, _oldLeft, _oldRight, _rightLimit); 1581end; 1582 1583procedure NSView.adjustPageHeightNew_top_bottom_limit(_newBottom: Single; _oldTop: Single; _oldBottom: Single; _bottomLimit: Single); 1584type 1585 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newBottom: Single; _oldTop: Single; _oldBottom: Single; _bottomLimit: Single); cdecl; 1586var 1587 vmethod: TmsgSendWrapper; 1588begin 1589 vmethod := TmsgSendWrapper(@objc_msgSend); 1590 vmethod(Handle, sel_registerName(PChar(StrNSView_adjustPageHeightNew_top_bottom_limit)), _newBottom, _oldTop, _oldBottom, _bottomLimit); 1591end; 1592 1593function NSView.rectForPage(_page: Integer): NSRect; 1594type 1595 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_page: Integer); cdecl; 1596var 1597 vmethod: TmsgSendWrapper; 1598begin 1599 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 1600 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_rectForPage)), _page); 1601end; 1602 1603function NSView.locationOfPrintRect(_aRect: NSRect): NSPoint; 1604type 1605 TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aRect: NSRect); cdecl; 1606var 1607 vmethod: TmsgSendWrapper; 1608begin 1609 vmethod := TmsgSendWrapper(@objc_msgSend_fpret); 1610 vmethod(@Result, Handle, sel_registerName(PChar(StrNSView_locationOfPrintRect)), _aRect); 1611end; 1612 1613procedure NSView.drawPageBorderWithSize(_borderSize: NSSize); 1614type 1615 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_borderSize: NSSize); cdecl; 1616var 1617 vmethod: TmsgSendWrapper; 1618begin 1619 vmethod := TmsgSendWrapper(@objc_msgSend); 1620 vmethod(Handle, sel_registerName(PChar(StrNSView_drawPageBorderWithSize)), _borderSize); 1621end; 1622 1623{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 1624function NSView.pageHeader: lobjc.id; 1625begin 1626 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_pageHeader)), [])); 1627end; 1628 1629function NSView.pageFooter: lobjc.id; 1630begin 1631 Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_pageFooter)), [])); 1632end; 1633 1634{.$endif} 1635procedure NSView.drawSheetBorderWithSize(_borderSize: NSSize); 1636type 1637 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_borderSize: NSSize); cdecl; 1638var 1639 vmethod: TmsgSendWrapper; 1640begin 1641 vmethod := TmsgSendWrapper(@objc_msgSend); 1642 vmethod(Handle, sel_registerName(PChar(StrNSView_drawSheetBorderWithSize)), _borderSize); 1643end; 1644 1645function NSView.printJobTitle: CFStringRef; 1646begin 1647 Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_printJobTitle)), [])); 1648end; 1649 1650procedure NSView.beginDocument; 1651begin 1652 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_beginDocument)), []); 1653end; 1654 1655procedure NSView.endDocument; 1656begin 1657 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_endDocument)), []); 1658end; 1659 1660procedure NSView.beginPageInRect_atPlacement(_aRect: NSRect; _location: NSPoint); 1661type 1662 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aRect: NSRect; _location: NSPoint); cdecl; 1663var 1664 vmethod: TmsgSendWrapper; 1665begin 1666 vmethod := TmsgSendWrapper(@objc_msgSend); 1667 vmethod(Handle, sel_registerName(PChar(StrNSView_beginPageInRect_atPlacement)), _aRect, _location); 1668end; 1669 1670procedure NSView.endPage; 1671begin 1672 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_endPage)), []); 1673end; 1674 1675procedure NSView.dragImage_at_offset_event_pasteboard_source_slideBack(_anImage: lobjc.id {NSImage}; _viewLocation: NSPoint; _initialOffset: NSSize; _event: lobjc.id {NSEvent}; _pboard: lobjc.id {NSPasteboard}; _sourceObj: lobjc.id; _slideFlag: LongBool); 1676type 1677 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_anImage: lobjc.id {NSImage}; _viewLocation: NSPoint; _initialOffset: NSSize; _event: lobjc.id {NSEvent}; _pboard: lobjc.id {NSPasteboard}; _sourceObj: lobjc.id; _slideFlag: LongBool); cdecl; 1678var 1679 vmethod: TmsgSendWrapper; 1680begin 1681 vmethod := TmsgSendWrapper(@objc_msgSend); 1682 vmethod(Handle, sel_registerName(PChar(StrNSView_dragImage_at_offset_event_pasteboard_source_slideBack)), _anImage, _viewLocation, _initialOffset, _event, _pboard, _sourceObj, _slideFlag); 1683end; 1684 1685{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} 1686function NSView.registeredDraggedTypes: CFArrayRef; 1687begin 1688 Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_registeredDraggedTypes)), [])); 1689end; 1690 1691{.$endif} 1692procedure NSView.registerForDraggedTypes(_newTypes: CFArrayRef); 1693type 1694 TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newTypes: CFArrayRef); cdecl; 1695var 1696 vmethod: TmsgSendWrapper; 1697begin 1698 vmethod := TmsgSendWrapper(@objc_msgSend); 1699 vmethod(Handle, sel_registerName(PChar(StrNSView_registerForDraggedTypes)), _newTypes); 1700end; 1701 1702procedure NSView.unregisterDraggedTypes; 1703begin 1704 objc_msgSend(Handle, sel_registerName(PChar(StrNSView_unregisterDraggedTypes)), []); 1705end; 1706 1707function NSView.dragFile_fromRect_slideBack_event(_filename: CFStringRef; _rect: NSRect; _aFlag: LongBool; _event: lobjc.id {NSEvent}): LongBool; 1708type 1709 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_filename: CFStringRef; _rect: NSRect; _aFlag: LongBool; _event: lobjc.id {NSEvent}): LongBool; cdecl; 1710var 1711 vmethod: TmsgSendWrapper; 1712begin 1713 vmethod := TmsgSendWrapper(@objc_msgSend); 1714 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_dragFile_fromRect_slideBack_event)), _filename, _rect, _aFlag, _event)); 1715end; 1716 1717{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2} 1718function NSView.dragPromisedFilesOfTypes_fromRect_source_slideBack_event(_typeArray: CFArrayRef; _rect: NSRect; _sourceObject: lobjc.id; _aFlag: LongBool; _event: lobjc.id {NSEvent}): LongBool; 1719type 1720 TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_typeArray: CFArrayRef; _rect: NSRect; _sourceObject: lobjc.id; _aFlag: LongBool; _event: lobjc.id {NSEvent}): LongBool; cdecl; 1721var 1722 vmethod: TmsgSendWrapper; 1723begin 1724 vmethod := TmsgSendWrapper(@objc_msgSend); 1725 Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSView_dragPromisedFilesOfTypes_fromRect_source_slideBack_event)), _typeArray, _rect, _sourceObject, _aFlag, _event)); 1726end; 1727 1728{.$endif} 1729{$endif} 1730