1{%mainunit appkit.pas}
2(*
3	NSWindow.h
4	Application Kit
5	Copyright (c) 1994-2005, Apple Computer, Inc.
6	All rights reserved.
7*)
8
9{$ifdef HEADER}
10{$ifndef NSWINDOW_PAS_H}
11{$define NSWINDOW_PAS_H}
12
13{$include NSResponder.inc}
14{$include NSGraphics.inc}
15{$include AppKitDefines.inc}
16  {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
17  {.$endif}
18  {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
19  {.$endif}
20  {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
21  {.$endif}
22  {.$else}
23  {.$endif}
24const
25  NSAppKitVersionNumberWithCustomSheetPosition = 686.0;
26  NSNormalWindowLevel = kCGNormalWindowLevelKey;
27  NSFloatingWindowLevel = kCGFloatingWindowLevelKey;
28  NSSubmenuWindowLevel = kCGTornOffMenuWindowLevelKey;
29  NSTornOffMenuWindowLevel = kCGTornOffMenuWindowLevelKey;
30  NSMainMenuWindowLevel = kCGMainMenuWindowLevelKey;
31  NSStatusWindowLevel = kCGStatusWindowLevelKey;
32  NSDockWindowLevel = kCGDockWindowLevelKey;
33  NSModalPanelWindowLevel = kCGModalPanelWindowLevelKey;
34  NSPopUpMenuWindowLevel = kCGPopUpMenuWindowLevelKey;
35  NSScreenSaverWindowLevel = kCGScreenSaverWindowLevelKey;
36  {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
37  {.$endif}
38  {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
39  {.$endif}
40  {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
41  {.$endif}
42  {.$else}
43  {.$endif}
44
45const
46  NSBorderlessWindowMask = 0;
47  NSTitledWindowMask = 1 shl 0;
48  NSClosableWindowMask = 1 shl 1;
49  NSMiniaturizableWindowMask = 1 shl 2;
50  NSResizableWindowMask = 1 shl 3;
51
52  //  Specifies a window with textured background (eg. metal)
53const
54  NSTexturedBackgroundWindowMask = 1 shl 8;
55
56  //  Specifies a window that ignores the userSpaceScaleFactor of the NSScreen on which
57  // it is created.  Currently restricted to borderless windows (NSBorderlessWindowMask)
58const
59  NSUnscaledWindowMask = 1 shl 11;
60
61  //  Specifies a window whose titlebar and toolbar have a unified look - that is, a continuous
62  // background
63const
64  NSUnifiedTitleAndToolbarWindowMask = 1 shl 12;
65
66  //  used with NSRunLoop's performSelector:target:argument:order:modes:
67const
68  NSDisplayWindowRunLoopOrdering = 600000;
69  NSResetCursorRectsRunLoopOrdering = 700000;
70
71type
72  NSSelectionDirection = (
73    NSDirectSelection = 0,
74    NSSelectingNext,
75    NSSelectingPrevious
76  );
77
78
79type
80  NSWindowButton = (
81    NSWindowCloseButton,
82    NSWindowMiniaturizeButton,
83    NSWindowZoomButton,
84    NSWindowToolbarButton,
85    NSWindowDocumentIconButton
86  );
87
88
89//APPKIT_EXTERN NSString *NSWindowDidBecomeKeyNotification;
90//APPKIT_EXTERN NSString *NSWindowDidBecomeMainNotification;
91//APPKIT_EXTERN NSString *NSWindowDidChangeScreenNotification;
92//APPKIT_EXTERN NSString *NSWindowDidDeminiaturizeNotification;
93//APPKIT_EXTERN NSString *NSWindowDidExposeNotification;			// userInfo key:  @"NSExposedRect"
94//APPKIT_EXTERN NSString *NSWindowDidMiniaturizeNotification;
95//APPKIT_EXTERN NSString *NSWindowDidMoveNotification;
96//APPKIT_EXTERN NSString *NSWindowDidResignKeyNotification;
97//APPKIT_EXTERN NSString *NSWindowDidResignMainNotification;
98//APPKIT_EXTERN NSString *NSWindowDidResizeNotification;
99//APPKIT_EXTERN NSString *NSWindowDidUpdateNotification;
100//APPKIT_EXTERN NSString *NSWindowWillCloseNotification;
101//APPKIT_EXTERN NSString *NSWindowWillMiniaturizeNotification;
102//APPKIT_EXTERN NSString *NSWindowWillMoveNotification;
103//APPKIT_EXTERN NSString *NSWindowWillBeginSheetNotification;
104//APPKIT_EXTERN NSString *NSWindowDidEndSheetNotification;
105//APPKIT_EXTERN NSString *NSWindowDidChangeScreenProfileNotification  AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER;
106{$endif}
107{$endif}
108
109{$ifdef FORWARD}
110  NSWindow = class;
111
112{$endif}
113
114{$ifdef CLASSES}
115{$ifndef NSWINDOW_PAS_C}
116{$define NSWINDOW_PAS_C}
117
118{$include NSResponder.inc}
119{$include NSGraphics.inc}
120{$include AppKitDefines.inc}
121    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
122    {.$endif}
123    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
124    {.$endif}
125    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
126    {.$endif}
127
128  { NSWindow }
129
130  NSWindow = class(NSResponder)
131  public
132    class function getClass: lobjc.id; override;
133    // All instance variables are private
134    class function frameRectForContentRect_styleMask(_cRect: NSRect; _aStyle: LongWord): NSRect;
135    class function contentRectForFrameRect_styleMask(_fRect: NSRect; _aStyle: LongWord): NSRect;
136    class function minFrameWidthWithTitle_styleMask(_aTitle: CFStringRef; _aStyle: LongWord): Single;
137    class function defaultDepthLimit: NSWindowDepth;
138    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
139    function frameRectForContentRect(_contentRect: NSRect): NSRect;
140    function contentRectForFrameRect(_frameRect: NSRect): NSRect;
141    {.$endif}
142    constructor initWithContentRect_styleMask_backing_defer(_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool);
143    constructor initWithContentRect_styleMask_backing_defer_screen(_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool; _screen: lobjc.id {NSScreen});
144    function title: CFStringRef;
145    procedure setTitle(_aString: CFStringRef);
146    function representedFilename: CFStringRef;
147    procedure setRepresentedFilename(_aString: CFStringRef);
148    procedure setTitleWithRepresentedFilename(_filename: CFStringRef);
149    procedure setExcludedFromWindowsMenu(_flag: LongBool);
150    function isExcludedFromWindowsMenu: LongBool;
151    procedure setContentView(_aView: lobjc.id {NSView});
152    function contentView: lobjc.id;
153    procedure setDelegate(_anObject: lobjc.id);
154    function delegate: lobjc.id;
155    function windowNumber: Integer;
156    function styleMask: LongWord;
157    function fieldEditor_forObject(_createFlag: LongBool; _anObject: lobjc.id): lobjc.id;{NSText}
158    procedure endEditingFor(_anObject: lobjc.id);
159    function constrainFrameRect_toScreen(_frameRect: NSRect; _screen: lobjc.id {NSScreen}): NSRect;
160    procedure setFrame_display(_frameRect: NSRect; _flag: LongBool);
161    procedure setContentSize(_aSize: NSSize);
162    procedure setFrameOrigin(_aPoint: NSPoint);
163    procedure setFrameTopLeftPoint(_aPoint: NSPoint);
164    function cascadeTopLeftFromPoint(_topLeftPoint: NSPoint): NSPoint;
165    function frame: NSRect;
166    //  smooth resize
167    //  subclasses can override animationResizeTime: to control the total time for the frame
168    // change.
169    //  newFrame is the rect passed into setFrame:display:animate:
170    function animationResizeTime(_newFrame: NSRect): NSTimeInterval;
171    //  setFrame:display:animate: is equivalent to setFrame:display: if animateFlag is NO
172    //  If animationFlag is YES, this method will perform a smooth resize of the window,
173    // where the total time for the resize is specified by -animationResizeTime:
174    procedure setFrame_display_animate(_frameRect: NSRect; _displayFlag: LongBool; _animateFlag: LongBool);
175    //  show/hide resize corner (does not affect whether window is resizable)
176    procedure setShowsResizeIndicator(_show: LongBool);
177    function showsResizeIndicator: LongBool;
178    procedure setResizeIncrements(_increments: NSSize);
179    function resizeIncrements: NSSize;
180    procedure setAspectRatio(_ratio: NSSize);
181    function aspectRatio: NSSize;
182    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
183    procedure setContentResizeIncrements(_increments: NSSize);
184    function contentResizeIncrements: NSSize;
185    procedure setContentAspectRatio(_ratio: NSSize);
186    function contentAspectRatio: NSSize;
187    {.$endif}
188    procedure useOptimizedDrawing(_flag: LongBool);
189    procedure disableFlushWindow;
190    procedure enableFlushWindow;
191    function isFlushWindowDisabled: LongBool;
192    procedure flushWindow;
193    procedure flushWindowIfNeeded;
194    procedure setViewsNeedDisplay(_flag: LongBool);
195    function viewsNeedDisplay: LongBool;
196    procedure displayIfNeeded;
197    procedure display;
198    procedure setAutodisplay(_flag: LongBool);
199    function isAutodisplay: LongBool;
200    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
201    function preservesContentDuringLiveResize: LongBool;
202    procedure setPreservesContentDuringLiveResize(_flag: LongBool);
203    {.$endif}
204    procedure update;
205    function makeFirstResponder(_aResponder: lobjc.id {NSResponder}): LongBool;
206    function firstResponder: lobjc.id;{NSResponder}
207    function resizeFlags: Integer;
208    procedure keyDown(_theEvent: lobjc.id {NSEvent});
209    procedure close;
210    procedure setReleasedWhenClosed(_flag: LongBool);
211    function isReleasedWhenClosed: LongBool;
212    procedure miniaturize(_sender: lobjc.id);
213    procedure deminiaturize(_sender: lobjc.id);
214    function isZoomed: LongBool;
215    procedure zoom(_sender: lobjc.id);
216    function isMiniaturized: LongBool;
217    function tryToPerform_with(_anAction: SEL; _anObject: lobjc.id): LongBool;
218    function validRequestorForSendType_returnType(_sendType: CFStringRef; _returnType: CFStringRef): lobjc.id;
219    procedure setBackgroundColor(_color: lobjc.id {NSColor});
220    function backgroundColor: lobjc.id;{NSColor}
221    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
222    procedure setMovableByWindowBackground(_flag: LongBool);
223    function isMovableByWindowBackground: LongBool;
224    {.$endif}
225    procedure setHidesOnDeactivate(_flag: LongBool);
226    function hidesOnDeactivate: LongBool;
227    //  indicate whether a window can be hidden during -[NSApplication hide:].  Default
228    // is YES
229    procedure setCanHide(_flag: LongBool);
230    function canHide: LongBool;
231    procedure center;
232    procedure makeKeyAndOrderFront(_sender: lobjc.id);
233    procedure orderFront(_sender: lobjc.id);
234    procedure orderBack(_sender: lobjc.id);
235    procedure orderOut(_sender: lobjc.id);
236    procedure orderWindow_relativeTo(_place: NSWindowOrderingMode; _otherWin: Integer);
237    procedure orderFrontRegardless;
238    procedure setMiniwindowImage(_image: lobjc.id {NSImage});
239    procedure setMiniwindowTitle(_title: CFStringRef);
240    function miniwindowImage: lobjc.id;{NSImage}
241    function miniwindowTitle: CFStringRef;
242    procedure setDocumentEdited(_flag: LongBool);
243    function isDocumentEdited: LongBool;
244    function isVisible: LongBool;
245    function isKeyWindow: LongBool;
246    function isMainWindow: LongBool;
247    function canBecomeKeyWindow: LongBool;
248    function canBecomeMainWindow: LongBool;
249    procedure makeKeyWindow;
250    procedure makeMainWindow;
251    procedure becomeKeyWindow;
252    procedure resignKeyWindow;
253    procedure becomeMainWindow;
254    procedure resignMainWindow;
255    function worksWhenModal: LongBool;
256    function convertBaseToScreen(_aPoint: NSPoint): NSPoint;
257    function convertScreenToBase(_aPoint: NSPoint): NSPoint;
258    procedure performClose(_sender: lobjc.id);
259    procedure performMiniaturize(_sender: lobjc.id);
260    procedure performZoom(_sender: lobjc.id);
261    function gState: Integer;
262    procedure setOneShot(_flag: LongBool);
263    function isOneShot: LongBool;
264    function dataWithEPSInsideRect(_rect: NSRect): CFDataRef;
265    function dataWithPDFInsideRect(_rect: NSRect): CFDataRef;
266    procedure print(_sender: lobjc.id);
267    procedure disableCursorRects;
268    procedure enableCursorRects;
269    procedure discardCursorRects;
270    function areCursorRectsEnabled: LongBool;
271    procedure invalidateCursorRectsForView(_aView: lobjc.id {NSView});
272    procedure resetCursorRects;
273    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
274    procedure setAllowsToolTipsWhenApplicationIsInactive(_allowWhenInactive: LongBool);
275    //  Default is NO. Set to YES to allow a window to display tooltips even when the application
276    // is in the background.  Note that, enabling tooltips in an inactive application will
277    // cause the app to do work any time the mouse passes over the window.  This can degrade
278    // system performance.
279    function allowsToolTipsWhenApplicationIsInactive: LongBool;
280    {.$endif}
281    procedure setBackingType(_bufferingType: NSBackingStoreType);
282    function backingType: NSBackingStoreType;
283    procedure setLevel(_newLevel: Integer);
284    function level: Integer;
285    procedure setDepthLimit(_limit: NSWindowDepth);
286    function depthLimit: NSWindowDepth;
287    procedure setDynamicDepthLimit(_flag: LongBool);
288    function hasDynamicDepthLimit: LongBool;
289    function screen: lobjc.id;{NSScreen}
290    function deepestScreen: lobjc.id;{NSScreen}
291    function canStoreColor: LongBool;
292    procedure setHasShadow(_hasShadow: LongBool);
293    function hasShadow: LongBool;
294    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
295    procedure invalidateShadow;
296    {.$endif}
297    procedure setAlphaValue(_windowAlpha: Single);
298    function alphaValue: Single;
299    procedure setOpaque(_isOpaque: LongBool);
300    function isOpaque: LongBool;
301    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
302    function displaysWhenScreenProfileChanges: LongBool;
303    procedure setDisplaysWhenScreenProfileChanges(_flag: LongBool);
304    procedure disableScreenUpdatesUntilFlush;
305    {.$endif}
306    function stringWithSavedFrame: CFStringRef;
307    procedure setFrameFromString(__string: CFStringRef);
308    procedure saveFrameUsingName(_name: CFStringRef);
309    //  Set force=YES to use setFrameUsingName on a non-resizable window
310    function setFrameUsingName_force(_name: CFStringRef; _force: LongBool): LongBool;
311    function setFrameUsingName(_name: CFStringRef): LongBool;
312    function setFrameAutosaveName(_name: CFStringRef): LongBool;
313    function frameAutosaveName: CFStringRef;
314    class procedure removeFrameUsingName(_name: CFStringRef);
315    procedure cacheImageInRect(_aRect: NSRect);
316    procedure restoreCachedImage;
317    procedure discardCachedImage;
318    function minSize: NSSize;
319    function maxSize: NSSize;
320    procedure setMinSize(_size: NSSize);
321    procedure setMaxSize(_size: NSSize);
322    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
323    function contentMinSize: NSSize;
324    function contentMaxSize: NSSize;
325    procedure setContentMinSize(_size: NSSize);
326    procedure setContentMaxSize(_size: NSSize);
327    {.$endif}
328    function nextEventMatchingMask(_mask: LongWord): lobjc.id;{NSEvent}
329    function nextEventMatchingMask_untilDate_inMode_dequeue(_mask: LongWord; _expiration: CFDateRef; _mode: CFStringRef; _deqFlag: LongBool): lobjc.id;{NSEvent}
330    procedure discardEventsMatchingMask_beforeEvent(_mask: LongWord; _lastEvent: lobjc.id {NSEvent});
331    procedure postEvent_atStart(_event: lobjc.id {NSEvent}; _flag: LongBool);
332    function currentEvent: lobjc.id;{NSEvent}
333    procedure setAcceptsMouseMovedEvents(_flag: LongBool);
334    function acceptsMouseMovedEvents: LongBool;
335    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
336    procedure setIgnoresMouseEvents(_flag: LongBool);
337    function ignoresMouseEvents: LongBool;
338    {.$endif}
339    function deviceDescription: CFDictionaryRef;
340    procedure sendEvent(_theEvent: lobjc.id {NSEvent});
341    function mouseLocationOutsideOfEventStream: NSPoint;
342    class procedure menuChanged(_menu: lobjc.id {NSMenu});
343    function windowController: lobjc.id;
344    procedure setWindowController(_windowController: lobjc.id {NSWindowController});
345    function isSheet: LongBool;
346    function attachedSheet: lobjc.id;{NSWindow}
347    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
348    class function standardWindowButton_forStyleMask(_b: NSWindowButton; _styleMask: LongWord): lobjc.id;{NSButton}
349    function standardWindowButton(_b: NSWindowButton): lobjc.id;{NSButton}
350    {.$endif}
351    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
352    procedure addChildWindow_ordered(_childWin: lobjc.id {NSWindow}; _place: NSWindowOrderingMode);
353    procedure removeChildWindow(_childWin: lobjc.id {NSWindow});
354    function childWindows: CFArrayRef;
355    function parentWindow: lobjc.id;{NSWindow}
356    procedure setParentWindow(_window: lobjc.id {NSWindow});
357    {.$endif}
358    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
359    //  Returns NSGraphicsContext used to render the receiver's content on the screen for
360    // the calling thread.
361    function graphicsContext: lobjc.id;{NSGraphicsContext}
362    //  Returns scale factor applied to view coordinate system to get to base coordinate
363    // system of window
364    function userSpaceScaleFactor: Single;
365    {.$endif}
366    procedure setInitialFirstResponder(_view: lobjc.id {NSView});
367    function initialFirstResponder: lobjc.id;{NSView}
368    procedure selectNextKeyView(_sender: lobjc.id);
369    procedure selectPreviousKeyView(_sender: lobjc.id);
370    procedure selectKeyViewFollowingView(_aView: lobjc.id {NSView});
371    procedure selectKeyViewPrecedingView(_aView: lobjc.id {NSView});
372    function keyViewSelectionDirection: NSSelectionDirection;
373    procedure setDefaultButtonCell(_defButt: lobjc.id {NSButtonCell});
374    function defaultButtonCell: lobjc.id;{NSButtonCell}
375    procedure disableKeyEquivalentForDefaultButtonCell;
376    procedure enableKeyEquivalentForDefaultButtonCell;
377    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
378    procedure setAutorecalculatesKeyViewLoop(_flag: LongBool);
379    function autorecalculatesKeyViewLoop: LongBool;
380    procedure recalculateKeyViewLoop;
381    {.$endif}
382    procedure setToolbar(_toolbar: lobjc.id {NSToolbar});
383    function toolbar: lobjc.id;{NSToolbar}
384    procedure toggleToolbarShown(_sender: lobjc.id);
385    procedure runToolbarCustomizationPalette(_sender: lobjc.id);
386    {.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
387    procedure setShowsToolbarButton(_show: LongBool);
388    function showsToolbarButton: LongBool;
389    {.$endif}
390    procedure dragImage_at_offset_event_pasteboard_source_slideBack(_anImage: lobjc.id {NSImage}; _baseLocation: NSPoint; _initialOffset: NSSize; _event: lobjc.id {NSEvent}; _pboard: lobjc.id {NSPasteboard}; _sourceObj: lobjc.id; _slideFlag: LongBool);
391    procedure registerForDraggedTypes(_newTypes: CFArrayRef);
392    procedure unregisterDraggedTypes;
393    function windowHandle: Pointer;
394    //  create an NSWindow for a Carbon window - windowRef must be a Carbon WindowRef -
395    // see MacWindows.h
396    constructor initWithWindowRef(_windowRef: Pointer);
397    //  return the Carbon WindowRef for this window, creating if necessary: - see MacWindows.h
398    function windowRef: Pointer;
399  end;
400
401    {.$else}
402    {.$endif}
403{$endif}
404{$endif}
405
406{$ifdef IMPLEMENTATION}
407const
408  StrNSWindow_NSWindow = 'NSWindow';
409  StrNSWindow_frameRectForContentRect_styleMask = 'frameRectForContentRect:styleMask:';
410  StrNSWindow_contentRectForFrameRect_styleMask = 'contentRectForFrameRect:styleMask:';
411  StrNSWindow_minFrameWidthWithTitle_styleMask = 'minFrameWidthWithTitle:styleMask:';
412  StrNSWindow_defaultDepthLimit = 'defaultDepthLimit';
413  StrNSWindow_frameRectForContentRect = 'frameRectForContentRect:';
414  StrNSWindow_contentRectForFrameRect = 'contentRectForFrameRect:';
415  StrNSWindow_initWithContentRect_styleMask_backing_defer = 'initWithContentRect:styleMask:backing:defer:';
416  StrNSWindow_initWithContentRect_styleMask_backing_defer_screen = 'initWithContentRect:styleMask:backing:defer:screen:';
417  StrNSWindow_title = 'title';
418  StrNSWindow_setTitle = 'setTitle:';
419  StrNSWindow_representedFilename = 'representedFilename';
420  StrNSWindow_setRepresentedFilename = 'setRepresentedFilename:';
421  StrNSWindow_setTitleWithRepresentedFilename = 'setTitleWithRepresentedFilename:';
422  StrNSWindow_setExcludedFromWindowsMenu = 'setExcludedFromWindowsMenu:';
423  StrNSWindow_isExcludedFromWindowsMenu = 'isExcludedFromWindowsMenu';
424  StrNSWindow_setContentView = 'setContentView:';
425  StrNSWindow_contentView = 'contentView';
426  StrNSWindow_setDelegate = 'setDelegate:';
427  StrNSWindow_delegate = 'delegate';
428  StrNSWindow_windowNumber = 'windowNumber';
429  StrNSWindow_styleMask = 'styleMask';
430  StrNSWindow_fieldEditor_forObject = 'fieldEditor:forObject:';
431  StrNSWindow_endEditingFor = 'endEditingFor:';
432  StrNSWindow_constrainFrameRect_toScreen = 'constrainFrameRect:toScreen:';
433  StrNSWindow_setFrame_display = 'setFrame:display:';
434  StrNSWindow_setContentSize = 'setContentSize:';
435  StrNSWindow_setFrameOrigin = 'setFrameOrigin:';
436  StrNSWindow_setFrameTopLeftPoint = 'setFrameTopLeftPoint:';
437  StrNSWindow_cascadeTopLeftFromPoint = 'cascadeTopLeftFromPoint:';
438  StrNSWindow_frame = 'frame';
439  StrNSWindow_animationResizeTime = 'animationResizeTime:';
440  StrNSWindow_setFrame_display_animate = 'setFrame:display:animate:';
441  StrNSWindow_setShowsResizeIndicator = 'setShowsResizeIndicator:';
442  StrNSWindow_showsResizeIndicator = 'showsResizeIndicator';
443  StrNSWindow_setResizeIncrements = 'setResizeIncrements:';
444  StrNSWindow_resizeIncrements = 'resizeIncrements';
445  StrNSWindow_setAspectRatio = 'setAspectRatio:';
446  StrNSWindow_aspectRatio = 'aspectRatio';
447  StrNSWindow_setContentResizeIncrements = 'setContentResizeIncrements:';
448  StrNSWindow_contentResizeIncrements = 'contentResizeIncrements';
449  StrNSWindow_setContentAspectRatio = 'setContentAspectRatio:';
450  StrNSWindow_contentAspectRatio = 'contentAspectRatio';
451  StrNSWindow_useOptimizedDrawing = 'useOptimizedDrawing:';
452  StrNSWindow_disableFlushWindow = 'disableFlushWindow';
453  StrNSWindow_enableFlushWindow = 'enableFlushWindow';
454  StrNSWindow_isFlushWindowDisabled = 'isFlushWindowDisabled';
455  StrNSWindow_flushWindow = 'flushWindow';
456  StrNSWindow_flushWindowIfNeeded = 'flushWindowIfNeeded';
457  StrNSWindow_setViewsNeedDisplay = 'setViewsNeedDisplay:';
458  StrNSWindow_viewsNeedDisplay = 'viewsNeedDisplay';
459  StrNSWindow_displayIfNeeded = 'displayIfNeeded';
460  StrNSWindow_display = 'display';
461  StrNSWindow_setAutodisplay = 'setAutodisplay:';
462  StrNSWindow_isAutodisplay = 'isAutodisplay';
463  StrNSWindow_preservesContentDuringLiveResize = 'preservesContentDuringLiveResize';
464  StrNSWindow_setPreservesContentDuringLiveResize = 'setPreservesContentDuringLiveResize:';
465  StrNSWindow_update = 'update';
466  StrNSWindow_makeFirstResponder = 'makeFirstResponder:';
467  StrNSWindow_firstResponder = 'firstResponder';
468  StrNSWindow_resizeFlags = 'resizeFlags';
469  StrNSWindow_keyDown = 'keyDown:';
470  StrNSWindow_close = 'close';
471  StrNSWindow_setReleasedWhenClosed = 'setReleasedWhenClosed:';
472  StrNSWindow_isReleasedWhenClosed = 'isReleasedWhenClosed';
473  StrNSWindow_miniaturize = 'miniaturize:';
474  StrNSWindow_deminiaturize = 'deminiaturize:';
475  StrNSWindow_isZoomed = 'isZoomed';
476  StrNSWindow_zoom = 'zoom:';
477  StrNSWindow_isMiniaturized = 'isMiniaturized';
478  StrNSWindow_tryToPerform_with = 'tryToPerform:with:';
479  StrNSWindow_validRequestorForSendType_returnType = 'validRequestorForSendType:returnType:';
480  StrNSWindow_setBackgroundColor = 'setBackgroundColor:';
481  StrNSWindow_backgroundColor = 'backgroundColor';
482  StrNSWindow_setMovableByWindowBackground = 'setMovableByWindowBackground:';
483  StrNSWindow_isMovableByWindowBackground = 'isMovableByWindowBackground';
484  StrNSWindow_setHidesOnDeactivate = 'setHidesOnDeactivate:';
485  StrNSWindow_hidesOnDeactivate = 'hidesOnDeactivate';
486  StrNSWindow_setCanHide = 'setCanHide:';
487  StrNSWindow_canHide = 'canHide';
488  StrNSWindow_center = 'center';
489  StrNSWindow_makeKeyAndOrderFront = 'makeKeyAndOrderFront:';
490  StrNSWindow_orderFront = 'orderFront:';
491  StrNSWindow_orderBack = 'orderBack:';
492  StrNSWindow_orderOut = 'orderOut:';
493  StrNSWindow_orderWindow_relativeTo = 'orderWindow:relativeTo:';
494  StrNSWindow_orderFrontRegardless = 'orderFrontRegardless';
495  StrNSWindow_setMiniwindowImage = 'setMiniwindowImage:';
496  StrNSWindow_setMiniwindowTitle = 'setMiniwindowTitle:';
497  StrNSWindow_miniwindowImage = 'miniwindowImage';
498  StrNSWindow_miniwindowTitle = 'miniwindowTitle';
499  StrNSWindow_setDocumentEdited = 'setDocumentEdited:';
500  StrNSWindow_isDocumentEdited = 'isDocumentEdited';
501  StrNSWindow_isVisible = 'isVisible';
502  StrNSWindow_isKeyWindow = 'isKeyWindow';
503  StrNSWindow_isMainWindow = 'isMainWindow';
504  StrNSWindow_canBecomeKeyWindow = 'canBecomeKeyWindow';
505  StrNSWindow_canBecomeMainWindow = 'canBecomeMainWindow';
506  StrNSWindow_makeKeyWindow = 'makeKeyWindow';
507  StrNSWindow_makeMainWindow = 'makeMainWindow';
508  StrNSWindow_becomeKeyWindow = 'becomeKeyWindow';
509  StrNSWindow_resignKeyWindow = 'resignKeyWindow';
510  StrNSWindow_becomeMainWindow = 'becomeMainWindow';
511  StrNSWindow_resignMainWindow = 'resignMainWindow';
512  StrNSWindow_worksWhenModal = 'worksWhenModal';
513  StrNSWindow_convertBaseToScreen = 'convertBaseToScreen:';
514  StrNSWindow_convertScreenToBase = 'convertScreenToBase:';
515  StrNSWindow_performClose = 'performClose:';
516  StrNSWindow_performMiniaturize = 'performMiniaturize:';
517  StrNSWindow_performZoom = 'performZoom:';
518  StrNSWindow_gState = 'gState';
519  StrNSWindow_setOneShot = 'setOneShot:';
520  StrNSWindow_isOneShot = 'isOneShot';
521  StrNSWindow_dataWithEPSInsideRect = 'dataWithEPSInsideRect:';
522  StrNSWindow_dataWithPDFInsideRect = 'dataWithPDFInsideRect:';
523  StrNSWindow_print = 'print:';
524  StrNSWindow_disableCursorRects = 'disableCursorRects';
525  StrNSWindow_enableCursorRects = 'enableCursorRects';
526  StrNSWindow_discardCursorRects = 'discardCursorRects';
527  StrNSWindow_areCursorRectsEnabled = 'areCursorRectsEnabled';
528  StrNSWindow_invalidateCursorRectsForView = 'invalidateCursorRectsForView:';
529  StrNSWindow_resetCursorRects = 'resetCursorRects';
530  StrNSWindow_setAllowsToolTipsWhenApplicationIsInactive = 'setAllowsToolTipsWhenApplicationIsInactive:';
531  StrNSWindow_allowsToolTipsWhenApplicationIsInactive = 'allowsToolTipsWhenApplicationIsInactive';
532  StrNSWindow_setBackingType = 'setBackingType:';
533  StrNSWindow_backingType = 'backingType';
534  StrNSWindow_setLevel = 'setLevel:';
535  StrNSWindow_level = 'level';
536  StrNSWindow_setDepthLimit = 'setDepthLimit:';
537  StrNSWindow_depthLimit = 'depthLimit';
538  StrNSWindow_setDynamicDepthLimit = 'setDynamicDepthLimit:';
539  StrNSWindow_hasDynamicDepthLimit = 'hasDynamicDepthLimit';
540  StrNSWindow_screen = 'screen';
541  StrNSWindow_deepestScreen = 'deepestScreen';
542  StrNSWindow_canStoreColor = 'canStoreColor';
543  StrNSWindow_setHasShadow = 'setHasShadow:';
544  StrNSWindow_hasShadow = 'hasShadow';
545  StrNSWindow_invalidateShadow = 'invalidateShadow';
546  StrNSWindow_setAlphaValue = 'setAlphaValue:';
547  StrNSWindow_alphaValue = 'alphaValue';
548  StrNSWindow_setOpaque = 'setOpaque:';
549  StrNSWindow_isOpaque = 'isOpaque';
550  StrNSWindow_displaysWhenScreenProfileChanges = 'displaysWhenScreenProfileChanges';
551  StrNSWindow_setDisplaysWhenScreenProfileChanges = 'setDisplaysWhenScreenProfileChanges:';
552  StrNSWindow_disableScreenUpdatesUntilFlush = 'disableScreenUpdatesUntilFlush';
553  StrNSWindow_stringWithSavedFrame = 'stringWithSavedFrame';
554  StrNSWindow_setFrameFromString = 'setFrameFromString:';
555  StrNSWindow_saveFrameUsingName = 'saveFrameUsingName:';
556  StrNSWindow_setFrameUsingName_force = 'setFrameUsingName:force:';
557  StrNSWindow_setFrameUsingName = 'setFrameUsingName:';
558  StrNSWindow_setFrameAutosaveName = 'setFrameAutosaveName:';
559  StrNSWindow_frameAutosaveName = 'frameAutosaveName';
560  StrNSWindow_removeFrameUsingName = 'removeFrameUsingName:';
561  StrNSWindow_cacheImageInRect = 'cacheImageInRect:';
562  StrNSWindow_restoreCachedImage = 'restoreCachedImage';
563  StrNSWindow_discardCachedImage = 'discardCachedImage';
564  StrNSWindow_minSize = 'minSize';
565  StrNSWindow_maxSize = 'maxSize';
566  StrNSWindow_setMinSize = 'setMinSize:';
567  StrNSWindow_setMaxSize = 'setMaxSize:';
568  StrNSWindow_contentMinSize = 'contentMinSize';
569  StrNSWindow_contentMaxSize = 'contentMaxSize';
570  StrNSWindow_setContentMinSize = 'setContentMinSize:';
571  StrNSWindow_setContentMaxSize = 'setContentMaxSize:';
572  StrNSWindow_nextEventMatchingMask = 'nextEventMatchingMask:';
573  StrNSWindow_nextEventMatchingMask_untilDate_inMode_dequeue = 'nextEventMatchingMask:untilDate:inMode:dequeue:';
574  StrNSWindow_discardEventsMatchingMask_beforeEvent = 'discardEventsMatchingMask:beforeEvent:';
575  StrNSWindow_postEvent_atStart = 'postEvent:atStart:';
576  StrNSWindow_currentEvent = 'currentEvent';
577  StrNSWindow_setAcceptsMouseMovedEvents = 'setAcceptsMouseMovedEvents:';
578  StrNSWindow_acceptsMouseMovedEvents = 'acceptsMouseMovedEvents';
579  StrNSWindow_setIgnoresMouseEvents = 'setIgnoresMouseEvents:';
580  StrNSWindow_ignoresMouseEvents = 'ignoresMouseEvents';
581  StrNSWindow_deviceDescription = 'deviceDescription';
582  StrNSWindow_sendEvent = 'sendEvent:';
583  StrNSWindow_mouseLocationOutsideOfEventStream = 'mouseLocationOutsideOfEventStream';
584  StrNSWindow_menuChanged = 'menuChanged:';
585  StrNSWindow_windowController = 'windowController';
586  StrNSWindow_setWindowController = 'setWindowController:';
587  StrNSWindow_isSheet = 'isSheet';
588  StrNSWindow_attachedSheet = 'attachedSheet';
589  StrNSWindow_standardWindowButton_forStyleMask = 'standardWindowButton:forStyleMask:';
590  StrNSWindow_standardWindowButton = 'standardWindowButton:';
591  StrNSWindow_addChildWindow_ordered = 'addChildWindow:ordered:';
592  StrNSWindow_removeChildWindow = 'removeChildWindow:';
593  StrNSWindow_childWindows = 'childWindows';
594  StrNSWindow_parentWindow = 'parentWindow';
595  StrNSWindow_setParentWindow = 'setParentWindow:';
596  StrNSWindow_graphicsContext = 'graphicsContext';
597  StrNSWindow_userSpaceScaleFactor = 'userSpaceScaleFactor';
598
599  StrNSWindow_setInitialFirstResponder = 'setInitialFirstResponder:';
600  StrNSWindow_initialFirstResponder = 'initialFirstResponder';
601  StrNSWindow_selectNextKeyView = 'selectNextKeyView:';
602  StrNSWindow_selectPreviousKeyView = 'selectPreviousKeyView:';
603  StrNSWindow_selectKeyViewFollowingView = 'selectKeyViewFollowingView:';
604  StrNSWindow_selectKeyViewPrecedingView = 'selectKeyViewPrecedingView:';
605  StrNSWindow_keyViewSelectionDirection = 'keyViewSelectionDirection';
606  StrNSWindow_setDefaultButtonCell = 'setDefaultButtonCell:';
607  StrNSWindow_defaultButtonCell = 'defaultButtonCell';
608  StrNSWindow_disableKeyEquivalentForDefaultButtonCell = 'disableKeyEquivalentForDefaultButtonCell';
609  StrNSWindow_enableKeyEquivalentForDefaultButtonCell = 'enableKeyEquivalentForDefaultButtonCell';
610  StrNSWindow_setAutorecalculatesKeyViewLoop = 'setAutorecalculatesKeyViewLoop:';
611  StrNSWindow_autorecalculatesKeyViewLoop = 'autorecalculatesKeyViewLoop';
612  StrNSWindow_recalculateKeyViewLoop = 'recalculateKeyViewLoop';
613
614  StrNSWindow_setToolbar = 'setToolbar:';
615  StrNSWindow_toolbar = 'toolbar';
616  StrNSWindow_toggleToolbarShown = 'toggleToolbarShown:';
617  StrNSWindow_runToolbarCustomizationPalette = 'runToolbarCustomizationPalette:';
618  StrNSWindow_setShowsToolbarButton = 'setShowsToolbarButton:';
619  StrNSWindow_showsToolbarButton = 'showsToolbarButton';
620
621  StrNSWindow_dragImage_at_offset_event_pasteboard_source_slideBack = 'dragImage:at:offset:event:pasteboard:source:slideBack:';
622  StrNSWindow_registerForDraggedTypes = 'registerForDraggedTypes:';
623  StrNSWindow_unregisterDraggedTypes = 'unregisterDraggedTypes';
624
625  StrNSWindow_windowHandle = 'windowHandle';
626
627  StrNSWindow_initWithWindowRef = 'initWithWindowRef:';
628  StrNSWindow_windowRef = 'windowRef';
629
630{ NSWindow }
631
632class function NSWindow.getClass: lobjc.id;
633begin
634  Result := objc_getClass(StrNSWindow_NSWindow);
635end;
636
637class function NSWindow.frameRectForContentRect_styleMask(_cRect: NSRect; _aStyle: LongWord): NSRect;
638type
639  TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_cRect: NSRect; _aStyle: LongWord); cdecl;
640var
641  vmethod: TmsgSendWrapper;
642begin
643  vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
644  vmethod(@Result, getClass, sel_registerName(PChar(StrNSWindow_frameRectForContentRect_styleMask)), _cRect, _aStyle);
645end;
646
647class function NSWindow.contentRectForFrameRect_styleMask(_fRect: NSRect; _aStyle: LongWord): NSRect;
648type
649  TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_fRect: NSRect; _aStyle: LongWord); cdecl;
650var
651  vmethod: TmsgSendWrapper;
652begin
653  vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
654  vmethod(@Result, getClass, sel_registerName(PChar(StrNSWindow_contentRectForFrameRect_styleMask)), _fRect, _aStyle);
655end;
656
657class function NSWindow.minFrameWidthWithTitle_styleMask(_aTitle: CFStringRef; _aStyle: LongWord): Single;
658type
659  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aTitle: CFStringRef; _aStyle: LongWord): Single; cdecl;
660var
661  vmethod: TmsgSendWrapper;
662begin
663  vmethod := TmsgSendWrapper(@objc_msgSend);
664  Result := Single(vmethod(getClass, sel_registerName(PChar(StrNSWindow_minFrameWidthWithTitle_styleMask)), _aTitle, _aStyle));
665end;
666
667class function NSWindow.defaultDepthLimit: NSWindowDepth;
668begin
669  Result := {%H-}NSWindowDepth(objc_msgSend(getClass, sel_registerName(PChar(StrNSWindow_defaultDepthLimit)), []));
670end;
671
672{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
673function NSWindow.frameRectForContentRect(_contentRect: NSRect): NSRect;
674type
675  TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_contentRect: NSRect); cdecl;
676var
677  vmethod: TmsgSendWrapper;
678begin
679  vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
680  vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_frameRectForContentRect)), _contentRect);
681end;
682
683function NSWindow.contentRectForFrameRect(_frameRect: NSRect): NSRect;
684type
685  TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_frameRect: NSRect); cdecl;
686var
687  vmethod: TmsgSendWrapper;
688begin
689  vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
690  vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentRectForFrameRect)), _frameRect);
691end;
692
693{.$endif}
694constructor NSWindow.initWithContentRect_styleMask_backing_defer(_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool);
695type
696  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool): lobjc.id; cdecl;
697var
698  vmethod: TmsgSendWrapper;
699begin
700  ClassID := getClass();
701  allocbuf := objc_msgSend(ClassID, sel_registerName(PChar(Str_alloc)), []);
702  vmethod := TmsgSendWrapper(@objc_msgSend);
703  Handle := vmethod(allocbuf, sel_registerName(PChar(StrNSWindow_initWithContentRect_styleMask_backing_defer)), _contentRect, _aStyle, _bufferingType, _flag);
704end;
705
706constructor NSWindow.initWithContentRect_styleMask_backing_defer_screen(_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool; _screen: lobjc.id {NSScreen});
707type
708  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool; _screen: lobjc.id {NSScreen}): lobjc.id; cdecl;
709var
710  vmethod: TmsgSendWrapper;
711begin
712  ClassID := getClass();
713  allocbuf := objc_msgSend(ClassID, sel_registerName(PChar(Str_alloc)), []);
714  vmethod := TmsgSendWrapper(@objc_msgSend);
715  Handle := vmethod(allocbuf, sel_registerName(PChar(StrNSWindow_initWithContentRect_styleMask_backing_defer_screen)), _contentRect, _aStyle, _bufferingType, _flag, _screen);
716end;
717
718function NSWindow.title: CFStringRef;
719begin
720  Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_title)), []));
721end;
722
723procedure NSWindow.setTitle(_aString: CFStringRef);
724type
725  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aString: CFStringRef); cdecl;
726var
727  vmethod: TmsgSendWrapper;
728begin
729  vmethod := TmsgSendWrapper(@objc_msgSend);
730  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setTitle)), _aString);
731end;
732
733function NSWindow.representedFilename: CFStringRef;
734begin
735  Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_representedFilename)), []));
736end;
737
738procedure NSWindow.setRepresentedFilename(_aString: CFStringRef);
739type
740  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aString: CFStringRef); cdecl;
741var
742  vmethod: TmsgSendWrapper;
743begin
744  vmethod := TmsgSendWrapper(@objc_msgSend);
745  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setRepresentedFilename)), _aString);
746end;
747
748procedure NSWindow.setTitleWithRepresentedFilename(_filename: CFStringRef);
749type
750  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_filename: CFStringRef); cdecl;
751var
752  vmethod: TmsgSendWrapper;
753begin
754  vmethod := TmsgSendWrapper(@objc_msgSend);
755  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setTitleWithRepresentedFilename)), _filename);
756end;
757
758procedure NSWindow.setExcludedFromWindowsMenu(_flag: LongBool);
759type
760  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
761var
762  vmethod: TmsgSendWrapper;
763begin
764  vmethod := TmsgSendWrapper(@objc_msgSend);
765  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setExcludedFromWindowsMenu)), _flag);
766end;
767
768function NSWindow.isExcludedFromWindowsMenu: LongBool;
769begin
770  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isExcludedFromWindowsMenu)), []));
771end;
772
773procedure NSWindow.setContentView(_aView: lobjc.id {NSView});
774type
775  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aView: lobjc.id {NSView}); cdecl;
776var
777  vmethod: TmsgSendWrapper;
778begin
779  vmethod := TmsgSendWrapper(@objc_msgSend);
780  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentView)), _aView);
781end;
782
783function NSWindow.contentView: lobjc.id;
784begin
785  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_contentView)), []));
786end;
787
788procedure NSWindow.setDelegate(_anObject: lobjc.id);
789type
790  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_anObject: lobjc.id); cdecl;
791var
792  vmethod: TmsgSendWrapper;
793begin
794  vmethod := TmsgSendWrapper(@objc_msgSend);
795  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDelegate)), _anObject);
796end;
797
798function NSWindow.delegate: lobjc.id;
799begin
800  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_delegate)), []));
801end;
802
803function NSWindow.windowNumber: Integer;
804begin
805  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowNumber)), []));
806end;
807
808function NSWindow.styleMask: LongWord;
809begin
810  Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_styleMask)), []));
811end;
812
813function NSWindow.fieldEditor_forObject(_createFlag: LongBool; _anObject: lobjc.id): lobjc.id;
814type
815  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_createFlag: LongBool; _anObject: lobjc.id): lobjc.id; cdecl;
816var
817  vmethod: TmsgSendWrapper;
818begin
819  vmethod := TmsgSendWrapper(@objc_msgSend);
820  Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_fieldEditor_forObject)), _createFlag, _anObject));
821end;
822
823procedure NSWindow.endEditingFor(_anObject: lobjc.id);
824type
825  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_anObject: lobjc.id); cdecl;
826var
827  vmethod: TmsgSendWrapper;
828begin
829  vmethod := TmsgSendWrapper(@objc_msgSend);
830  vmethod(Handle, sel_registerName(PChar(StrNSWindow_endEditingFor)), _anObject);
831end;
832
833function NSWindow.constrainFrameRect_toScreen(_frameRect: NSRect; _screen: lobjc.id {NSScreen}): NSRect;
834type
835  TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_frameRect: NSRect; _screen: lobjc.id {NSScreen}); cdecl;
836var
837  vmethod: TmsgSendWrapper;
838begin
839  vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
840  vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_constrainFrameRect_toScreen)), _frameRect, _screen);
841end;
842
843procedure NSWindow.setFrame_display(_frameRect: NSRect; _flag: LongBool);
844type
845  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_frameRect: NSRect; _flag: LongBool); cdecl;
846var
847  vmethod: TmsgSendWrapper;
848begin
849  vmethod := TmsgSendWrapper(@objc_msgSend);
850  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrame_display)), _frameRect, _flag);
851end;
852
853procedure NSWindow.setContentSize(_aSize: NSSize);
854type
855  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aSize: NSSize); cdecl;
856var
857  vmethod: TmsgSendWrapper;
858begin
859  vmethod := TmsgSendWrapper(@objc_msgSend);
860  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentSize)), _aSize);
861end;
862
863procedure NSWindow.setFrameOrigin(_aPoint: NSPoint);
864type
865  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aPoint: NSPoint); cdecl;
866var
867  vmethod: TmsgSendWrapper;
868begin
869  vmethod := TmsgSendWrapper(@objc_msgSend);
870  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameOrigin)), _aPoint);
871end;
872
873procedure NSWindow.setFrameTopLeftPoint(_aPoint: NSPoint);
874type
875  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aPoint: NSPoint); cdecl;
876var
877  vmethod: TmsgSendWrapper;
878begin
879  vmethod := TmsgSendWrapper(@objc_msgSend);
880  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameTopLeftPoint)), _aPoint);
881end;
882
883function NSWindow.cascadeTopLeftFromPoint(_topLeftPoint: NSPoint): NSPoint;
884type
885  TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_topLeftPoint: NSPoint); cdecl;
886var
887  vmethod: TmsgSendWrapper;
888begin
889  vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
890  vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_cascadeTopLeftFromPoint)), _topLeftPoint);
891end;
892
893function NSWindow.frame: NSRect;
894begin
895  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_frame)), []);
896end;
897
898function NSWindow.animationResizeTime(_newFrame: NSRect): NSTimeInterval;
899type
900  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_newFrame: NSRect): NSTimeInterval; cdecl;
901var
902  vmethod: TmsgSendWrapper;
903begin
904  vmethod := TmsgSendWrapper(@objc_msgSend_stret);
905  Result := vmethod(Handle, sel_registerName(PChar(StrNSWindow_animationResizeTime)), _newFrame);
906end;
907
908procedure NSWindow.setFrame_display_animate(_frameRect: NSRect; _displayFlag: LongBool; _animateFlag: LongBool);
909type
910  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_frameRect: NSRect; _displayFlag: LongBool; _animateFlag: LongBool); cdecl;
911var
912  vmethod: TmsgSendWrapper;
913begin
914  vmethod := TmsgSendWrapper(@objc_msgSend);
915  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrame_display_animate)), _frameRect, _displayFlag, _animateFlag);
916end;
917
918procedure NSWindow.setShowsResizeIndicator(_show: LongBool);
919type
920  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_show: LongBool); cdecl;
921var
922  vmethod: TmsgSendWrapper;
923begin
924  vmethod := TmsgSendWrapper(@objc_msgSend);
925  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setShowsResizeIndicator)), _show);
926end;
927
928function NSWindow.showsResizeIndicator: LongBool;
929begin
930  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsResizeIndicator)), []));
931end;
932
933procedure NSWindow.setResizeIncrements(_increments: NSSize);
934type
935  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_increments: NSSize); cdecl;
936var
937  vmethod: TmsgSendWrapper;
938begin
939  vmethod := TmsgSendWrapper(@objc_msgSend);
940  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setResizeIncrements)), _increments);
941end;
942
943function NSWindow.resizeIncrements: NSSize;
944begin
945  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_resizeIncrements)), []);
946end;
947
948procedure NSWindow.setAspectRatio(_ratio: NSSize);
949type
950  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_ratio: NSSize); cdecl;
951var
952  vmethod: TmsgSendWrapper;
953begin
954  vmethod := TmsgSendWrapper(@objc_msgSend);
955  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAspectRatio)), _ratio);
956end;
957
958function NSWindow.aspectRatio: NSSize;
959begin
960  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_aspectRatio)), []);
961end;
962
963{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
964procedure NSWindow.setContentResizeIncrements(_increments: NSSize);
965type
966  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_increments: NSSize); cdecl;
967var
968  vmethod: TmsgSendWrapper;
969begin
970  vmethod := TmsgSendWrapper(@objc_msgSend);
971  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentResizeIncrements)), _increments);
972end;
973
974function NSWindow.contentResizeIncrements: NSSize;
975begin
976  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentResizeIncrements)), []);
977end;
978
979procedure NSWindow.setContentAspectRatio(_ratio: NSSize);
980type
981  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_ratio: NSSize); cdecl;
982var
983  vmethod: TmsgSendWrapper;
984begin
985  vmethod := TmsgSendWrapper(@objc_msgSend);
986  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentAspectRatio)), _ratio);
987end;
988
989function NSWindow.contentAspectRatio: NSSize;
990begin
991  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentAspectRatio)), []);
992end;
993
994{.$endif}
995procedure NSWindow.useOptimizedDrawing(_flag: LongBool);
996type
997  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
998var
999  vmethod: TmsgSendWrapper;
1000begin
1001  vmethod := TmsgSendWrapper(@objc_msgSend);
1002  vmethod(Handle, sel_registerName(PChar(StrNSWindow_useOptimizedDrawing)), _flag);
1003end;
1004
1005procedure NSWindow.disableFlushWindow;
1006begin
1007  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_disableFlushWindow)), []);
1008end;
1009
1010procedure NSWindow.enableFlushWindow;
1011begin
1012  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_enableFlushWindow)), []);
1013end;
1014
1015function NSWindow.isFlushWindowDisabled: LongBool;
1016begin
1017  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isFlushWindowDisabled)), []));
1018end;
1019
1020procedure NSWindow.flushWindow;
1021begin
1022  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_flushWindow)), []);
1023end;
1024
1025procedure NSWindow.flushWindowIfNeeded;
1026begin
1027  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_flushWindowIfNeeded)), []);
1028end;
1029
1030procedure NSWindow.setViewsNeedDisplay(_flag: LongBool);
1031type
1032  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1033var
1034  vmethod: TmsgSendWrapper;
1035begin
1036  vmethod := TmsgSendWrapper(@objc_msgSend);
1037  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setViewsNeedDisplay)), _flag);
1038end;
1039
1040function NSWindow.viewsNeedDisplay: LongBool;
1041begin
1042  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_viewsNeedDisplay)), []));
1043end;
1044
1045procedure NSWindow.displayIfNeeded;
1046begin
1047  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_displayIfNeeded)), []);
1048end;
1049
1050procedure NSWindow.display;
1051begin
1052  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_display)), []);
1053end;
1054
1055procedure NSWindow.setAutodisplay(_flag: LongBool);
1056type
1057  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1058var
1059  vmethod: TmsgSendWrapper;
1060begin
1061  vmethod := TmsgSendWrapper(@objc_msgSend);
1062  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAutodisplay)), _flag);
1063end;
1064
1065function NSWindow.isAutodisplay: LongBool;
1066begin
1067  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isAutodisplay)), []));
1068end;
1069
1070{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
1071function NSWindow.preservesContentDuringLiveResize: LongBool;
1072begin
1073  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_preservesContentDuringLiveResize)), []));
1074end;
1075
1076procedure NSWindow.setPreservesContentDuringLiveResize(_flag: LongBool);
1077type
1078  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1079var
1080  vmethod: TmsgSendWrapper;
1081begin
1082  vmethod := TmsgSendWrapper(@objc_msgSend);
1083  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setPreservesContentDuringLiveResize)), _flag);
1084end;
1085
1086{.$endif}
1087procedure NSWindow.update;
1088begin
1089  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_update)), []);
1090end;
1091
1092function NSWindow.makeFirstResponder(_aResponder: lobjc.id {NSResponder}): LongBool;
1093type
1094  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_aResponder: lobjc.id {NSResponder}): LongBool; cdecl;
1095var
1096  vmethod: TmsgSendWrapper;
1097begin
1098  vmethod := TmsgSendWrapper(@objc_msgSend);
1099  Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_makeFirstResponder)), _aResponder));
1100end;
1101
1102function NSWindow.firstResponder: lobjc.id;
1103begin
1104  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_firstResponder)), []));
1105end;
1106
1107function NSWindow.resizeFlags: Integer;
1108begin
1109  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resizeFlags)), []));
1110end;
1111
1112procedure NSWindow.keyDown(_theEvent: lobjc.id {NSEvent});
1113type
1114  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_theEvent: lobjc.id {NSEvent}); cdecl;
1115var
1116  vmethod: TmsgSendWrapper;
1117begin
1118  vmethod := TmsgSendWrapper(@objc_msgSend);
1119  vmethod(Handle, sel_registerName(PChar(StrNSWindow_keyDown)), _theEvent);
1120end;
1121
1122procedure NSWindow.close;
1123begin
1124  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_close)), []);
1125end;
1126
1127procedure NSWindow.setReleasedWhenClosed(_flag: LongBool);
1128type
1129  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1130var
1131  vmethod: TmsgSendWrapper;
1132begin
1133  vmethod := TmsgSendWrapper(@objc_msgSend);
1134  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setReleasedWhenClosed)), _flag);
1135end;
1136
1137function NSWindow.isReleasedWhenClosed: LongBool;
1138begin
1139  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isReleasedWhenClosed)), []));
1140end;
1141
1142procedure NSWindow.miniaturize(_sender: lobjc.id);
1143type
1144  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1145var
1146  vmethod: TmsgSendWrapper;
1147begin
1148  vmethod := TmsgSendWrapper(@objc_msgSend);
1149  vmethod(Handle, sel_registerName(PChar(StrNSWindow_miniaturize)), _sender);
1150end;
1151
1152procedure NSWindow.deminiaturize(_sender: lobjc.id);
1153type
1154  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1155var
1156  vmethod: TmsgSendWrapper;
1157begin
1158  vmethod := TmsgSendWrapper(@objc_msgSend);
1159  vmethod(Handle, sel_registerName(PChar(StrNSWindow_deminiaturize)), _sender);
1160end;
1161
1162function NSWindow.isZoomed: LongBool;
1163begin
1164  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isZoomed)), []));
1165end;
1166
1167procedure NSWindow.zoom(_sender: lobjc.id);
1168type
1169  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1170var
1171  vmethod: TmsgSendWrapper;
1172begin
1173  vmethod := TmsgSendWrapper(@objc_msgSend);
1174  vmethod(Handle, sel_registerName(PChar(StrNSWindow_zoom)), _sender);
1175end;
1176
1177function NSWindow.isMiniaturized: LongBool;
1178begin
1179  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMiniaturized)), []));
1180end;
1181
1182function NSWindow.tryToPerform_with(_anAction: SEL; _anObject: lobjc.id): LongBool;
1183type
1184  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_anAction: SEL; _anObject: lobjc.id): LongBool; cdecl;
1185var
1186  vmethod: TmsgSendWrapper;
1187begin
1188  vmethod := TmsgSendWrapper(@objc_msgSend);
1189  Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_tryToPerform_with)), _anAction, _anObject));
1190end;
1191
1192function NSWindow.validRequestorForSendType_returnType(_sendType: CFStringRef; _returnType: CFStringRef): lobjc.id;
1193type
1194  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_sendType: CFStringRef; _returnType: CFStringRef): lobjc.id; cdecl;
1195var
1196  vmethod: TmsgSendWrapper;
1197begin
1198  vmethod := TmsgSendWrapper(@objc_msgSend);
1199  Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_validRequestorForSendType_returnType)), _sendType, _returnType));
1200end;
1201
1202procedure NSWindow.setBackgroundColor(_color: lobjc.id {NSColor});
1203type
1204  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_color: lobjc.id {NSColor}); cdecl;
1205var
1206  vmethod: TmsgSendWrapper;
1207begin
1208  vmethod := TmsgSendWrapper(@objc_msgSend);
1209  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setBackgroundColor)), _color);
1210end;
1211
1212function NSWindow.backgroundColor: lobjc.id;
1213begin
1214  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_backgroundColor)), []));
1215end;
1216
1217{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
1218procedure NSWindow.setMovableByWindowBackground(_flag: LongBool);
1219type
1220  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1221var
1222  vmethod: TmsgSendWrapper;
1223begin
1224  vmethod := TmsgSendWrapper(@objc_msgSend);
1225  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMovableByWindowBackground)), _flag);
1226end;
1227
1228function NSWindow.isMovableByWindowBackground: LongBool;
1229begin
1230  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMovableByWindowBackground)), []));
1231end;
1232
1233{.$endif}
1234procedure NSWindow.setHidesOnDeactivate(_flag: LongBool);
1235type
1236  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1237var
1238  vmethod: TmsgSendWrapper;
1239begin
1240  vmethod := TmsgSendWrapper(@objc_msgSend);
1241  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setHidesOnDeactivate)), _flag);
1242end;
1243
1244function NSWindow.hidesOnDeactivate: LongBool;
1245begin
1246  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hidesOnDeactivate)), []));
1247end;
1248
1249procedure NSWindow.setCanHide(_flag: LongBool);
1250type
1251  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1252var
1253  vmethod: TmsgSendWrapper;
1254begin
1255  vmethod := TmsgSendWrapper(@objc_msgSend);
1256  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setCanHide)), _flag);
1257end;
1258
1259function NSWindow.canHide: LongBool;
1260begin
1261  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canHide)), []));
1262end;
1263
1264procedure NSWindow.center;
1265begin
1266  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_center)), []);
1267end;
1268
1269procedure NSWindow.makeKeyAndOrderFront(_sender: lobjc.id);
1270type
1271  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1272var
1273  vmethod: TmsgSendWrapper;
1274begin
1275  vmethod := TmsgSendWrapper(@objc_msgSend);
1276  vmethod(Handle, sel_registerName(PChar(StrNSWindow_makeKeyAndOrderFront)), _sender);
1277end;
1278
1279procedure NSWindow.orderFront(_sender: lobjc.id);
1280type
1281  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1282var
1283  vmethod: TmsgSendWrapper;
1284begin
1285  vmethod := TmsgSendWrapper(@objc_msgSend);
1286  vmethod(Handle, sel_registerName(PChar(StrNSWindow_orderFront)), _sender);
1287end;
1288
1289procedure NSWindow.orderBack(_sender: lobjc.id);
1290type
1291  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1292var
1293  vmethod: TmsgSendWrapper;
1294begin
1295  vmethod := TmsgSendWrapper(@objc_msgSend);
1296  vmethod(Handle, sel_registerName(PChar(StrNSWindow_orderBack)), _sender);
1297end;
1298
1299procedure NSWindow.orderOut(_sender: lobjc.id);
1300type
1301  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1302var
1303  vmethod: TmsgSendWrapper;
1304begin
1305  vmethod := TmsgSendWrapper(@objc_msgSend);
1306  vmethod(Handle, sel_registerName(PChar(StrNSWindow_orderOut)), _sender);
1307end;
1308
1309procedure NSWindow.orderWindow_relativeTo(_place: NSWindowOrderingMode; _otherWin: Integer);
1310type
1311  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_place: NSWindowOrderingMode; _otherWin: Integer); cdecl;
1312var
1313  vmethod: TmsgSendWrapper;
1314begin
1315  vmethod := TmsgSendWrapper(@objc_msgSend);
1316  vmethod(Handle, sel_registerName(PChar(StrNSWindow_orderWindow_relativeTo)), _place, _otherWin);
1317end;
1318
1319procedure NSWindow.orderFrontRegardless;
1320begin
1321  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_orderFrontRegardless)), []);
1322end;
1323
1324procedure NSWindow.setMiniwindowImage(_image: lobjc.id {NSImage});
1325type
1326  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_image: lobjc.id {NSImage}); cdecl;
1327var
1328  vmethod: TmsgSendWrapper;
1329begin
1330  vmethod := TmsgSendWrapper(@objc_msgSend);
1331  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMiniwindowImage)), _image);
1332end;
1333
1334procedure NSWindow.setMiniwindowTitle(_title: CFStringRef);
1335type
1336  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_title: CFStringRef); cdecl;
1337var
1338  vmethod: TmsgSendWrapper;
1339begin
1340  vmethod := TmsgSendWrapper(@objc_msgSend);
1341  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMiniwindowTitle)), _title);
1342end;
1343
1344function NSWindow.miniwindowImage: lobjc.id;
1345begin
1346  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_miniwindowImage)), []));
1347end;
1348
1349function NSWindow.miniwindowTitle: CFStringRef;
1350begin
1351  Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_miniwindowTitle)), []));
1352end;
1353
1354procedure NSWindow.setDocumentEdited(_flag: LongBool);
1355type
1356  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1357var
1358  vmethod: TmsgSendWrapper;
1359begin
1360  vmethod := TmsgSendWrapper(@objc_msgSend);
1361  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDocumentEdited)), _flag);
1362end;
1363
1364function NSWindow.isDocumentEdited: LongBool;
1365begin
1366  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isDocumentEdited)), []));
1367end;
1368
1369function NSWindow.isVisible: LongBool;
1370begin
1371  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isVisible)), []));
1372end;
1373
1374function NSWindow.isKeyWindow: LongBool;
1375begin
1376  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isKeyWindow)), []));
1377end;
1378
1379function NSWindow.isMainWindow: LongBool;
1380begin
1381  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMainWindow)), []));
1382end;
1383
1384function NSWindow.canBecomeKeyWindow: LongBool;
1385begin
1386  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeKeyWindow)), []));
1387end;
1388
1389function NSWindow.canBecomeMainWindow: LongBool;
1390begin
1391  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeMainWindow)), []));
1392end;
1393
1394procedure NSWindow.makeKeyWindow;
1395begin
1396  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_makeKeyWindow)), []);
1397end;
1398
1399procedure NSWindow.makeMainWindow;
1400begin
1401  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_makeMainWindow)), []);
1402end;
1403
1404procedure NSWindow.becomeKeyWindow;
1405begin
1406  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_becomeKeyWindow)), []);
1407end;
1408
1409procedure NSWindow.resignKeyWindow;
1410begin
1411  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resignKeyWindow)), []);
1412end;
1413
1414procedure NSWindow.becomeMainWindow;
1415begin
1416  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_becomeMainWindow)), []);
1417end;
1418
1419procedure NSWindow.resignMainWindow;
1420begin
1421  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resignMainWindow)), []);
1422end;
1423
1424function NSWindow.worksWhenModal: LongBool;
1425begin
1426  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_worksWhenModal)), []));
1427end;
1428
1429function NSWindow.convertBaseToScreen(_aPoint: NSPoint): NSPoint;
1430type
1431  TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aPoint: NSPoint); cdecl;
1432var
1433  vmethod: TmsgSendWrapper;
1434begin
1435  vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
1436  vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_convertBaseToScreen)), _aPoint);
1437end;
1438
1439function NSWindow.convertScreenToBase(_aPoint: NSPoint): NSPoint;
1440type
1441  TmsgSendWrapper = procedure (result_param: Pointer; param1: lobjc.id; param2: SEL;_aPoint: NSPoint); cdecl;
1442var
1443  vmethod: TmsgSendWrapper;
1444begin
1445  vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
1446  vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_convertScreenToBase)), _aPoint);
1447end;
1448
1449procedure NSWindow.performClose(_sender: lobjc.id);
1450type
1451  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1452var
1453  vmethod: TmsgSendWrapper;
1454begin
1455  vmethod := TmsgSendWrapper(@objc_msgSend);
1456  vmethod(Handle, sel_registerName(PChar(StrNSWindow_performClose)), _sender);
1457end;
1458
1459procedure NSWindow.performMiniaturize(_sender: lobjc.id);
1460type
1461  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1462var
1463  vmethod: TmsgSendWrapper;
1464begin
1465  vmethod := TmsgSendWrapper(@objc_msgSend);
1466  vmethod(Handle, sel_registerName(PChar(StrNSWindow_performMiniaturize)), _sender);
1467end;
1468
1469procedure NSWindow.performZoom(_sender: lobjc.id);
1470type
1471  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1472var
1473  vmethod: TmsgSendWrapper;
1474begin
1475  vmethod := TmsgSendWrapper(@objc_msgSend);
1476  vmethod(Handle, sel_registerName(PChar(StrNSWindow_performZoom)), _sender);
1477end;
1478
1479function NSWindow.gState: Integer;
1480begin
1481  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_gState)), []));
1482end;
1483
1484procedure NSWindow.setOneShot(_flag: LongBool);
1485type
1486  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1487var
1488  vmethod: TmsgSendWrapper;
1489begin
1490  vmethod := TmsgSendWrapper(@objc_msgSend);
1491  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setOneShot)), _flag);
1492end;
1493
1494function NSWindow.isOneShot: LongBool;
1495begin
1496  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOneShot)), []));
1497end;
1498
1499function NSWindow.dataWithEPSInsideRect(_rect: NSRect): CFDataRef;
1500type
1501  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_rect: NSRect): CFDataRef; cdecl;
1502var
1503  vmethod: TmsgSendWrapper;
1504begin
1505  vmethod := TmsgSendWrapper(@objc_msgSend);
1506  Result := CFDataRef(vmethod(Handle, sel_registerName(PChar(StrNSWindow_dataWithEPSInsideRect)), _rect));
1507end;
1508
1509function NSWindow.dataWithPDFInsideRect(_rect: NSRect): CFDataRef;
1510type
1511  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_rect: NSRect): CFDataRef; cdecl;
1512var
1513  vmethod: TmsgSendWrapper;
1514begin
1515  vmethod := TmsgSendWrapper(@objc_msgSend);
1516  Result := CFDataRef(vmethod(Handle, sel_registerName(PChar(StrNSWindow_dataWithPDFInsideRect)), _rect));
1517end;
1518
1519procedure NSWindow.print(_sender: lobjc.id);
1520type
1521  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
1522var
1523  vmethod: TmsgSendWrapper;
1524begin
1525  vmethod := TmsgSendWrapper(@objc_msgSend);
1526  vmethod(Handle, sel_registerName(PChar(StrNSWindow_print)), _sender);
1527end;
1528
1529procedure NSWindow.disableCursorRects;
1530begin
1531  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_disableCursorRects)), []);
1532end;
1533
1534procedure NSWindow.enableCursorRects;
1535begin
1536  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_enableCursorRects)), []);
1537end;
1538
1539procedure NSWindow.discardCursorRects;
1540begin
1541  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_discardCursorRects)), []);
1542end;
1543
1544function NSWindow.areCursorRectsEnabled: LongBool;
1545begin
1546  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_areCursorRectsEnabled)), []));
1547end;
1548
1549procedure NSWindow.invalidateCursorRectsForView(_aView: lobjc.id {NSView});
1550type
1551  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aView: lobjc.id {NSView}); cdecl;
1552var
1553  vmethod: TmsgSendWrapper;
1554begin
1555  vmethod := TmsgSendWrapper(@objc_msgSend);
1556  vmethod(Handle, sel_registerName(PChar(StrNSWindow_invalidateCursorRectsForView)), _aView);
1557end;
1558
1559procedure NSWindow.resetCursorRects;
1560begin
1561  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resetCursorRects)), []);
1562end;
1563
1564{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
1565procedure NSWindow.setAllowsToolTipsWhenApplicationIsInactive(_allowWhenInactive: LongBool);
1566type
1567  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_allowWhenInactive: LongBool); cdecl;
1568var
1569  vmethod: TmsgSendWrapper;
1570begin
1571  vmethod := TmsgSendWrapper(@objc_msgSend);
1572  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAllowsToolTipsWhenApplicationIsInactive)), _allowWhenInactive);
1573end;
1574
1575function NSWindow.allowsToolTipsWhenApplicationIsInactive: LongBool;
1576begin
1577  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_allowsToolTipsWhenApplicationIsInactive)), []));
1578end;
1579
1580{.$endif}
1581procedure NSWindow.setBackingType(_bufferingType: NSBackingStoreType);
1582type
1583  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_bufferingType: NSBackingStoreType); cdecl;
1584var
1585  vmethod: TmsgSendWrapper;
1586begin
1587  vmethod := TmsgSendWrapper(@objc_msgSend);
1588  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setBackingType)), _bufferingType);
1589end;
1590
1591function NSWindow.backingType: NSBackingStoreType;
1592begin
1593  Result := NSBackingStoreType(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_backingType)), []));
1594end;
1595
1596procedure NSWindow.setLevel(_newLevel: Integer);
1597type
1598  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newLevel: Integer); cdecl;
1599var
1600  vmethod: TmsgSendWrapper;
1601begin
1602  vmethod := TmsgSendWrapper(@objc_msgSend);
1603  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setLevel)), _newLevel);
1604end;
1605
1606function NSWindow.level: Integer;
1607begin
1608  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_level)), []));
1609end;
1610
1611procedure NSWindow.setDepthLimit(_limit: NSWindowDepth);
1612type
1613  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_limit: NSWindowDepth); cdecl;
1614var
1615  vmethod: TmsgSendWrapper;
1616begin
1617  vmethod := TmsgSendWrapper(@objc_msgSend);
1618  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDepthLimit)), _limit);
1619end;
1620
1621function NSWindow.depthLimit: NSWindowDepth;
1622begin
1623  Result := {%H-}NSWindowDepth(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_depthLimit)), []));
1624end;
1625
1626procedure NSWindow.setDynamicDepthLimit(_flag: LongBool);
1627type
1628  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1629var
1630  vmethod: TmsgSendWrapper;
1631begin
1632  vmethod := TmsgSendWrapper(@objc_msgSend);
1633  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDynamicDepthLimit)), _flag);
1634end;
1635
1636function NSWindow.hasDynamicDepthLimit: LongBool;
1637begin
1638  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasDynamicDepthLimit)), []));
1639end;
1640
1641function NSWindow.screen: lobjc.id;
1642begin
1643  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_screen)), []));
1644end;
1645
1646function NSWindow.deepestScreen: lobjc.id;
1647begin
1648  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_deepestScreen)), []));
1649end;
1650
1651function NSWindow.canStoreColor: LongBool;
1652begin
1653  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canStoreColor)), []));
1654end;
1655
1656procedure NSWindow.setHasShadow(_hasShadow: LongBool);
1657type
1658  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_hasShadow: LongBool); cdecl;
1659var
1660  vmethod: TmsgSendWrapper;
1661begin
1662  vmethod := TmsgSendWrapper(@objc_msgSend);
1663  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setHasShadow)), _hasShadow);
1664end;
1665
1666function NSWindow.hasShadow: LongBool;
1667begin
1668  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasShadow)), []));
1669end;
1670
1671{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
1672procedure NSWindow.invalidateShadow;
1673begin
1674  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_invalidateShadow)), []);
1675end;
1676
1677{.$endif}
1678procedure NSWindow.setAlphaValue(_windowAlpha: Single);
1679type
1680  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_windowAlpha: Single); cdecl;
1681var
1682  vmethod: TmsgSendWrapper;
1683begin
1684  vmethod := TmsgSendWrapper(@objc_msgSend);
1685  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAlphaValue)), _windowAlpha);
1686end;
1687
1688function NSWindow.alphaValue: Single;
1689begin
1690  Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_alphaValue)), []));
1691end;
1692
1693procedure NSWindow.setOpaque(_isOpaque: LongBool);
1694type
1695  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_isOpaque: LongBool); cdecl;
1696var
1697  vmethod: TmsgSendWrapper;
1698begin
1699  vmethod := TmsgSendWrapper(@objc_msgSend);
1700  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setOpaque)), _isOpaque);
1701end;
1702
1703function NSWindow.isOpaque: LongBool;
1704begin
1705  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOpaque)), []));
1706end;
1707
1708{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
1709function NSWindow.displaysWhenScreenProfileChanges: LongBool;
1710begin
1711  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_displaysWhenScreenProfileChanges)), []));
1712end;
1713
1714procedure NSWindow.setDisplaysWhenScreenProfileChanges(_flag: LongBool);
1715type
1716  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1717var
1718  vmethod: TmsgSendWrapper;
1719begin
1720  vmethod := TmsgSendWrapper(@objc_msgSend);
1721  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDisplaysWhenScreenProfileChanges)), _flag);
1722end;
1723
1724procedure NSWindow.disableScreenUpdatesUntilFlush;
1725begin
1726  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_disableScreenUpdatesUntilFlush)), []);
1727end;
1728
1729{.$endif}
1730function NSWindow.stringWithSavedFrame: CFStringRef;
1731begin
1732  Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_stringWithSavedFrame)), []));
1733end;
1734
1735procedure NSWindow.setFrameFromString(__string: CFStringRef);
1736type
1737  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;__string: CFStringRef); cdecl;
1738var
1739  vmethod: TmsgSendWrapper;
1740begin
1741  vmethod := TmsgSendWrapper(@objc_msgSend);
1742  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameFromString)), __string);
1743end;
1744
1745procedure NSWindow.saveFrameUsingName(_name: CFStringRef);
1746type
1747  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_name: CFStringRef); cdecl;
1748var
1749  vmethod: TmsgSendWrapper;
1750begin
1751  vmethod := TmsgSendWrapper(@objc_msgSend);
1752  vmethod(Handle, sel_registerName(PChar(StrNSWindow_saveFrameUsingName)), _name);
1753end;
1754
1755function NSWindow.setFrameUsingName_force(_name: CFStringRef; _force: LongBool): LongBool;
1756type
1757  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_name: CFStringRef; _force: LongBool): LongBool; cdecl;
1758var
1759  vmethod: TmsgSendWrapper;
1760begin
1761  vmethod := TmsgSendWrapper(@objc_msgSend);
1762  Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameUsingName_force)), _name, _force));
1763end;
1764
1765function NSWindow.setFrameUsingName(_name: CFStringRef): LongBool;
1766type
1767  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_name: CFStringRef): LongBool; cdecl;
1768var
1769  vmethod: TmsgSendWrapper;
1770begin
1771  vmethod := TmsgSendWrapper(@objc_msgSend);
1772  Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameUsingName)), _name));
1773end;
1774
1775function NSWindow.setFrameAutosaveName(_name: CFStringRef): LongBool;
1776type
1777  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_name: CFStringRef): LongBool; cdecl;
1778var
1779  vmethod: TmsgSendWrapper;
1780begin
1781  vmethod := TmsgSendWrapper(@objc_msgSend);
1782  Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameAutosaveName)), _name));
1783end;
1784
1785function NSWindow.frameAutosaveName: CFStringRef;
1786begin
1787  Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_frameAutosaveName)), []));
1788end;
1789
1790class procedure NSWindow.removeFrameUsingName(_name: CFStringRef);
1791type
1792  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_name: CFStringRef); cdecl;
1793var
1794  vmethod: TmsgSendWrapper;
1795begin
1796  vmethod := TmsgSendWrapper(@objc_msgSend);
1797  vmethod(getClass, sel_registerName(PChar(StrNSWindow_removeFrameUsingName)), _name);
1798end;
1799
1800procedure NSWindow.cacheImageInRect(_aRect: NSRect);
1801type
1802  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aRect: NSRect); cdecl;
1803var
1804  vmethod: TmsgSendWrapper;
1805begin
1806  vmethod := TmsgSendWrapper(@objc_msgSend);
1807  vmethod(Handle, sel_registerName(PChar(StrNSWindow_cacheImageInRect)), _aRect);
1808end;
1809
1810procedure NSWindow.restoreCachedImage;
1811begin
1812  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_restoreCachedImage)), []);
1813end;
1814
1815procedure NSWindow.discardCachedImage;
1816begin
1817  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_discardCachedImage)), []);
1818end;
1819
1820function NSWindow.minSize: NSSize;
1821begin
1822  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_minSize)), []);
1823end;
1824
1825function NSWindow.maxSize: NSSize;
1826begin
1827  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_maxSize)), []);
1828end;
1829
1830procedure NSWindow.setMinSize(_size: NSSize);
1831type
1832  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_size: NSSize); cdecl;
1833var
1834  vmethod: TmsgSendWrapper;
1835begin
1836  vmethod := TmsgSendWrapper(@objc_msgSend);
1837  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMinSize)), _size);
1838end;
1839
1840procedure NSWindow.setMaxSize(_size: NSSize);
1841type
1842  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_size: NSSize); cdecl;
1843var
1844  vmethod: TmsgSendWrapper;
1845begin
1846  vmethod := TmsgSendWrapper(@objc_msgSend);
1847  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMaxSize)), _size);
1848end;
1849
1850{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
1851function NSWindow.contentMinSize: NSSize;
1852begin
1853  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentMinSize)), []);
1854end;
1855
1856function NSWindow.contentMaxSize: NSSize;
1857begin
1858  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentMaxSize)), []);
1859end;
1860
1861procedure NSWindow.setContentMinSize(_size: NSSize);
1862type
1863  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_size: NSSize); cdecl;
1864var
1865  vmethod: TmsgSendWrapper;
1866begin
1867  vmethod := TmsgSendWrapper(@objc_msgSend);
1868  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentMinSize)), _size);
1869end;
1870
1871procedure NSWindow.setContentMaxSize(_size: NSSize);
1872type
1873  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_size: NSSize); cdecl;
1874var
1875  vmethod: TmsgSendWrapper;
1876begin
1877  vmethod := TmsgSendWrapper(@objc_msgSend);
1878  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentMaxSize)), _size);
1879end;
1880
1881{.$endif}
1882function NSWindow.nextEventMatchingMask(_mask: LongWord): lobjc.id;
1883type
1884  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_mask: LongWord): lobjc.id; cdecl;
1885var
1886  vmethod: TmsgSendWrapper;
1887begin
1888  vmethod := TmsgSendWrapper(@objc_msgSend);
1889  Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_nextEventMatchingMask)), _mask));
1890end;
1891
1892function NSWindow.nextEventMatchingMask_untilDate_inMode_dequeue(_mask: LongWord; _expiration: CFDateRef; _mode: CFStringRef; _deqFlag: LongBool): lobjc.id;
1893type
1894  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_mask: LongWord; _expiration: CFDateRef; _mode: CFStringRef; _deqFlag: LongBool): lobjc.id; cdecl;
1895var
1896  vmethod: TmsgSendWrapper;
1897begin
1898  vmethod := TmsgSendWrapper(@objc_msgSend);
1899  Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_nextEventMatchingMask_untilDate_inMode_dequeue)), _mask, _expiration, _mode, _deqFlag));
1900end;
1901
1902procedure NSWindow.discardEventsMatchingMask_beforeEvent(_mask: LongWord; _lastEvent: lobjc.id {NSEvent});
1903type
1904  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_mask: LongWord; _lastEvent: lobjc.id {NSEvent}); cdecl;
1905var
1906  vmethod: TmsgSendWrapper;
1907begin
1908  vmethod := TmsgSendWrapper(@objc_msgSend);
1909  vmethod(Handle, sel_registerName(PChar(StrNSWindow_discardEventsMatchingMask_beforeEvent)), _mask, _lastEvent);
1910end;
1911
1912procedure NSWindow.postEvent_atStart(_event: lobjc.id {NSEvent}; _flag: LongBool);
1913type
1914  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_event: lobjc.id {NSEvent}; _flag: LongBool); cdecl;
1915var
1916  vmethod: TmsgSendWrapper;
1917begin
1918  vmethod := TmsgSendWrapper(@objc_msgSend);
1919  vmethod(Handle, sel_registerName(PChar(StrNSWindow_postEvent_atStart)), _event, _flag);
1920end;
1921
1922function NSWindow.currentEvent: lobjc.id;
1923begin
1924  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_currentEvent)), []));
1925end;
1926
1927procedure NSWindow.setAcceptsMouseMovedEvents(_flag: LongBool);
1928type
1929  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1930var
1931  vmethod: TmsgSendWrapper;
1932begin
1933  vmethod := TmsgSendWrapper(@objc_msgSend);
1934  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAcceptsMouseMovedEvents)), _flag);
1935end;
1936
1937function NSWindow.acceptsMouseMovedEvents: LongBool;
1938begin
1939  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_acceptsMouseMovedEvents)), []));
1940end;
1941
1942{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
1943procedure NSWindow.setIgnoresMouseEvents(_flag: LongBool);
1944type
1945  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
1946var
1947  vmethod: TmsgSendWrapper;
1948begin
1949  vmethod := TmsgSendWrapper(@objc_msgSend);
1950  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setIgnoresMouseEvents)), _flag);
1951end;
1952
1953function NSWindow.ignoresMouseEvents: LongBool;
1954begin
1955  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_ignoresMouseEvents)), []));
1956end;
1957
1958{.$endif}
1959function NSWindow.deviceDescription: CFDictionaryRef;
1960begin
1961  Result := CFDictionaryRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_deviceDescription)), []));
1962end;
1963
1964procedure NSWindow.sendEvent(_theEvent: lobjc.id {NSEvent});
1965type
1966  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_theEvent: lobjc.id {NSEvent}); cdecl;
1967var
1968  vmethod: TmsgSendWrapper;
1969begin
1970  vmethod := TmsgSendWrapper(@objc_msgSend);
1971  vmethod(Handle, sel_registerName(PChar(StrNSWindow_sendEvent)), _theEvent);
1972end;
1973
1974function NSWindow.mouseLocationOutsideOfEventStream: NSPoint;
1975begin
1976  objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_mouseLocationOutsideOfEventStream)), []);
1977end;
1978
1979class procedure NSWindow.menuChanged(_menu: lobjc.id {NSMenu});
1980type
1981  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_menu: lobjc.id {NSMenu}); cdecl;
1982var
1983  vmethod: TmsgSendWrapper;
1984begin
1985  vmethod := TmsgSendWrapper(@objc_msgSend);
1986  vmethod(getClass, sel_registerName(PChar(StrNSWindow_menuChanged)), _menu);
1987end;
1988
1989function NSWindow.windowController: lobjc.id;
1990begin
1991  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowController)), []));
1992end;
1993
1994procedure NSWindow.setWindowController(_windowController: lobjc.id {NSWindowController});
1995type
1996  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_windowController: lobjc.id {NSWindowController}); cdecl;
1997var
1998  vmethod: TmsgSendWrapper;
1999begin
2000  vmethod := TmsgSendWrapper(@objc_msgSend);
2001  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setWindowController)), _windowController);
2002end;
2003
2004function NSWindow.isSheet: LongBool;
2005begin
2006  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isSheet)), []));
2007end;
2008
2009function NSWindow.attachedSheet: lobjc.id;
2010begin
2011  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_attachedSheet)), []));
2012end;
2013
2014{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
2015class function NSWindow.standardWindowButton_forStyleMask(_b: NSWindowButton; _styleMask: LongWord): lobjc.id;
2016type
2017  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_b: NSWindowButton; _styleMask: LongWord): lobjc.id; cdecl;
2018var
2019  vmethod: TmsgSendWrapper;
2020begin
2021  vmethod := TmsgSendWrapper(@objc_msgSend);
2022  Result := lobjc.id(vmethod(getClass, sel_registerName(PChar(StrNSWindow_standardWindowButton_forStyleMask)), _b, _styleMask));
2023end;
2024
2025function NSWindow.standardWindowButton(_b: NSWindowButton): lobjc.id;
2026type
2027  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_b: NSWindowButton): lobjc.id; cdecl;
2028var
2029  vmethod: TmsgSendWrapper;
2030begin
2031  vmethod := TmsgSendWrapper(@objc_msgSend);
2032  Result := lobjc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_standardWindowButton)), _b));
2033end;
2034
2035{.$endif}
2036{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
2037procedure NSWindow.addChildWindow_ordered(_childWin: lobjc.id {NSWindow}; _place: NSWindowOrderingMode);
2038type
2039  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_childWin: lobjc.id {NSWindow}; _place: NSWindowOrderingMode); cdecl;
2040var
2041  vmethod: TmsgSendWrapper;
2042begin
2043  vmethod := TmsgSendWrapper(@objc_msgSend);
2044  vmethod(Handle, sel_registerName(PChar(StrNSWindow_addChildWindow_ordered)), _childWin, _place);
2045end;
2046
2047procedure NSWindow.removeChildWindow(_childWin: lobjc.id {NSWindow});
2048type
2049  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_childWin: lobjc.id {NSWindow}); cdecl;
2050var
2051  vmethod: TmsgSendWrapper;
2052begin
2053  vmethod := TmsgSendWrapper(@objc_msgSend);
2054  vmethod(Handle, sel_registerName(PChar(StrNSWindow_removeChildWindow)), _childWin);
2055end;
2056
2057function NSWindow.childWindows: CFArrayRef;
2058begin
2059  Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_childWindows)), []));
2060end;
2061
2062function NSWindow.parentWindow: lobjc.id;
2063begin
2064  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_parentWindow)), []));
2065end;
2066
2067procedure NSWindow.setParentWindow(_window: lobjc.id {NSWindow});
2068type
2069  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_window: lobjc.id {NSWindow}); cdecl;
2070var
2071  vmethod: TmsgSendWrapper;
2072begin
2073  vmethod := TmsgSendWrapper(@objc_msgSend);
2074  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setParentWindow)), _window);
2075end;
2076
2077{.$endif}
2078{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
2079function NSWindow.graphicsContext: lobjc.id;
2080begin
2081  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_graphicsContext)), []));
2082end;
2083
2084function NSWindow.userSpaceScaleFactor: Single;
2085begin
2086  Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_userSpaceScaleFactor)), []));
2087end;
2088
2089{.$endif}
2090procedure NSWindow.setInitialFirstResponder(_view: lobjc.id {NSView});
2091type
2092  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_view: lobjc.id {NSView}); cdecl;
2093var
2094  vmethod: TmsgSendWrapper;
2095begin
2096  vmethod := TmsgSendWrapper(@objc_msgSend);
2097  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setInitialFirstResponder)), _view);
2098end;
2099
2100function NSWindow.initialFirstResponder: lobjc.id;
2101begin
2102  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_initialFirstResponder)), []));
2103end;
2104
2105procedure NSWindow.selectNextKeyView(_sender: lobjc.id);
2106type
2107  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
2108var
2109  vmethod: TmsgSendWrapper;
2110begin
2111  vmethod := TmsgSendWrapper(@objc_msgSend);
2112  vmethod(Handle, sel_registerName(PChar(StrNSWindow_selectNextKeyView)), _sender);
2113end;
2114
2115procedure NSWindow.selectPreviousKeyView(_sender: lobjc.id);
2116type
2117  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
2118var
2119  vmethod: TmsgSendWrapper;
2120begin
2121  vmethod := TmsgSendWrapper(@objc_msgSend);
2122  vmethod(Handle, sel_registerName(PChar(StrNSWindow_selectPreviousKeyView)), _sender);
2123end;
2124
2125procedure NSWindow.selectKeyViewFollowingView(_aView: lobjc.id {NSView});
2126type
2127  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aView: lobjc.id {NSView}); cdecl;
2128var
2129  vmethod: TmsgSendWrapper;
2130begin
2131  vmethod := TmsgSendWrapper(@objc_msgSend);
2132  vmethod(Handle, sel_registerName(PChar(StrNSWindow_selectKeyViewFollowingView)), _aView);
2133end;
2134
2135procedure NSWindow.selectKeyViewPrecedingView(_aView: lobjc.id {NSView});
2136type
2137  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_aView: lobjc.id {NSView}); cdecl;
2138var
2139  vmethod: TmsgSendWrapper;
2140begin
2141  vmethod := TmsgSendWrapper(@objc_msgSend);
2142  vmethod(Handle, sel_registerName(PChar(StrNSWindow_selectKeyViewPrecedingView)), _aView);
2143end;
2144
2145function NSWindow.keyViewSelectionDirection: NSSelectionDirection;
2146begin
2147  Result := NSSelectionDirection(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_keyViewSelectionDirection)), []));
2148end;
2149
2150procedure NSWindow.setDefaultButtonCell(_defButt: lobjc.id {NSButtonCell});
2151type
2152  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_defButt: lobjc.id {NSButtonCell}); cdecl;
2153var
2154  vmethod: TmsgSendWrapper;
2155begin
2156  vmethod := TmsgSendWrapper(@objc_msgSend);
2157  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDefaultButtonCell)), _defButt);
2158end;
2159
2160function NSWindow.defaultButtonCell: lobjc.id;
2161begin
2162  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_defaultButtonCell)), []));
2163end;
2164
2165procedure NSWindow.disableKeyEquivalentForDefaultButtonCell;
2166begin
2167  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_disableKeyEquivalentForDefaultButtonCell)), []);
2168end;
2169
2170procedure NSWindow.enableKeyEquivalentForDefaultButtonCell;
2171begin
2172  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_enableKeyEquivalentForDefaultButtonCell)), []);
2173end;
2174
2175{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
2176procedure NSWindow.setAutorecalculatesKeyViewLoop(_flag: LongBool);
2177type
2178  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_flag: LongBool); cdecl;
2179var
2180  vmethod: TmsgSendWrapper;
2181begin
2182  vmethod := TmsgSendWrapper(@objc_msgSend);
2183  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAutorecalculatesKeyViewLoop)), _flag);
2184end;
2185
2186function NSWindow.autorecalculatesKeyViewLoop: LongBool;
2187begin
2188  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_autorecalculatesKeyViewLoop)), []));
2189end;
2190
2191procedure NSWindow.recalculateKeyViewLoop;
2192begin
2193  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_recalculateKeyViewLoop)), []);
2194end;
2195
2196{.$endif}
2197procedure NSWindow.setToolbar(_toolbar: lobjc.id {NSToolbar});
2198type
2199  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_toolbar: lobjc.id {NSToolbar}); cdecl;
2200var
2201  vmethod: TmsgSendWrapper;
2202begin
2203  vmethod := TmsgSendWrapper(@objc_msgSend);
2204  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setToolbar)), _toolbar);
2205end;
2206
2207function NSWindow.toolbar: lobjc.id;
2208begin
2209  Result := lobjc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_toolbar)), []));
2210end;
2211
2212procedure NSWindow.toggleToolbarShown(_sender: lobjc.id);
2213type
2214  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
2215var
2216  vmethod: TmsgSendWrapper;
2217begin
2218  vmethod := TmsgSendWrapper(@objc_msgSend);
2219  vmethod(Handle, sel_registerName(PChar(StrNSWindow_toggleToolbarShown)), _sender);
2220end;
2221
2222procedure NSWindow.runToolbarCustomizationPalette(_sender: lobjc.id);
2223type
2224  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_sender: lobjc.id); cdecl;
2225var
2226  vmethod: TmsgSendWrapper;
2227begin
2228  vmethod := TmsgSendWrapper(@objc_msgSend);
2229  vmethod(Handle, sel_registerName(PChar(StrNSWindow_runToolbarCustomizationPalette)), _sender);
2230end;
2231
2232{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
2233procedure NSWindow.setShowsToolbarButton(_show: LongBool);
2234type
2235  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_show: LongBool); cdecl;
2236var
2237  vmethod: TmsgSendWrapper;
2238begin
2239  vmethod := TmsgSendWrapper(@objc_msgSend);
2240  vmethod(Handle, sel_registerName(PChar(StrNSWindow_setShowsToolbarButton)), _show);
2241end;
2242
2243function NSWindow.showsToolbarButton: LongBool;
2244begin
2245  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsToolbarButton)), []));
2246end;
2247
2248{.$endif}
2249procedure NSWindow.dragImage_at_offset_event_pasteboard_source_slideBack(_anImage: lobjc.id {NSImage}; _baseLocation: NSPoint; _initialOffset: NSSize; _event: lobjc.id {NSEvent}; _pboard: lobjc.id {NSPasteboard}; _sourceObj: lobjc.id; _slideFlag: LongBool);
2250type
2251  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_anImage: lobjc.id {NSImage}; _baseLocation: NSPoint; _initialOffset: NSSize; _event: lobjc.id {NSEvent}; _pboard: lobjc.id {NSPasteboard}; _sourceObj: lobjc.id; _slideFlag: LongBool); cdecl;
2252var
2253  vmethod: TmsgSendWrapper;
2254begin
2255  vmethod := TmsgSendWrapper(@objc_msgSend);
2256  vmethod(Handle, sel_registerName(PChar(StrNSWindow_dragImage_at_offset_event_pasteboard_source_slideBack)), _anImage, _baseLocation, _initialOffset, _event, _pboard, _sourceObj, _slideFlag);
2257end;
2258
2259procedure NSWindow.registerForDraggedTypes(_newTypes: CFArrayRef);
2260type
2261  TmsgSendWrapper = procedure (param1: lobjc.id; param2: SEL;_newTypes: CFArrayRef); cdecl;
2262var
2263  vmethod: TmsgSendWrapper;
2264begin
2265  vmethod := TmsgSendWrapper(@objc_msgSend);
2266  vmethod(Handle, sel_registerName(PChar(StrNSWindow_registerForDraggedTypes)), _newTypes);
2267end;
2268
2269procedure NSWindow.unregisterDraggedTypes;
2270begin
2271  objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_unregisterDraggedTypes)), []);
2272end;
2273
2274function NSWindow.windowHandle: Pointer;
2275begin
2276  Result := Pointer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowHandle)), []));
2277end;
2278
2279constructor NSWindow.initWithWindowRef(_windowRef: Pointer);
2280type
2281  TmsgSendWrapper = function (param1: lobjc.id; param2: SEL;_windowRef: Pointer): lobjc.id; cdecl;
2282var
2283  vmethod: TmsgSendWrapper;
2284begin
2285  ClassID := getClass();
2286  allocbuf := objc_msgSend(ClassID, sel_registerName(PChar(Str_alloc)), []);
2287  vmethod := TmsgSendWrapper(@objc_msgSend);
2288  Handle := vmethod(allocbuf, sel_registerName(PChar(StrNSWindow_initWithWindowRef)), _windowRef);
2289end;
2290
2291function NSWindow.windowRef: Pointer;
2292begin
2293  Result := Pointer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowRef)), []));
2294end;
2295
2296{$endif}
2297