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