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