pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity
Files
901b92fa7253da596d484795c088fd52c0c54b41
lazarus-ccr/bindings/pascocoa/appkit/NSWindow.inc
sekelsenmat fa69e42d57 Improves Cocoa bindings 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@574 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-09-29 00:47:50 +00:00

2297 lines
86 KiB
PHP
Raw Blame History

{%mainunit appkit.pas}
(*
NSWindow.h
Application Kit
Copyright (c) 1994-2005, Apple Computer, Inc.
All rights reserved.
*)
{$ifdef HEADER}
{$ifndef NSWINDOW_PAS_H}
{$define NSWINDOW_PAS_H}
{$include NSResponder.inc}
{$include NSGraphics.inc}
{$include AppKitDefines.inc}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
{.$endif}
{.$else}
{.$endif}
const
NSAppKitVersionNumberWithCustomSheetPosition = 686.0;
NSNormalWindowLevel = kCGNormalWindowLevelKey;
NSFloatingWindowLevel = kCGFloatingWindowLevelKey;
NSSubmenuWindowLevel = kCGTornOffMenuWindowLevelKey;
NSTornOffMenuWindowLevel = kCGTornOffMenuWindowLevelKey;
NSMainMenuWindowLevel = kCGMainMenuWindowLevelKey;
NSStatusWindowLevel = kCGStatusWindowLevelKey;
NSDockWindowLevel = kCGDockWindowLevelKey;
NSModalPanelWindowLevel = kCGModalPanelWindowLevelKey;
NSPopUpMenuWindowLevel = kCGPopUpMenuWindowLevelKey;
NSScreenSaverWindowLevel = kCGScreenSaverWindowLevelKey;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
{.$endif}
{.$else}
{.$endif}
const
NSBorderlessWindowMask = 0;
NSTitledWindowMask = 1 shl 0;
NSClosableWindowMask = 1 shl 1;
NSMiniaturizableWindowMask = 1 shl 2;
NSResizableWindowMask = 1 shl 3;
// Specifies a window with textured background (eg. metal)
const
NSTexturedBackgroundWindowMask = 1 shl 8;
// Specifies a window that ignores the userSpaceScaleFactor of the NSScreen on which
// it is created. Currently restricted to borderless windows (NSBorderlessWindowMask)
const
NSUnscaledWindowMask = 1 shl 11;
// Specifies a window whose titlebar and toolbar have a unified look - that is, a continuous
// background
const
NSUnifiedTitleAndToolbarWindowMask = 1 shl 12;
// used with NSRunLoop's performSelector:target:argument:order:modes:
const
NSDisplayWindowRunLoopOrdering = 600000;
NSResetCursorRectsRunLoopOrdering = 700000;
type
NSSelectionDirection = (
NSDirectSelection = 0,
NSSelectingNext,
NSSelectingPrevious
);
type
NSWindowButton = (
NSWindowCloseButton,
NSWindowMiniaturizeButton,
NSWindowZoomButton,
NSWindowToolbarButton,
NSWindowDocumentIconButton
);
//APPKIT_EXTERN NSString *NSWindowDidBecomeKeyNotification;
//APPKIT_EXTERN NSString *NSWindowDidBecomeMainNotification;
//APPKIT_EXTERN NSString *NSWindowDidChangeScreenNotification;
//APPKIT_EXTERN NSString *NSWindowDidDeminiaturizeNotification;
//APPKIT_EXTERN NSString *NSWindowDidExposeNotification; // userInfo key: @"NSExposedRect"
//APPKIT_EXTERN NSString *NSWindowDidMiniaturizeNotification;
//APPKIT_EXTERN NSString *NSWindowDidMoveNotification;
//APPKIT_EXTERN NSString *NSWindowDidResignKeyNotification;
//APPKIT_EXTERN NSString *NSWindowDidResignMainNotification;
//APPKIT_EXTERN NSString *NSWindowDidResizeNotification;
//APPKIT_EXTERN NSString *NSWindowDidUpdateNotification;
//APPKIT_EXTERN NSString *NSWindowWillCloseNotification;
//APPKIT_EXTERN NSString *NSWindowWillMiniaturizeNotification;
//APPKIT_EXTERN NSString *NSWindowWillMoveNotification;
//APPKIT_EXTERN NSString *NSWindowWillBeginSheetNotification;
//APPKIT_EXTERN NSString *NSWindowDidEndSheetNotification;
//APPKIT_EXTERN NSString *NSWindowDidChangeScreenProfileNotification AVAILABLE_MAC_OS_X_VERSION_10_4_AND_LATER;
{$endif}
{$endif}
{$ifdef FORWARD}
NSWindow = class;
{$endif}
{$ifdef CLASSES}
{$ifndef NSWINDOW_PAS_C}
{$define NSWINDOW_PAS_C}
{$include NSResponder.inc}
{$include NSGraphics.inc}
{$include AppKitDefines.inc}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
{.$endif}
{ NSWindow }
NSWindow = class(NSResponder)
public
class function getClass: objc.id; override;
// All instance variables are private
class function frameRectForContentRect_styleMask(_cRect: NSRect; _aStyle: LongWord): NSRect;
class function contentRectForFrameRect_styleMask(_fRect: NSRect; _aStyle: LongWord): NSRect;
class function minFrameWidthWithTitle_styleMask(_aTitle: CFStringRef; _aStyle: LongWord): Single;
class function defaultDepthLimit: NSWindowDepth;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
function frameRectForContentRect(_contentRect: NSRect): NSRect;
function contentRectForFrameRect(_frameRect: NSRect): NSRect;
{.$endif}
constructor initWithContentRect_styleMask_backing_defer(_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool);
constructor initWithContentRect_styleMask_backing_defer_screen(_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool; _screen: objc.id {NSScreen});
function title: CFStringRef;
procedure setTitle(_aString: CFStringRef);
function representedFilename: CFStringRef;
procedure setRepresentedFilename(_aString: CFStringRef);
procedure setTitleWithRepresentedFilename(_filename: CFStringRef);
procedure setExcludedFromWindowsMenu(_flag: LongBool);
function isExcludedFromWindowsMenu: LongBool;
procedure setContentView(_aView: objc.id {NSView});
function contentView: objc.id;
procedure setDelegate(_anObject: objc.id);
function delegate: objc.id;
function windowNumber: Integer;
function styleMask: LongWord;
function fieldEditor_forObject(_createFlag: LongBool; _anObject: objc.id): objc.id;{NSText}
procedure endEditingFor(_anObject: objc.id);
function constrainFrameRect_toScreen(_frameRect: NSRect; _screen: objc.id {NSScreen}): NSRect;
procedure setFrame_display(_frameRect: NSRect; _flag: LongBool);
procedure setContentSize(_aSize: NSSize);
procedure setFrameOrigin(_aPoint: NSPoint);
procedure setFrameTopLeftPoint(_aPoint: NSPoint);
function cascadeTopLeftFromPoint(_topLeftPoint: NSPoint): NSPoint;
function frame: NSRect;
// smooth resize
// subclasses can override animationResizeTime: to control the total time for the frame
// change.
// newFrame is the rect passed into setFrame:display:animate:
function animationResizeTime(_newFrame: NSRect): NSTimeInterval;
// setFrame:display:animate: is equivalent to setFrame:display: if animateFlag is NO
// If animationFlag is YES, this method will perform a smooth resize of the window,
// where the total time for the resize is specified by -animationResizeTime:
procedure setFrame_display_animate(_frameRect: NSRect; _displayFlag: LongBool; _animateFlag: LongBool);
// show/hide resize corner (does not affect whether window is resizable)
procedure setShowsResizeIndicator(_show: LongBool);
function showsResizeIndicator: LongBool;
procedure setResizeIncrements(_increments: NSSize);
function resizeIncrements: NSSize;
procedure setAspectRatio(_ratio: NSSize);
function aspectRatio: NSSize;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
procedure setContentResizeIncrements(_increments: NSSize);
function contentResizeIncrements: NSSize;
procedure setContentAspectRatio(_ratio: NSSize);
function contentAspectRatio: NSSize;
{.$endif}
procedure useOptimizedDrawing(_flag: LongBool);
procedure disableFlushWindow;
procedure enableFlushWindow;
function isFlushWindowDisabled: LongBool;
procedure flushWindow;
procedure flushWindowIfNeeded;
procedure setViewsNeedDisplay(_flag: LongBool);
function viewsNeedDisplay: LongBool;
procedure displayIfNeeded;
procedure display;
procedure setAutodisplay(_flag: LongBool);
function isAutodisplay: LongBool;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
function preservesContentDuringLiveResize: LongBool;
procedure setPreservesContentDuringLiveResize(_flag: LongBool);
{.$endif}
procedure update;
function makeFirstResponder(_aResponder: objc.id {NSResponder}): LongBool;
function firstResponder: objc.id;{NSResponder}
function resizeFlags: Integer;
procedure keyDown(_theEvent: objc.id {NSEvent});
procedure close;
procedure setReleasedWhenClosed(_flag: LongBool);
function isReleasedWhenClosed: LongBool;
procedure miniaturize(_sender: objc.id);
procedure deminiaturize(_sender: objc.id);
function isZoomed: LongBool;
procedure zoom(_sender: objc.id);
function isMiniaturized: LongBool;
function tryToPerform_with(_anAction: SEL; _anObject: objc.id): LongBool;
function validRequestorForSendType_returnType(_sendType: CFStringRef; _returnType: CFStringRef): objc.id;
procedure setBackgroundColor(_color: objc.id {NSColor});
function backgroundColor: objc.id;{NSColor}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
procedure setMovableByWindowBackground(_flag: LongBool);
function isMovableByWindowBackground: LongBool;
{.$endif}
procedure setHidesOnDeactivate(_flag: LongBool);
function hidesOnDeactivate: LongBool;
// indicate whether a window can be hidden during -[NSApplication hide:]. Default
// is YES
procedure setCanHide(_flag: LongBool);
function canHide: LongBool;
procedure center;
procedure makeKeyAndOrderFront(_sender: objc.id);
procedure orderFront(_sender: objc.id);
procedure orderBack(_sender: objc.id);
procedure orderOut(_sender: objc.id);
procedure orderWindow_relativeTo(_place: NSWindowOrderingMode; _otherWin: Integer);
procedure orderFrontRegardless;
procedure setMiniwindowImage(_image: objc.id {NSImage});
procedure setMiniwindowTitle(_title: CFStringRef);
function miniwindowImage: objc.id;{NSImage}
function miniwindowTitle: CFStringRef;
procedure setDocumentEdited(_flag: LongBool);
function isDocumentEdited: LongBool;
function isVisible: LongBool;
function isKeyWindow: LongBool;
function isMainWindow: LongBool;
function canBecomeKeyWindow: LongBool;
function canBecomeMainWindow: LongBool;
procedure makeKeyWindow;
procedure makeMainWindow;
procedure becomeKeyWindow;
procedure resignKeyWindow;
procedure becomeMainWindow;
procedure resignMainWindow;
function worksWhenModal: LongBool;
function convertBaseToScreen(_aPoint: NSPoint): NSPoint;
function convertScreenToBase(_aPoint: NSPoint): NSPoint;
procedure performClose(_sender: objc.id);
procedure performMiniaturize(_sender: objc.id);
procedure performZoom(_sender: objc.id);
function gState: Integer;
procedure setOneShot(_flag: LongBool);
function isOneShot: LongBool;
function dataWithEPSInsideRect(_rect: NSRect): CFDataRef;
function dataWithPDFInsideRect(_rect: NSRect): CFDataRef;
procedure print(_sender: objc.id);
procedure disableCursorRects;
procedure enableCursorRects;
procedure discardCursorRects;
function areCursorRectsEnabled: LongBool;
procedure invalidateCursorRectsForView(_aView: objc.id {NSView});
procedure resetCursorRects;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
procedure setAllowsToolTipsWhenApplicationIsInactive(_allowWhenInactive: LongBool);
// Default is NO. Set to YES to allow a window to display tooltips even when the application
// is in the background. Note that, enabling tooltips in an inactive application will
// cause the app to do work any time the mouse passes over the window. This can degrade
// system performance.
function allowsToolTipsWhenApplicationIsInactive: LongBool;
{.$endif}
procedure setBackingType(_bufferingType: NSBackingStoreType);
function backingType: NSBackingStoreType;
procedure setLevel(_newLevel: Integer);
function level: Integer;
procedure setDepthLimit(_limit: NSWindowDepth);
function depthLimit: NSWindowDepth;
procedure setDynamicDepthLimit(_flag: LongBool);
function hasDynamicDepthLimit: LongBool;
function screen: objc.id;{NSScreen}
function deepestScreen: objc.id;{NSScreen}
function canStoreColor: LongBool;
procedure setHasShadow(_hasShadow: LongBool);
function hasShadow: LongBool;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
procedure invalidateShadow;
{.$endif}
procedure setAlphaValue(_windowAlpha: Single);
function alphaValue: Single;
procedure setOpaque(_isOpaque: LongBool);
function isOpaque: LongBool;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
function displaysWhenScreenProfileChanges: LongBool;
procedure setDisplaysWhenScreenProfileChanges(_flag: LongBool);
procedure disableScreenUpdatesUntilFlush;
{.$endif}
function stringWithSavedFrame: CFStringRef;
procedure setFrameFromString(__string: CFStringRef);
procedure saveFrameUsingName(_name: CFStringRef);
// Set force=YES to use setFrameUsingName on a non-resizable window
function setFrameUsingName_force(_name: CFStringRef; _force: LongBool): LongBool;
function setFrameUsingName(_name: CFStringRef): LongBool;
function setFrameAutosaveName(_name: CFStringRef): LongBool;
function frameAutosaveName: CFStringRef;
class procedure removeFrameUsingName(_name: CFStringRef);
procedure cacheImageInRect(_aRect: NSRect);
procedure restoreCachedImage;
procedure discardCachedImage;
function minSize: NSSize;
function maxSize: NSSize;
procedure setMinSize(_size: NSSize);
procedure setMaxSize(_size: NSSize);
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
function contentMinSize: NSSize;
function contentMaxSize: NSSize;
procedure setContentMinSize(_size: NSSize);
procedure setContentMaxSize(_size: NSSize);
{.$endif}
function nextEventMatchingMask(_mask: LongWord): objc.id;{NSEvent}
function nextEventMatchingMask_untilDate_inMode_dequeue(_mask: LongWord; _expiration: CFDateRef; _mode: CFStringRef; _deqFlag: LongBool): objc.id;{NSEvent}
procedure discardEventsMatchingMask_beforeEvent(_mask: LongWord; _lastEvent: objc.id {NSEvent});
procedure postEvent_atStart(_event: objc.id {NSEvent}; _flag: LongBool);
function currentEvent: objc.id;{NSEvent}
procedure setAcceptsMouseMovedEvents(_flag: LongBool);
function acceptsMouseMovedEvents: LongBool;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
procedure setIgnoresMouseEvents(_flag: LongBool);
function ignoresMouseEvents: LongBool;
{.$endif}
function deviceDescription: CFDictionaryRef;
procedure sendEvent(_theEvent: objc.id {NSEvent});
function mouseLocationOutsideOfEventStream: NSPoint;
class procedure menuChanged(_menu: objc.id {NSMenu});
function windowController: objc.id;
procedure setWindowController(_windowController: objc.id {NSWindowController});
function isSheet: LongBool;
function attachedSheet: objc.id;{NSWindow}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
class function standardWindowButton_forStyleMask(_b: NSWindowButton; _styleMask: LongWord): objc.id;{NSButton}
function standardWindowButton(_b: NSWindowButton): objc.id;{NSButton}
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
procedure addChildWindow_ordered(_childWin: objc.id {NSWindow}; _place: NSWindowOrderingMode);
procedure removeChildWindow(_childWin: objc.id {NSWindow});
function childWindows: CFArrayRef;
function parentWindow: objc.id;{NSWindow}
procedure setParentWindow(_window: objc.id {NSWindow});
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
// Returns NSGraphicsContext used to render the receiver's content on the screen for
// the calling thread.
function graphicsContext: objc.id;{NSGraphicsContext}
// Returns scale factor applied to view coordinate system to get to base coordinate
// system of window
function userSpaceScaleFactor: Single;
{.$endif}
procedure setInitialFirstResponder(_view: objc.id {NSView});
function initialFirstResponder: objc.id;{NSView}
procedure selectNextKeyView(_sender: objc.id);
procedure selectPreviousKeyView(_sender: objc.id);
procedure selectKeyViewFollowingView(_aView: objc.id {NSView});
procedure selectKeyViewPrecedingView(_aView: objc.id {NSView});
function keyViewSelectionDirection: NSSelectionDirection;
procedure setDefaultButtonCell(_defButt: objc.id {NSButtonCell});
function defaultButtonCell: objc.id;{NSButtonCell}
procedure disableKeyEquivalentForDefaultButtonCell;
procedure enableKeyEquivalentForDefaultButtonCell;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
procedure setAutorecalculatesKeyViewLoop(_flag: LongBool);
function autorecalculatesKeyViewLoop: LongBool;
procedure recalculateKeyViewLoop;
{.$endif}
procedure setToolbar(_toolbar: objc.id {NSToolbar});
function toolbar: objc.id;{NSToolbar}
procedure toggleToolbarShown(_sender: objc.id);
procedure runToolbarCustomizationPalette(_sender: objc.id);
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
procedure setShowsToolbarButton(_show: LongBool);
function showsToolbarButton: LongBool;
{.$endif}
procedure dragImage_at_offset_event_pasteboard_source_slideBack(_anImage: objc.id {NSImage}; _baseLocation: NSPoint; _initialOffset: NSSize; _event: objc.id {NSEvent}; _pboard: objc.id {NSPasteboard}; _sourceObj: objc.id; _slideFlag: LongBool);
procedure registerForDraggedTypes(_newTypes: CFArrayRef);
procedure unregisterDraggedTypes;
function windowHandle: Pointer;
// create an NSWindow for a Carbon window - windowRef must be a Carbon WindowRef -
// see MacWindows.h
constructor initWithWindowRef(_windowRef: Pointer);
// return the Carbon WindowRef for this window, creating if necessary: - see MacWindows.h
function windowRef: Pointer;
end;
{.$else}
{.$endif}
{$endif}
{$endif}
{$ifdef IMPLEMENTATION}
const
StrNSWindow_NSWindow = 'NSWindow';
StrNSWindow_frameRectForContentRect_styleMask = 'frameRectForContentRect:styleMask:';
StrNSWindow_contentRectForFrameRect_styleMask = 'contentRectForFrameRect:styleMask:';
StrNSWindow_minFrameWidthWithTitle_styleMask = 'minFrameWidthWithTitle:styleMask:';
StrNSWindow_defaultDepthLimit = 'defaultDepthLimit';
StrNSWindow_frameRectForContentRect = 'frameRectForContentRect:';
StrNSWindow_contentRectForFrameRect = 'contentRectForFrameRect:';
StrNSWindow_initWithContentRect_styleMask_backing_defer = 'initWithContentRect:styleMask:backing:defer:';
StrNSWindow_initWithContentRect_styleMask_backing_defer_screen = 'initWithContentRect:styleMask:backing:defer:screen:';
StrNSWindow_title = 'title';
StrNSWindow_setTitle = 'setTitle:';
StrNSWindow_representedFilename = 'representedFilename';
StrNSWindow_setRepresentedFilename = 'setRepresentedFilename:';
StrNSWindow_setTitleWithRepresentedFilename = 'setTitleWithRepresentedFilename:';
StrNSWindow_setExcludedFromWindowsMenu = 'setExcludedFromWindowsMenu:';
StrNSWindow_isExcludedFromWindowsMenu = 'isExcludedFromWindowsMenu';
StrNSWindow_setContentView = 'setContentView:';
StrNSWindow_contentView = 'contentView';
StrNSWindow_setDelegate = 'setDelegate:';
StrNSWindow_delegate = 'delegate';
StrNSWindow_windowNumber = 'windowNumber';
StrNSWindow_styleMask = 'styleMask';
StrNSWindow_fieldEditor_forObject = 'fieldEditor:forObject:';
StrNSWindow_endEditingFor = 'endEditingFor:';
StrNSWindow_constrainFrameRect_toScreen = 'constrainFrameRect:toScreen:';
StrNSWindow_setFrame_display = 'setFrame:display:';
StrNSWindow_setContentSize = 'setContentSize:';
StrNSWindow_setFrameOrigin = 'setFrameOrigin:';
StrNSWindow_setFrameTopLeftPoint = 'setFrameTopLeftPoint:';
StrNSWindow_cascadeTopLeftFromPoint = 'cascadeTopLeftFromPoint:';
StrNSWindow_frame = 'frame';
StrNSWindow_animationResizeTime = 'animationResizeTime:';
StrNSWindow_setFrame_display_animate = 'setFrame:display:animate:';
StrNSWindow_setShowsResizeIndicator = 'setShowsResizeIndicator:';
StrNSWindow_showsResizeIndicator = 'showsResizeIndicator';
StrNSWindow_setResizeIncrements = 'setResizeIncrements:';
StrNSWindow_resizeIncrements = 'resizeIncrements';
StrNSWindow_setAspectRatio = 'setAspectRatio:';
StrNSWindow_aspectRatio = 'aspectRatio';
StrNSWindow_setContentResizeIncrements = 'setContentResizeIncrements:';
StrNSWindow_contentResizeIncrements = 'contentResizeIncrements';
StrNSWindow_setContentAspectRatio = 'setContentAspectRatio:';
StrNSWindow_contentAspectRatio = 'contentAspectRatio';
StrNSWindow_useOptimizedDrawing = 'useOptimizedDrawing:';
StrNSWindow_disableFlushWindow = 'disableFlushWindow';
StrNSWindow_enableFlushWindow = 'enableFlushWindow';
StrNSWindow_isFlushWindowDisabled = 'isFlushWindowDisabled';
StrNSWindow_flushWindow = 'flushWindow';
StrNSWindow_flushWindowIfNeeded = 'flushWindowIfNeeded';
StrNSWindow_setViewsNeedDisplay = 'setViewsNeedDisplay:';
StrNSWindow_viewsNeedDisplay = 'viewsNeedDisplay';
StrNSWindow_displayIfNeeded = 'displayIfNeeded';
StrNSWindow_display = 'display';
StrNSWindow_setAutodisplay = 'setAutodisplay:';
StrNSWindow_isAutodisplay = 'isAutodisplay';
StrNSWindow_preservesContentDuringLiveResize = 'preservesContentDuringLiveResize';
StrNSWindow_setPreservesContentDuringLiveResize = 'setPreservesContentDuringLiveResize:';
StrNSWindow_update = 'update';
StrNSWindow_makeFirstResponder = 'makeFirstResponder:';
StrNSWindow_firstResponder = 'firstResponder';
StrNSWindow_resizeFlags = 'resizeFlags';
StrNSWindow_keyDown = 'keyDown:';
StrNSWindow_close = 'close';
StrNSWindow_setReleasedWhenClosed = 'setReleasedWhenClosed:';
StrNSWindow_isReleasedWhenClosed = 'isReleasedWhenClosed';
StrNSWindow_miniaturize = 'miniaturize:';
StrNSWindow_deminiaturize = 'deminiaturize:';
StrNSWindow_isZoomed = 'isZoomed';
StrNSWindow_zoom = 'zoom:';
StrNSWindow_isMiniaturized = 'isMiniaturized';
StrNSWindow_tryToPerform_with = 'tryToPerform:with:';
StrNSWindow_validRequestorForSendType_returnType = 'validRequestorForSendType:returnType:';
StrNSWindow_setBackgroundColor = 'setBackgroundColor:';
StrNSWindow_backgroundColor = 'backgroundColor';
StrNSWindow_setMovableByWindowBackground = 'setMovableByWindowBackground:';
StrNSWindow_isMovableByWindowBackground = 'isMovableByWindowBackground';
StrNSWindow_setHidesOnDeactivate = 'setHidesOnDeactivate:';
StrNSWindow_hidesOnDeactivate = 'hidesOnDeactivate';
StrNSWindow_setCanHide = 'setCanHide:';
StrNSWindow_canHide = 'canHide';
StrNSWindow_center = 'center';
StrNSWindow_makeKeyAndOrderFront = 'makeKeyAndOrderFront:';
StrNSWindow_orderFront = 'orderFront:';
StrNSWindow_orderBack = 'orderBack:';
StrNSWindow_orderOut = 'orderOut:';
StrNSWindow_orderWindow_relativeTo = 'orderWindow:relativeTo:';
StrNSWindow_orderFrontRegardless = 'orderFrontRegardless';
StrNSWindow_setMiniwindowImage = 'setMiniwindowImage:';
StrNSWindow_setMiniwindowTitle = 'setMiniwindowTitle:';
StrNSWindow_miniwindowImage = 'miniwindowImage';
StrNSWindow_miniwindowTitle = 'miniwindowTitle';
StrNSWindow_setDocumentEdited = 'setDocumentEdited:';
StrNSWindow_isDocumentEdited = 'isDocumentEdited';
StrNSWindow_isVisible = 'isVisible';
StrNSWindow_isKeyWindow = 'isKeyWindow';
StrNSWindow_isMainWindow = 'isMainWindow';
StrNSWindow_canBecomeKeyWindow = 'canBecomeKeyWindow';
StrNSWindow_canBecomeMainWindow = 'canBecomeMainWindow';
StrNSWindow_makeKeyWindow = 'makeKeyWindow';
StrNSWindow_makeMainWindow = 'makeMainWindow';
StrNSWindow_becomeKeyWindow = 'becomeKeyWindow';
StrNSWindow_resignKeyWindow = 'resignKeyWindow';
StrNSWindow_becomeMainWindow = 'becomeMainWindow';
StrNSWindow_resignMainWindow = 'resignMainWindow';
StrNSWindow_worksWhenModal = 'worksWhenModal';
StrNSWindow_convertBaseToScreen = 'convertBaseToScreen:';
StrNSWindow_convertScreenToBase = 'convertScreenToBase:';
StrNSWindow_performClose = 'performClose:';
StrNSWindow_performMiniaturize = 'performMiniaturize:';
StrNSWindow_performZoom = 'performZoom:';
StrNSWindow_gState = 'gState';
StrNSWindow_setOneShot = 'setOneShot:';
StrNSWindow_isOneShot = 'isOneShot';
StrNSWindow_dataWithEPSInsideRect = 'dataWithEPSInsideRect:';
StrNSWindow_dataWithPDFInsideRect = 'dataWithPDFInsideRect:';
StrNSWindow_print = 'print:';
StrNSWindow_disableCursorRects = 'disableCursorRects';
StrNSWindow_enableCursorRects = 'enableCursorRects';
StrNSWindow_discardCursorRects = 'discardCursorRects';
StrNSWindow_areCursorRectsEnabled = 'areCursorRectsEnabled';
StrNSWindow_invalidateCursorRectsForView = 'invalidateCursorRectsForView:';
StrNSWindow_resetCursorRects = 'resetCursorRects';
StrNSWindow_setAllowsToolTipsWhenApplicationIsInactive = 'setAllowsToolTipsWhenApplicationIsInactive:';
StrNSWindow_allowsToolTipsWhenApplicationIsInactive = 'allowsToolTipsWhenApplicationIsInactive';
StrNSWindow_setBackingType = 'setBackingType:';
StrNSWindow_backingType = 'backingType';
StrNSWindow_setLevel = 'setLevel:';
StrNSWindow_level = 'level';
StrNSWindow_setDepthLimit = 'setDepthLimit:';
StrNSWindow_depthLimit = 'depthLimit';
StrNSWindow_setDynamicDepthLimit = 'setDynamicDepthLimit:';
StrNSWindow_hasDynamicDepthLimit = 'hasDynamicDepthLimit';
StrNSWindow_screen = 'screen';
StrNSWindow_deepestScreen = 'deepestScreen';
StrNSWindow_canStoreColor = 'canStoreColor';
StrNSWindow_setHasShadow = 'setHasShadow:';
StrNSWindow_hasShadow = 'hasShadow';
StrNSWindow_invalidateShadow = 'invalidateShadow';
StrNSWindow_setAlphaValue = 'setAlphaValue:';
StrNSWindow_alphaValue = 'alphaValue';
StrNSWindow_setOpaque = 'setOpaque:';
StrNSWindow_isOpaque = 'isOpaque';
StrNSWindow_displaysWhenScreenProfileChanges = 'displaysWhenScreenProfileChanges';
StrNSWindow_setDisplaysWhenScreenProfileChanges = 'setDisplaysWhenScreenProfileChanges:';
StrNSWindow_disableScreenUpdatesUntilFlush = 'disableScreenUpdatesUntilFlush';
StrNSWindow_stringWithSavedFrame = 'stringWithSavedFrame';
StrNSWindow_setFrameFromString = 'setFrameFromString:';
StrNSWindow_saveFrameUsingName = 'saveFrameUsingName:';
StrNSWindow_setFrameUsingName_force = 'setFrameUsingName:force:';
StrNSWindow_setFrameUsingName = 'setFrameUsingName:';
StrNSWindow_setFrameAutosaveName = 'setFrameAutosaveName:';
StrNSWindow_frameAutosaveName = 'frameAutosaveName';
StrNSWindow_removeFrameUsingName = 'removeFrameUsingName:';
StrNSWindow_cacheImageInRect = 'cacheImageInRect:';
StrNSWindow_restoreCachedImage = 'restoreCachedImage';
StrNSWindow_discardCachedImage = 'discardCachedImage';
StrNSWindow_minSize = 'minSize';
StrNSWindow_maxSize = 'maxSize';
StrNSWindow_setMinSize = 'setMinSize:';
StrNSWindow_setMaxSize = 'setMaxSize:';
StrNSWindow_contentMinSize = 'contentMinSize';
StrNSWindow_contentMaxSize = 'contentMaxSize';
StrNSWindow_setContentMinSize = 'setContentMinSize:';
StrNSWindow_setContentMaxSize = 'setContentMaxSize:';
StrNSWindow_nextEventMatchingMask = 'nextEventMatchingMask:';
StrNSWindow_nextEventMatchingMask_untilDate_inMode_dequeue = 'nextEventMatchingMask:untilDate:inMode:dequeue:';
StrNSWindow_discardEventsMatchingMask_beforeEvent = 'discardEventsMatchingMask:beforeEvent:';
StrNSWindow_postEvent_atStart = 'postEvent:atStart:';
StrNSWindow_currentEvent = 'currentEvent';
StrNSWindow_setAcceptsMouseMovedEvents = 'setAcceptsMouseMovedEvents:';
StrNSWindow_acceptsMouseMovedEvents = 'acceptsMouseMovedEvents';
StrNSWindow_setIgnoresMouseEvents = 'setIgnoresMouseEvents:';
StrNSWindow_ignoresMouseEvents = 'ignoresMouseEvents';
StrNSWindow_deviceDescription = 'deviceDescription';
StrNSWindow_sendEvent = 'sendEvent:';
StrNSWindow_mouseLocationOutsideOfEventStream = 'mouseLocationOutsideOfEventStream';
StrNSWindow_menuChanged = 'menuChanged:';
StrNSWindow_windowController = 'windowController';
StrNSWindow_setWindowController = 'setWindowController:';
StrNSWindow_isSheet = 'isSheet';
StrNSWindow_attachedSheet = 'attachedSheet';
StrNSWindow_standardWindowButton_forStyleMask = 'standardWindowButton:forStyleMask:';
StrNSWindow_standardWindowButton = 'standardWindowButton:';
StrNSWindow_addChildWindow_ordered = 'addChildWindow:ordered:';
StrNSWindow_removeChildWindow = 'removeChildWindow:';
StrNSWindow_childWindows = 'childWindows';
StrNSWindow_parentWindow = 'parentWindow';
StrNSWindow_setParentWindow = 'setParentWindow:';
StrNSWindow_graphicsContext = 'graphicsContext';
StrNSWindow_userSpaceScaleFactor = 'userSpaceScaleFactor';
StrNSWindow_setInitialFirstResponder = 'setInitialFirstResponder:';
StrNSWindow_initialFirstResponder = 'initialFirstResponder';
StrNSWindow_selectNextKeyView = 'selectNextKeyView:';
StrNSWindow_selectPreviousKeyView = 'selectPreviousKeyView:';
StrNSWindow_selectKeyViewFollowingView = 'selectKeyViewFollowingView:';
StrNSWindow_selectKeyViewPrecedingView = 'selectKeyViewPrecedingView:';
StrNSWindow_keyViewSelectionDirection = 'keyViewSelectionDirection';
StrNSWindow_setDefaultButtonCell = 'setDefaultButtonCell:';
StrNSWindow_defaultButtonCell = 'defaultButtonCell';
StrNSWindow_disableKeyEquivalentForDefaultButtonCell = 'disableKeyEquivalentForDefaultButtonCell';
StrNSWindow_enableKeyEquivalentForDefaultButtonCell = 'enableKeyEquivalentForDefaultButtonCell';
StrNSWindow_setAutorecalculatesKeyViewLoop = 'setAutorecalculatesKeyViewLoop:';
StrNSWindow_autorecalculatesKeyViewLoop = 'autorecalculatesKeyViewLoop';
StrNSWindow_recalculateKeyViewLoop = 'recalculateKeyViewLoop';
StrNSWindow_setToolbar = 'setToolbar:';
StrNSWindow_toolbar = 'toolbar';
StrNSWindow_toggleToolbarShown = 'toggleToolbarShown:';
StrNSWindow_runToolbarCustomizationPalette = 'runToolbarCustomizationPalette:';
StrNSWindow_setShowsToolbarButton = 'setShowsToolbarButton:';
StrNSWindow_showsToolbarButton = 'showsToolbarButton';
StrNSWindow_dragImage_at_offset_event_pasteboard_source_slideBack = 'dragImage:at:offset:event:pasteboard:source:slideBack:';
StrNSWindow_registerForDraggedTypes = 'registerForDraggedTypes:';
StrNSWindow_unregisterDraggedTypes = 'unregisterDraggedTypes';
StrNSWindow_windowHandle = 'windowHandle';
StrNSWindow_initWithWindowRef = 'initWithWindowRef:';
StrNSWindow_windowRef = 'windowRef';
{ NSWindow }
class function NSWindow.getClass: objc.id;
begin
Result := objc_getClass(StrNSWindow_NSWindow);
end;
class function NSWindow.frameRectForContentRect_styleMask(_cRect: NSRect; _aStyle: LongWord): NSRect;
type
TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_cRect: NSRect; _aStyle: LongWord); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
vmethod(@Result, getClass, sel_registerName(PChar(StrNSWindow_frameRectForContentRect_styleMask)), _cRect, _aStyle);
end;
class function NSWindow.contentRectForFrameRect_styleMask(_fRect: NSRect; _aStyle: LongWord): NSRect;
type
TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_fRect: NSRect; _aStyle: LongWord); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
vmethod(@Result, getClass, sel_registerName(PChar(StrNSWindow_contentRectForFrameRect_styleMask)), _fRect, _aStyle);
end;
class function NSWindow.minFrameWidthWithTitle_styleMask(_aTitle: CFStringRef; _aStyle: LongWord): Single;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_aTitle: CFStringRef; _aStyle: LongWord): Single; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := Single(vmethod(getClass, sel_registerName(PChar(StrNSWindow_minFrameWidthWithTitle_styleMask)), _aTitle, _aStyle));
end;
class function NSWindow.defaultDepthLimit: NSWindowDepth;
begin
Result := NSWindowDepth(objc_msgSend(getClass, sel_registerName(PChar(StrNSWindow_defaultDepthLimit)), []));
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
function NSWindow.frameRectForContentRect(_contentRect: NSRect): NSRect;
type
TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_contentRect: NSRect); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_frameRectForContentRect)), _contentRect);
end;
function NSWindow.contentRectForFrameRect(_frameRect: NSRect): NSRect;
type
TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_frameRect: NSRect); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentRectForFrameRect)), _frameRect);
end;
{.$endif}
constructor NSWindow.initWithContentRect_styleMask_backing_defer(_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool);
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool): objc.id; cdecl;
var
vmethod: TmsgSendWrapper;
begin
ClassID := getClass();
allocbuf := objc_msgSend(ClassID, sel_registerName(PChar(Str_alloc)), []);
vmethod := TmsgSendWrapper(@objc_msgSend);
Handle := vmethod(allocbuf, sel_registerName(PChar(StrNSWindow_initWithContentRect_styleMask_backing_defer)), _contentRect, _aStyle, _bufferingType, _flag);
end;
constructor NSWindow.initWithContentRect_styleMask_backing_defer_screen(_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool; _screen: objc.id {NSScreen});
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_contentRect: NSRect; _aStyle: LongWord; _bufferingType: NSBackingStoreType; _flag: LongBool; _screen: objc.id {NSScreen}): objc.id; cdecl;
var
vmethod: TmsgSendWrapper;
begin
ClassID := getClass();
allocbuf := objc_msgSend(ClassID, sel_registerName(PChar(Str_alloc)), []);
vmethod := TmsgSendWrapper(@objc_msgSend);
Handle := vmethod(allocbuf, sel_registerName(PChar(StrNSWindow_initWithContentRect_styleMask_backing_defer_screen)), _contentRect, _aStyle, _bufferingType, _flag, _screen);
end;
function NSWindow.title: CFStringRef;
begin
Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_title)), []));
end;
procedure NSWindow.setTitle(_aString: CFStringRef);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aString: CFStringRef); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setTitle)), _aString);
end;
function NSWindow.representedFilename: CFStringRef;
begin
Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_representedFilename)), []));
end;
procedure NSWindow.setRepresentedFilename(_aString: CFStringRef);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aString: CFStringRef); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setRepresentedFilename)), _aString);
end;
procedure NSWindow.setTitleWithRepresentedFilename(_filename: CFStringRef);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_filename: CFStringRef); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setTitleWithRepresentedFilename)), _filename);
end;
procedure NSWindow.setExcludedFromWindowsMenu(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setExcludedFromWindowsMenu)), _flag);
end;
function NSWindow.isExcludedFromWindowsMenu: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isExcludedFromWindowsMenu)), []));
end;
procedure NSWindow.setContentView(_aView: objc.id {NSView});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aView: objc.id {NSView}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentView)), _aView);
end;
function NSWindow.contentView: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_contentView)), []));
end;
procedure NSWindow.setDelegate(_anObject: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_anObject: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDelegate)), _anObject);
end;
function NSWindow.delegate: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_delegate)), []));
end;
function NSWindow.windowNumber: Integer;
begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowNumber)), []));
end;
function NSWindow.styleMask: LongWord;
begin
Result := LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_styleMask)), []));
end;
function NSWindow.fieldEditor_forObject(_createFlag: LongBool; _anObject: objc.id): objc.id;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_createFlag: LongBool; _anObject: objc.id): objc.id; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_fieldEditor_forObject)), _createFlag, _anObject));
end;
procedure NSWindow.endEditingFor(_anObject: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_anObject: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_endEditingFor)), _anObject);
end;
function NSWindow.constrainFrameRect_toScreen(_frameRect: NSRect; _screen: objc.id {NSScreen}): NSRect;
type
TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_frameRect: NSRect; _screen: objc.id {NSScreen}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_constrainFrameRect_toScreen)), _frameRect, _screen);
end;
procedure NSWindow.setFrame_display(_frameRect: NSRect; _flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_frameRect: NSRect; _flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrame_display)), _frameRect, _flag);
end;
procedure NSWindow.setContentSize(_aSize: NSSize);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aSize: NSSize); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentSize)), _aSize);
end;
procedure NSWindow.setFrameOrigin(_aPoint: NSPoint);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aPoint: NSPoint); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameOrigin)), _aPoint);
end;
procedure NSWindow.setFrameTopLeftPoint(_aPoint: NSPoint);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aPoint: NSPoint); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameTopLeftPoint)), _aPoint);
end;
function NSWindow.cascadeTopLeftFromPoint(_topLeftPoint: NSPoint): NSPoint;
type
TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_topLeftPoint: NSPoint); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_cascadeTopLeftFromPoint)), _topLeftPoint);
end;
function NSWindow.frame: NSRect;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_frame)), []);
end;
function NSWindow.animationResizeTime(_newFrame: NSRect): NSTimeInterval;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_newFrame: NSRect): NSTimeInterval; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend_stret);
Result := vmethod(Handle, sel_registerName(PChar(StrNSWindow_animationResizeTime)), _newFrame);
end;
procedure NSWindow.setFrame_display_animate(_frameRect: NSRect; _displayFlag: LongBool; _animateFlag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_frameRect: NSRect; _displayFlag: LongBool; _animateFlag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrame_display_animate)), _frameRect, _displayFlag, _animateFlag);
end;
procedure NSWindow.setShowsResizeIndicator(_show: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_show: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setShowsResizeIndicator)), _show);
end;
function NSWindow.showsResizeIndicator: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsResizeIndicator)), []));
end;
procedure NSWindow.setResizeIncrements(_increments: NSSize);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_increments: NSSize); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setResizeIncrements)), _increments);
end;
function NSWindow.resizeIncrements: NSSize;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_resizeIncrements)), []);
end;
procedure NSWindow.setAspectRatio(_ratio: NSSize);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_ratio: NSSize); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAspectRatio)), _ratio);
end;
function NSWindow.aspectRatio: NSSize;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_aspectRatio)), []);
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
procedure NSWindow.setContentResizeIncrements(_increments: NSSize);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_increments: NSSize); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentResizeIncrements)), _increments);
end;
function NSWindow.contentResizeIncrements: NSSize;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentResizeIncrements)), []);
end;
procedure NSWindow.setContentAspectRatio(_ratio: NSSize);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_ratio: NSSize); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentAspectRatio)), _ratio);
end;
function NSWindow.contentAspectRatio: NSSize;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentAspectRatio)), []);
end;
{.$endif}
procedure NSWindow.useOptimizedDrawing(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_useOptimizedDrawing)), _flag);
end;
procedure NSWindow.disableFlushWindow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_disableFlushWindow)), []);
end;
procedure NSWindow.enableFlushWindow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_enableFlushWindow)), []);
end;
function NSWindow.isFlushWindowDisabled: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isFlushWindowDisabled)), []));
end;
procedure NSWindow.flushWindow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_flushWindow)), []);
end;
procedure NSWindow.flushWindowIfNeeded;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_flushWindowIfNeeded)), []);
end;
procedure NSWindow.setViewsNeedDisplay(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setViewsNeedDisplay)), _flag);
end;
function NSWindow.viewsNeedDisplay: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_viewsNeedDisplay)), []));
end;
procedure NSWindow.displayIfNeeded;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_displayIfNeeded)), []);
end;
procedure NSWindow.display;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_display)), []);
end;
procedure NSWindow.setAutodisplay(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAutodisplay)), _flag);
end;
function NSWindow.isAutodisplay: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isAutodisplay)), []));
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
function NSWindow.preservesContentDuringLiveResize: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_preservesContentDuringLiveResize)), []));
end;
procedure NSWindow.setPreservesContentDuringLiveResize(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setPreservesContentDuringLiveResize)), _flag);
end;
{.$endif}
procedure NSWindow.update;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_update)), []);
end;
function NSWindow.makeFirstResponder(_aResponder: objc.id {NSResponder}): LongBool;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_aResponder: objc.id {NSResponder}): LongBool; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_makeFirstResponder)), _aResponder));
end;
function NSWindow.firstResponder: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_firstResponder)), []));
end;
function NSWindow.resizeFlags: Integer;
begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resizeFlags)), []));
end;
procedure NSWindow.keyDown(_theEvent: objc.id {NSEvent});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_theEvent: objc.id {NSEvent}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_keyDown)), _theEvent);
end;
procedure NSWindow.close;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_close)), []);
end;
procedure NSWindow.setReleasedWhenClosed(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setReleasedWhenClosed)), _flag);
end;
function NSWindow.isReleasedWhenClosed: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isReleasedWhenClosed)), []));
end;
procedure NSWindow.miniaturize(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_miniaturize)), _sender);
end;
procedure NSWindow.deminiaturize(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_deminiaturize)), _sender);
end;
function NSWindow.isZoomed: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isZoomed)), []));
end;
procedure NSWindow.zoom(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_zoom)), _sender);
end;
function NSWindow.isMiniaturized: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMiniaturized)), []));
end;
function NSWindow.tryToPerform_with(_anAction: SEL; _anObject: objc.id): LongBool;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_anAction: SEL; _anObject: objc.id): LongBool; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_tryToPerform_with)), _anAction, _anObject));
end;
function NSWindow.validRequestorForSendType_returnType(_sendType: CFStringRef; _returnType: CFStringRef): objc.id;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_sendType: CFStringRef; _returnType: CFStringRef): objc.id; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_validRequestorForSendType_returnType)), _sendType, _returnType));
end;
procedure NSWindow.setBackgroundColor(_color: objc.id {NSColor});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_color: objc.id {NSColor}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setBackgroundColor)), _color);
end;
function NSWindow.backgroundColor: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_backgroundColor)), []));
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
procedure NSWindow.setMovableByWindowBackground(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMovableByWindowBackground)), _flag);
end;
function NSWindow.isMovableByWindowBackground: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMovableByWindowBackground)), []));
end;
{.$endif}
procedure NSWindow.setHidesOnDeactivate(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setHidesOnDeactivate)), _flag);
end;
function NSWindow.hidesOnDeactivate: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hidesOnDeactivate)), []));
end;
procedure NSWindow.setCanHide(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setCanHide)), _flag);
end;
function NSWindow.canHide: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canHide)), []));
end;
procedure NSWindow.center;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_center)), []);
end;
procedure NSWindow.makeKeyAndOrderFront(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_makeKeyAndOrderFront)), _sender);
end;
procedure NSWindow.orderFront(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_orderFront)), _sender);
end;
procedure NSWindow.orderBack(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_orderBack)), _sender);
end;
procedure NSWindow.orderOut(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_orderOut)), _sender);
end;
procedure NSWindow.orderWindow_relativeTo(_place: NSWindowOrderingMode; _otherWin: Integer);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_place: NSWindowOrderingMode; _otherWin: Integer); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_orderWindow_relativeTo)), _place, _otherWin);
end;
procedure NSWindow.orderFrontRegardless;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_orderFrontRegardless)), []);
end;
procedure NSWindow.setMiniwindowImage(_image: objc.id {NSImage});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_image: objc.id {NSImage}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMiniwindowImage)), _image);
end;
procedure NSWindow.setMiniwindowTitle(_title: CFStringRef);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_title: CFStringRef); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMiniwindowTitle)), _title);
end;
function NSWindow.miniwindowImage: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_miniwindowImage)), []));
end;
function NSWindow.miniwindowTitle: CFStringRef;
begin
Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_miniwindowTitle)), []));
end;
procedure NSWindow.setDocumentEdited(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDocumentEdited)), _flag);
end;
function NSWindow.isDocumentEdited: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isDocumentEdited)), []));
end;
function NSWindow.isVisible: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isVisible)), []));
end;
function NSWindow.isKeyWindow: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isKeyWindow)), []));
end;
function NSWindow.isMainWindow: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMainWindow)), []));
end;
function NSWindow.canBecomeKeyWindow: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeKeyWindow)), []));
end;
function NSWindow.canBecomeMainWindow: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeMainWindow)), []));
end;
procedure NSWindow.makeKeyWindow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_makeKeyWindow)), []);
end;
procedure NSWindow.makeMainWindow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_makeMainWindow)), []);
end;
procedure NSWindow.becomeKeyWindow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_becomeKeyWindow)), []);
end;
procedure NSWindow.resignKeyWindow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resignKeyWindow)), []);
end;
procedure NSWindow.becomeMainWindow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_becomeMainWindow)), []);
end;
procedure NSWindow.resignMainWindow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resignMainWindow)), []);
end;
function NSWindow.worksWhenModal: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_worksWhenModal)), []));
end;
function NSWindow.convertBaseToScreen(_aPoint: NSPoint): NSPoint;
type
TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_aPoint: NSPoint); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_convertBaseToScreen)), _aPoint);
end;
function NSWindow.convertScreenToBase(_aPoint: NSPoint): NSPoint;
type
TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_aPoint: NSPoint); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend_fpret);
vmethod(@Result, Handle, sel_registerName(PChar(StrNSWindow_convertScreenToBase)), _aPoint);
end;
procedure NSWindow.performClose(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_performClose)), _sender);
end;
procedure NSWindow.performMiniaturize(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_performMiniaturize)), _sender);
end;
procedure NSWindow.performZoom(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_performZoom)), _sender);
end;
function NSWindow.gState: Integer;
begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_gState)), []));
end;
procedure NSWindow.setOneShot(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setOneShot)), _flag);
end;
function NSWindow.isOneShot: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOneShot)), []));
end;
function NSWindow.dataWithEPSInsideRect(_rect: NSRect): CFDataRef;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_rect: NSRect): CFDataRef; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := CFDataRef(vmethod(Handle, sel_registerName(PChar(StrNSWindow_dataWithEPSInsideRect)), _rect));
end;
function NSWindow.dataWithPDFInsideRect(_rect: NSRect): CFDataRef;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_rect: NSRect): CFDataRef; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := CFDataRef(vmethod(Handle, sel_registerName(PChar(StrNSWindow_dataWithPDFInsideRect)), _rect));
end;
procedure NSWindow.print(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_print)), _sender);
end;
procedure NSWindow.disableCursorRects;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_disableCursorRects)), []);
end;
procedure NSWindow.enableCursorRects;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_enableCursorRects)), []);
end;
procedure NSWindow.discardCursorRects;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_discardCursorRects)), []);
end;
function NSWindow.areCursorRectsEnabled: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_areCursorRectsEnabled)), []));
end;
procedure NSWindow.invalidateCursorRectsForView(_aView: objc.id {NSView});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aView: objc.id {NSView}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_invalidateCursorRectsForView)), _aView);
end;
procedure NSWindow.resetCursorRects;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resetCursorRects)), []);
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
procedure NSWindow.setAllowsToolTipsWhenApplicationIsInactive(_allowWhenInactive: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_allowWhenInactive: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAllowsToolTipsWhenApplicationIsInactive)), _allowWhenInactive);
end;
function NSWindow.allowsToolTipsWhenApplicationIsInactive: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_allowsToolTipsWhenApplicationIsInactive)), []));
end;
{.$endif}
procedure NSWindow.setBackingType(_bufferingType: NSBackingStoreType);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_bufferingType: NSBackingStoreType); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setBackingType)), _bufferingType);
end;
function NSWindow.backingType: NSBackingStoreType;
begin
Result := NSBackingStoreType(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_backingType)), []));
end;
procedure NSWindow.setLevel(_newLevel: Integer);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_newLevel: Integer); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setLevel)), _newLevel);
end;
function NSWindow.level: Integer;
begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_level)), []));
end;
procedure NSWindow.setDepthLimit(_limit: NSWindowDepth);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_limit: NSWindowDepth); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDepthLimit)), _limit);
end;
function NSWindow.depthLimit: NSWindowDepth;
begin
Result := NSWindowDepth(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_depthLimit)), []));
end;
procedure NSWindow.setDynamicDepthLimit(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDynamicDepthLimit)), _flag);
end;
function NSWindow.hasDynamicDepthLimit: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasDynamicDepthLimit)), []));
end;
function NSWindow.screen: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_screen)), []));
end;
function NSWindow.deepestScreen: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_deepestScreen)), []));
end;
function NSWindow.canStoreColor: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canStoreColor)), []));
end;
procedure NSWindow.setHasShadow(_hasShadow: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_hasShadow: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setHasShadow)), _hasShadow);
end;
function NSWindow.hasShadow: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasShadow)), []));
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
procedure NSWindow.invalidateShadow;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_invalidateShadow)), []);
end;
{.$endif}
procedure NSWindow.setAlphaValue(_windowAlpha: Single);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_windowAlpha: Single); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAlphaValue)), _windowAlpha);
end;
function NSWindow.alphaValue: Single;
begin
Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_alphaValue)), []));
end;
procedure NSWindow.setOpaque(_isOpaque: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_isOpaque: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setOpaque)), _isOpaque);
end;
function NSWindow.isOpaque: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOpaque)), []));
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
function NSWindow.displaysWhenScreenProfileChanges: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_displaysWhenScreenProfileChanges)), []));
end;
procedure NSWindow.setDisplaysWhenScreenProfileChanges(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDisplaysWhenScreenProfileChanges)), _flag);
end;
procedure NSWindow.disableScreenUpdatesUntilFlush;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_disableScreenUpdatesUntilFlush)), []);
end;
{.$endif}
function NSWindow.stringWithSavedFrame: CFStringRef;
begin
Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_stringWithSavedFrame)), []));
end;
procedure NSWindow.setFrameFromString(__string: CFStringRef);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;__string: CFStringRef); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameFromString)), __string);
end;
procedure NSWindow.saveFrameUsingName(_name: CFStringRef);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_name: CFStringRef); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_saveFrameUsingName)), _name);
end;
function NSWindow.setFrameUsingName_force(_name: CFStringRef; _force: LongBool): LongBool;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_name: CFStringRef; _force: LongBool): LongBool; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameUsingName_force)), _name, _force));
end;
function NSWindow.setFrameUsingName(_name: CFStringRef): LongBool;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_name: CFStringRef): LongBool; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameUsingName)), _name));
end;
function NSWindow.setFrameAutosaveName(_name: CFStringRef): LongBool;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_name: CFStringRef): LongBool; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSWindow_setFrameAutosaveName)), _name));
end;
function NSWindow.frameAutosaveName: CFStringRef;
begin
Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_frameAutosaveName)), []));
end;
class procedure NSWindow.removeFrameUsingName(_name: CFStringRef);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_name: CFStringRef); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(getClass, sel_registerName(PChar(StrNSWindow_removeFrameUsingName)), _name);
end;
procedure NSWindow.cacheImageInRect(_aRect: NSRect);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aRect: NSRect); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_cacheImageInRect)), _aRect);
end;
procedure NSWindow.restoreCachedImage;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_restoreCachedImage)), []);
end;
procedure NSWindow.discardCachedImage;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_discardCachedImage)), []);
end;
function NSWindow.minSize: NSSize;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_minSize)), []);
end;
function NSWindow.maxSize: NSSize;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_maxSize)), []);
end;
procedure NSWindow.setMinSize(_size: NSSize);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_size: NSSize); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMinSize)), _size);
end;
procedure NSWindow.setMaxSize(_size: NSSize);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_size: NSSize); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setMaxSize)), _size);
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
function NSWindow.contentMinSize: NSSize;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentMinSize)), []);
end;
function NSWindow.contentMaxSize: NSSize;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_contentMaxSize)), []);
end;
procedure NSWindow.setContentMinSize(_size: NSSize);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_size: NSSize); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentMinSize)), _size);
end;
procedure NSWindow.setContentMaxSize(_size: NSSize);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_size: NSSize); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setContentMaxSize)), _size);
end;
{.$endif}
function NSWindow.nextEventMatchingMask(_mask: LongWord): objc.id;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_mask: LongWord): objc.id; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_nextEventMatchingMask)), _mask));
end;
function NSWindow.nextEventMatchingMask_untilDate_inMode_dequeue(_mask: LongWord; _expiration: CFDateRef; _mode: CFStringRef; _deqFlag: LongBool): objc.id;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_mask: LongWord; _expiration: CFDateRef; _mode: CFStringRef; _deqFlag: LongBool): objc.id; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_nextEventMatchingMask_untilDate_inMode_dequeue)), _mask, _expiration, _mode, _deqFlag));
end;
procedure NSWindow.discardEventsMatchingMask_beforeEvent(_mask: LongWord; _lastEvent: objc.id {NSEvent});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_mask: LongWord; _lastEvent: objc.id {NSEvent}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_discardEventsMatchingMask_beforeEvent)), _mask, _lastEvent);
end;
procedure NSWindow.postEvent_atStart(_event: objc.id {NSEvent}; _flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_event: objc.id {NSEvent}; _flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_postEvent_atStart)), _event, _flag);
end;
function NSWindow.currentEvent: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_currentEvent)), []));
end;
procedure NSWindow.setAcceptsMouseMovedEvents(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAcceptsMouseMovedEvents)), _flag);
end;
function NSWindow.acceptsMouseMovedEvents: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_acceptsMouseMovedEvents)), []));
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
procedure NSWindow.setIgnoresMouseEvents(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setIgnoresMouseEvents)), _flag);
end;
function NSWindow.ignoresMouseEvents: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_ignoresMouseEvents)), []));
end;
{.$endif}
function NSWindow.deviceDescription: CFDictionaryRef;
begin
Result := CFDictionaryRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_deviceDescription)), []));
end;
procedure NSWindow.sendEvent(_theEvent: objc.id {NSEvent});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_theEvent: objc.id {NSEvent}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_sendEvent)), _theEvent);
end;
function NSWindow.mouseLocationOutsideOfEventStream: NSPoint;
begin
objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSWindow_mouseLocationOutsideOfEventStream)), []);
end;
class procedure NSWindow.menuChanged(_menu: objc.id {NSMenu});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_menu: objc.id {NSMenu}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(getClass, sel_registerName(PChar(StrNSWindow_menuChanged)), _menu);
end;
function NSWindow.windowController: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowController)), []));
end;
procedure NSWindow.setWindowController(_windowController: objc.id {NSWindowController});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_windowController: objc.id {NSWindowController}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setWindowController)), _windowController);
end;
function NSWindow.isSheet: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isSheet)), []));
end;
function NSWindow.attachedSheet: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_attachedSheet)), []));
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
class function NSWindow.standardWindowButton_forStyleMask(_b: NSWindowButton; _styleMask: LongWord): objc.id;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_b: NSWindowButton; _styleMask: LongWord): objc.id; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := objc.id(vmethod(getClass, sel_registerName(PChar(StrNSWindow_standardWindowButton_forStyleMask)), _b, _styleMask));
end;
function NSWindow.standardWindowButton(_b: NSWindowButton): objc.id;
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_b: NSWindowButton): objc.id; cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSWindow_standardWindowButton)), _b));
end;
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
procedure NSWindow.addChildWindow_ordered(_childWin: objc.id {NSWindow}; _place: NSWindowOrderingMode);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_childWin: objc.id {NSWindow}; _place: NSWindowOrderingMode); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_addChildWindow_ordered)), _childWin, _place);
end;
procedure NSWindow.removeChildWindow(_childWin: objc.id {NSWindow});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_childWin: objc.id {NSWindow}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_removeChildWindow)), _childWin);
end;
function NSWindow.childWindows: CFArrayRef;
begin
Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_childWindows)), []));
end;
function NSWindow.parentWindow: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_parentWindow)), []));
end;
procedure NSWindow.setParentWindow(_window: objc.id {NSWindow});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_window: objc.id {NSWindow}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setParentWindow)), _window);
end;
{.$endif}
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
function NSWindow.graphicsContext: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_graphicsContext)), []));
end;
function NSWindow.userSpaceScaleFactor: Single;
begin
Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_userSpaceScaleFactor)), []));
end;
{.$endif}
procedure NSWindow.setInitialFirstResponder(_view: objc.id {NSView});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_view: objc.id {NSView}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setInitialFirstResponder)), _view);
end;
function NSWindow.initialFirstResponder: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_initialFirstResponder)), []));
end;
procedure NSWindow.selectNextKeyView(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_selectNextKeyView)), _sender);
end;
procedure NSWindow.selectPreviousKeyView(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_selectPreviousKeyView)), _sender);
end;
procedure NSWindow.selectKeyViewFollowingView(_aView: objc.id {NSView});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aView: objc.id {NSView}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_selectKeyViewFollowingView)), _aView);
end;
procedure NSWindow.selectKeyViewPrecedingView(_aView: objc.id {NSView});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_aView: objc.id {NSView}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_selectKeyViewPrecedingView)), _aView);
end;
function NSWindow.keyViewSelectionDirection: NSSelectionDirection;
begin
Result := NSSelectionDirection(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_keyViewSelectionDirection)), []));
end;
procedure NSWindow.setDefaultButtonCell(_defButt: objc.id {NSButtonCell});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_defButt: objc.id {NSButtonCell}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setDefaultButtonCell)), _defButt);
end;
function NSWindow.defaultButtonCell: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_defaultButtonCell)), []));
end;
procedure NSWindow.disableKeyEquivalentForDefaultButtonCell;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_disableKeyEquivalentForDefaultButtonCell)), []);
end;
procedure NSWindow.enableKeyEquivalentForDefaultButtonCell;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_enableKeyEquivalentForDefaultButtonCell)), []);
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
procedure NSWindow.setAutorecalculatesKeyViewLoop(_flag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setAutorecalculatesKeyViewLoop)), _flag);
end;
function NSWindow.autorecalculatesKeyViewLoop: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_autorecalculatesKeyViewLoop)), []));
end;
procedure NSWindow.recalculateKeyViewLoop;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_recalculateKeyViewLoop)), []);
end;
{.$endif}
procedure NSWindow.setToolbar(_toolbar: objc.id {NSToolbar});
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_toolbar: objc.id {NSToolbar}); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setToolbar)), _toolbar);
end;
function NSWindow.toolbar: objc.id;
begin
Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_toolbar)), []));
end;
procedure NSWindow.toggleToolbarShown(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_toggleToolbarShown)), _sender);
end;
procedure NSWindow.runToolbarCustomizationPalette(_sender: objc.id);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_runToolbarCustomizationPalette)), _sender);
end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
procedure NSWindow.setShowsToolbarButton(_show: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_show: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_setShowsToolbarButton)), _show);
end;
function NSWindow.showsToolbarButton: LongBool;
begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsToolbarButton)), []));
end;
{.$endif}
procedure NSWindow.dragImage_at_offset_event_pasteboard_source_slideBack(_anImage: objc.id {NSImage}; _baseLocation: NSPoint; _initialOffset: NSSize; _event: objc.id {NSEvent}; _pboard: objc.id {NSPasteboard}; _sourceObj: objc.id; _slideFlag: LongBool);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_anImage: objc.id {NSImage}; _baseLocation: NSPoint; _initialOffset: NSSize; _event: objc.id {NSEvent}; _pboard: objc.id {NSPasteboard}; _sourceObj: objc.id; _slideFlag: LongBool); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_dragImage_at_offset_event_pasteboard_source_slideBack)), _anImage, _baseLocation, _initialOffset, _event, _pboard, _sourceObj, _slideFlag);
end;
procedure NSWindow.registerForDraggedTypes(_newTypes: CFArrayRef);
type
TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_newTypes: CFArrayRef); cdecl;
var
vmethod: TmsgSendWrapper;
begin
vmethod := TmsgSendWrapper(@objc_msgSend);
vmethod(Handle, sel_registerName(PChar(StrNSWindow_registerForDraggedTypes)), _newTypes);
end;
procedure NSWindow.unregisterDraggedTypes;
begin
objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_unregisterDraggedTypes)), []);
end;
function NSWindow.windowHandle: Pointer;
begin
Result := Pointer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowHandle)), []));
end;
constructor NSWindow.initWithWindowRef(_windowRef: Pointer);
type
TmsgSendWrapper = function (param1: objc.id; param2: SEL;_windowRef: Pointer): objc.id; cdecl;
var
vmethod: TmsgSendWrapper;
begin
ClassID := getClass();
allocbuf := objc_msgSend(ClassID, sel_registerName(PChar(Str_alloc)), []);
vmethod := TmsgSendWrapper(@objc_msgSend);
Handle := vmethod(allocbuf, sel_registerName(PChar(StrNSWindow_initWithWindowRef)), _windowRef);
end;
function NSWindow.windowRef: Pointer;
begin
Result := Pointer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowRef)), []));
end;
{$endif}
Reference in New Issue View Git Blame Copy Permalink