diff --git a/bindings/pascocoa/appkit/AppKit.inc b/bindings/pascocoa/appkit/AppKit.inc index 90a5cd0a1..9f7187150 100644 --- a/bindings/pascocoa/appkit/AppKit.inc +++ b/bindings/pascocoa/appkit/AppKit.inc @@ -30,7 +30,7 @@ #import } {$include NSMenu.inc} {$include NSMenuItem.inc} -{#import +{$include NSColor.inc> #import } {$include NSBitmapImageRep.inc} {#import @@ -103,7 +103,7 @@ #import #import #import } -//{$include NSTextView.inc} +{$include NSTextView.inc} {#import #import #import diff --git a/bindings/pascocoa/appkit/NSColor.inc b/bindings/pascocoa/appkit/NSColor.inc new file mode 100644 index 000000000..9b31a4c64 --- /dev/null +++ b/bindings/pascocoa/appkit/NSColor.inc @@ -0,0 +1,1282 @@ +{%mainunit appkit.pas} +(* + NSColor.h + Application Kit + Copyright (c) 1994-2005, Apple Computer, Inc. + All rights reserved. +*) + +{$ifdef HEADER} +{$ifndef NSCOLOR_PAS_H} +{$define NSCOLOR_PAS_H} + + +//#import +//#import +//#import +//#import +//APPKIT_EXTERN NSString *NSSystemColorsDidChangeNotification; +{$endif} +{$endif} + +{$ifdef FORWARD} + NSColor = class; + +{$endif} + +{$ifdef CLASSES} +{$ifndef NSCOLOR_PAS_C} +{$define NSCOLOR_PAS_C} + + + { NSColor } + + NSColor = class(NSObject) + public + class function getClass: objc.id; override; + // Create NSCalibratedWhiteColorSpace colors. + constructor colorWithCalibratedWhite_alpha(_white: Single; _alpha: Single); + // Create NSCalibratedRGBColorSpace colors. + constructor colorWithCalibratedHue_saturation_brightness_alpha(_hue: Single; _saturation: Single; _brightness: Single; _alpha: Single); + constructor colorWithCalibratedRed_green_blue_alpha(_red: Single; _green: Single; _blue: Single; _alpha: Single); + // Create colors in various device color spaces. In PostScript these colorspaces correspond + // directly to the device-dependent operators setgray, sethsbcolor, setrgbcolor, and + // setcmykcolor. + constructor colorWithDeviceWhite_alpha(_white: Single; _alpha: Single); + constructor colorWithDeviceHue_saturation_brightness_alpha(_hue: Single; _saturation: Single; _brightness: Single; _alpha: Single); + constructor colorWithDeviceRed_green_blue_alpha(_red: Single; _green: Single; _blue: Single; _alpha: Single); + constructor colorWithDeviceCyan_magenta_yellow_black_alpha(_cyan: Single; _magenta: Single; _yellow: Single; _black: Single; _alpha: Single); + // Create named colors from standard color catalogs (such as Pantone). + constructor colorWithCatalogName_colorName(_listName: CFStringRef; _colorName: CFStringRef); + constructor colorWithColorSpace_components_count(_space: objc.id {NSColorSpace}; _components: Single; _numberOfComponents: Integer); + constructor blackColor; + // 0.0 white + constructor darkGrayColor; + // 0.333 white + constructor lightGrayColor; + // 0.667 white + constructor whiteColor; + // 1.0 white + constructor grayColor; + // 0.5 white + constructor redColor; + // 1.0, 0.0, 0.0 RGB + constructor greenColor; + // 0.0, 1.0, 0.0 RGB + constructor blueColor; + // 0.0, 0.0, 1.0 RGB + constructor cyanColor; + // 0.0, 1.0, 1.0 RGB + constructor yellowColor; + // 1.0, 1.0, 0.0 RGB + constructor magentaColor; + // 1.0, 0.0, 1.0 RGB + constructor orangeColor; + // 1.0, 0.5, 0.0 RGB + constructor purpleColor; + // 0.5, 0.0, 0.5 RGB + constructor brownColor; + // 0.6, 0.4, 0.2 RGB + constructor clearColor; + // 0.0 white, 0.0 alpha + constructor controlShadowColor; + // Dark border for controls + constructor controlDarkShadowColor; + // Darker border for controls + constructor controlColor; + // Control face and old window background color + constructor controlHighlightColor; + // Light border for controls + constructor controlLightHighlightColor; + // Lighter border for controls + constructor controlTextColor; + // Text on controls + constructor controlBackgroundColor; + // Background of large controls (browser, tableview, clipview, ...) + constructor selectedControlColor; + // Control face for selected controls + constructor secondarySelectedControlColor; + // Color for selected controls when control is not active (that is, not focused) + constructor selectedControlTextColor; + // Text on selected controls + constructor disabledControlTextColor; + // Text on disabled controls + constructor textColor; + // Document text + constructor textBackgroundColor; + // Document text background + constructor selectedTextColor; + // Selected document text + constructor selectedTextBackgroundColor; + // Selected document text background + constructor gridColor; + // Grids in controls + constructor keyboardFocusIndicatorColor; + // Keyboard focus ring around controls + constructor windowBackgroundColor; + // Background fill for window contents + constructor scrollBarColor; + // Scroll bar slot color + constructor knobColor; + // Knob face color for controls + constructor selectedKnobColor; + // Knob face color for selected controls + constructor windowFrameColor; + // Window frames + constructor windowFrameTextColor; + // Text on window frames + constructor selectedMenuItemColor; + // Highlight color for menus + constructor selectedMenuItemTextColor; + // Highlight color for menu text + constructor highlightColor; + // Highlight color for UI elements (this is abstract and defines the color all highlights + // tend toward) + constructor shadowColor; + // Shadow color for UI elements (this is abstract and defines the color all shadows + // tend toward) + constructor headerColor; + // Background color for header cells in Table/OutlineView + constructor headerTextColor; + constructor alternateSelectedControlColor; + // Similar to selectedControlColor; for use in lists and tables + constructor alternateSelectedControlTextColor; + {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} + class function controlAlternatingRowBackgroundColors: CFArrayRef; + function highlightWithLevel(_val: Single): objc.id;{NSColor} + // val = 0 => receiver, val = 1 => highlightColor + function shadowWithLevel(_val: Single): objc.id;{NSColor} + // val = 0 => receiver, val = 1 => shadowColor + constructor colorForControlTint(_controlTint: NSControlTint); + class function currentControlTint: NSControlTint; + procedure set_; + procedure setFill; + procedure setStroke; + function colorSpaceName: CFStringRef; + // Convert the color to another colorspace, using a colorspace name. This may return + // nil if the specified conversion cannot be done. The abstract implementation of this + // method returns the receiver if the specified colorspace matches that of the receiver; + // otherwise it returns nil. Subclassers who can convert themselves to other colorspaces + // override this method to do something better. + // The version of this method which takes a device description allows the color to specialize + // itself for the given device. Device descriptions can be obtained from windows, screens, + // and printers with the "deviceDescription" method. + // If device is nil then the current device (as obtained from the currently lockFocus'ed + // view's window or, if printing, the current printer) is used. The method without the + // device: argument passes nil for the device. + // If colorSpace is nil, then the most appropriate color space is used. + function colorUsingColorSpaceName(_colorSpace: CFStringRef): objc.id;{NSColor} + function colorUsingColorSpaceName_device(_colorSpace: CFStringRef; _deviceDescription: CFDictionaryRef): objc.id;{NSColor} + function colorUsingColorSpace(_space: objc.id {NSColorSpace}): objc.id;{NSColor} + function blendedColorWithFraction_ofColor(_fraction: Single; _color: objc.id {NSColor}): objc.id;{NSColor} + // Returns a color in the same color space as the receiver with the specified alpha + // component. The abstract implementation of this method returns the receiver if alpha + // is 1.0, otherwise it returns nil; subclassers who have explicit opacity components + // override this method to actually return a color with the specified alpha. + function colorWithAlphaComponent(_alpha: Single): objc.id;{NSColor} + // ** Methods to get various components of colors. Not all of the methods apply to all + // colors; if called, they raise. ** + // Get the catalog and color name of standard colors from catalogs. These colors are + // special colors which are usually looked up on each device by their name. + function catalogNameComponent: CFStringRef; + function colorNameComponent: CFStringRef; + // Return localized versions of the above. + function localizedCatalogNameComponent: CFStringRef; + function localizedColorNameComponent: CFStringRef; + // Get the red, green, or blue components of NSCalibratedRGB or NSDeviceRGB colors. + function redComponent: Single; + function greenComponent: Single; + function blueComponent: Single; + procedure getRed_green_blue_alpha(_red: Single; _green: Single; _blue: Single; _alpha: Single); + // Get the components of NSCalibratedRGB or NSDeviceRGB colors as hue, saturation, + // or brightness. + function hueComponent: Single; + function saturationComponent: Single; + function brightnessComponent: Single; + procedure getHue_saturation_brightness_alpha(_hue: Single; _saturation: Single; _brightness: Single; _alpha: Single); + // Get the white component of NSCalibratedWhite or NSDeviceWhite colors. + function whiteComponent: Single; + procedure getWhite_alpha(_white: Single; _alpha: Single); + // Get the CMYK components of NSDeviceCMYK colors. + function cyanComponent: Single; + function magentaComponent: Single; + function yellowComponent: Single; + function blackComponent: Single; + procedure getCyan_magenta_yellow_black_alpha(_cyan: Single; _magenta: Single; _yellow: Single; _black: Single; _alpha: Single); + function colorSpace: objc.id;{NSColorSpace} + function numberOfComponents: Integer; + procedure getComponents(_components: Single); + function alphaComponent: Single; + // Pasteboard methods + constructor colorFromPasteboard(_pasteBoard: objc.id {NSPasteboard}); + procedure writeToPasteboard(_pasteBoard: objc.id {NSPasteboard}); + // Pattern methods. Note that colorWithPatternImage: mistakenly returns a non-autoreleased + // color in 10.1.x and earlier. This has been fixed in (NSAppKitVersionNumber >= NSAppKitVersionNumberWithPatternColorLeakFix), + // for apps linked post-10.1.x. + constructor colorWithPatternImage(_image: objc.id {NSImage}); + function patternImage: objc.id;{NSImage} + // Draws the color and adorns it to indicate the type of color. Used by colorwells, + // swatches, and other UI objects that need to display colors. Implementation in NSColor + // simply draws the color (with an indication of transparency if the color isn't fully + // opaque); subclassers can draw more stuff as they see fit. + procedure drawSwatchInRect(_rect: NSRect); + // Global flag for determining whether an application supports alpha. This flag is + // consulted when an application imports alpha (through color dragging, for instance). + // The value of this flag also determines whether the color panel has an opacity slider. + // This value is YES by default, indicating that the opacity components of imported + // colors will be set to 1.0. If an application wants alpha, it can either set the "NSIgnoreAlpha" + // default to NO or call the set method below. + // This method provides a global approach to removing alpha which might not always be + // appropriate. Applications which need to import alpha sometimes should set this flag + // to NO and explicitly make colors opaque in cases where it matters to them. + class procedure setIgnoresAlpha(_flag: LongBool); + class function ignoresAlpha: LongBool; + constructor colorWithCIColor(_color: objc.id {CIColor}); + end; + +{$endif} +{$endif} + +{$ifdef IMPLEMENTATION} +const + StrNSColor_NSColor = 'NSColor'; + StrNSColor_colorWithCalibratedWhite_alpha = 'colorWithCalibratedWhite:alpha:'; + StrNSColor_colorWithCalibratedHue_saturation_brightness_alpha = 'colorWithCalibratedHue:saturation:brightness:alpha:'; + StrNSColor_colorWithCalibratedRed_green_blue_alpha = 'colorWithCalibratedRed:green:blue:alpha:'; + StrNSColor_colorWithDeviceWhite_alpha = 'colorWithDeviceWhite:alpha:'; + StrNSColor_colorWithDeviceHue_saturation_brightness_alpha = 'colorWithDeviceHue:saturation:brightness:alpha:'; + StrNSColor_colorWithDeviceRed_green_blue_alpha = 'colorWithDeviceRed:green:blue:alpha:'; + StrNSColor_colorWithDeviceCyan_magenta_yellow_black_alpha = 'colorWithDeviceCyan:magenta:yellow:black:alpha:'; + StrNSColor_colorWithCatalogName_colorName = 'colorWithCatalogName:colorName:'; + StrNSColor_colorWithColorSpace_components_count = 'colorWithColorSpace:components:count:'; + StrNSColor_blackColor = 'blackColor'; + StrNSColor_darkGrayColor = 'darkGrayColor'; + StrNSColor_lightGrayColor = 'lightGrayColor'; + StrNSColor_whiteColor = 'whiteColor'; + StrNSColor_grayColor = 'grayColor'; + StrNSColor_redColor = 'redColor'; + StrNSColor_greenColor = 'greenColor'; + StrNSColor_blueColor = 'blueColor'; + StrNSColor_cyanColor = 'cyanColor'; + StrNSColor_yellowColor = 'yellowColor'; + StrNSColor_magentaColor = 'magentaColor'; + StrNSColor_orangeColor = 'orangeColor'; + StrNSColor_purpleColor = 'purpleColor'; + StrNSColor_brownColor = 'brownColor'; + StrNSColor_clearColor = 'clearColor'; + StrNSColor_controlShadowColor = 'controlShadowColor'; + StrNSColor_controlDarkShadowColor = 'controlDarkShadowColor'; + StrNSColor_controlColor = 'controlColor'; + StrNSColor_controlHighlightColor = 'controlHighlightColor'; + StrNSColor_controlLightHighlightColor = 'controlLightHighlightColor'; + StrNSColor_controlTextColor = 'controlTextColor'; + StrNSColor_controlBackgroundColor = 'controlBackgroundColor'; + StrNSColor_selectedControlColor = 'selectedControlColor'; + StrNSColor_secondarySelectedControlColor = 'secondarySelectedControlColor'; + StrNSColor_selectedControlTextColor = 'selectedControlTextColor'; + StrNSColor_disabledControlTextColor = 'disabledControlTextColor'; + StrNSColor_textColor = 'textColor'; + StrNSColor_textBackgroundColor = 'textBackgroundColor'; + StrNSColor_selectedTextColor = 'selectedTextColor'; + StrNSColor_selectedTextBackgroundColor = 'selectedTextBackgroundColor'; + StrNSColor_gridColor = 'gridColor'; + StrNSColor_keyboardFocusIndicatorColor = 'keyboardFocusIndicatorColor'; + StrNSColor_windowBackgroundColor = 'windowBackgroundColor'; + StrNSColor_scrollBarColor = 'scrollBarColor'; + StrNSColor_knobColor = 'knobColor'; + StrNSColor_selectedKnobColor = 'selectedKnobColor'; + StrNSColor_windowFrameColor = 'windowFrameColor'; + StrNSColor_windowFrameTextColor = 'windowFrameTextColor'; + StrNSColor_selectedMenuItemColor = 'selectedMenuItemColor'; + StrNSColor_selectedMenuItemTextColor = 'selectedMenuItemTextColor'; + StrNSColor_highlightColor = 'highlightColor'; + StrNSColor_shadowColor = 'shadowColor'; + StrNSColor_headerColor = 'headerColor'; + StrNSColor_headerTextColor = 'headerTextColor'; + StrNSColor_alternateSelectedControlColor = 'alternateSelectedControlColor'; + StrNSColor_alternateSelectedControlTextColor = 'alternateSelectedControlTextColor'; + StrNSColor_controlAlternatingRowBackgroundColors = 'controlAlternatingRowBackgroundColors'; + StrNSColor_highlightWithLevel = 'highlightWithLevel:'; + StrNSColor_shadowWithLevel = 'shadowWithLevel:'; + StrNSColor_colorForControlTint = 'colorForControlTint:'; + StrNSColor_currentControlTint = 'currentControlTint'; + StrNSColor_set = 'set'; + StrNSColor_setFill = 'setFill'; + StrNSColor_setStroke = 'setStroke'; + StrNSColor_colorSpaceName = 'colorSpaceName'; + StrNSColor_colorUsingColorSpaceName = 'colorUsingColorSpaceName:'; + StrNSColor_colorUsingColorSpaceName_device = 'colorUsingColorSpaceName:device:'; + StrNSColor_colorUsingColorSpace = 'colorUsingColorSpace:'; + StrNSColor_blendedColorWithFraction_ofColor = 'blendedColorWithFraction:ofColor:'; + StrNSColor_colorWithAlphaComponent = 'colorWithAlphaComponent:'; + StrNSColor_catalogNameComponent = 'catalogNameComponent'; + StrNSColor_colorNameComponent = 'colorNameComponent'; + StrNSColor_localizedCatalogNameComponent = 'localizedCatalogNameComponent'; + StrNSColor_localizedColorNameComponent = 'localizedColorNameComponent'; + StrNSColor_redComponent = 'redComponent'; + StrNSColor_greenComponent = 'greenComponent'; + StrNSColor_blueComponent = 'blueComponent'; + StrNSColor_getRed_green_blue_alpha = 'getRed:green:blue:alpha:'; + StrNSColor_hueComponent = 'hueComponent'; + StrNSColor_saturationComponent = 'saturationComponent'; + StrNSColor_brightnessComponent = 'brightnessComponent'; + StrNSColor_getHue_saturation_brightness_alpha = 'getHue:saturation:brightness:alpha:'; + StrNSColor_whiteComponent = 'whiteComponent'; + StrNSColor_getWhite_alpha = 'getWhite:alpha:'; + StrNSColor_cyanComponent = 'cyanComponent'; + StrNSColor_magentaComponent = 'magentaComponent'; + StrNSColor_yellowComponent = 'yellowComponent'; + StrNSColor_blackComponent = 'blackComponent'; + StrNSColor_getCyan_magenta_yellow_black_alpha = 'getCyan:magenta:yellow:black:alpha:'; + StrNSColor_colorSpace = 'colorSpace'; + StrNSColor_numberOfComponents = 'numberOfComponents'; + StrNSColor_getComponents = 'getComponents:'; + StrNSColor_alphaComponent = 'alphaComponent'; + StrNSColor_colorFromPasteboard = 'colorFromPasteboard:'; + StrNSColor_writeToPasteboard = 'writeToPasteboard:'; + StrNSColor_colorWithPatternImage = 'colorWithPatternImage:'; + StrNSColor_patternImage = 'patternImage'; + StrNSColor_drawSwatchInRect = 'drawSwatchInRect:'; + StrNSColor_setIgnoresAlpha = 'setIgnoresAlpha:'; + StrNSColor_ignoresAlpha = 'ignoresAlpha'; + + StrNSColor_colorWithCIColor = 'colorWithCIColor:'; + +{ NSColor } + +class function NSColor.getClass: objc.id; +begin + Result := objc_getClass(StrNSColor_NSColor); +end; + +constructor NSColor.colorWithCalibratedWhite_alpha(_white: Single; _alpha: Single); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_white: Single; _alpha: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithCalibratedWhite_alpha)), _white, _alpha); +end; + +constructor NSColor.colorWithCalibratedHue_saturation_brightness_alpha(_hue: Single; _saturation: Single; _brightness: Single; _alpha: Single); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_hue: Single; _saturation: Single; _brightness: Single; _alpha: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithCalibratedHue_saturation_brightness_alpha)), _hue, _saturation, _brightness, _alpha); +end; + +constructor NSColor.colorWithCalibratedRed_green_blue_alpha(_red: Single; _green: Single; _blue: Single; _alpha: Single); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_red: Single; _green: Single; _blue: Single; _alpha: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithCalibratedRed_green_blue_alpha)), _red, _green, _blue, _alpha); +end; + +constructor NSColor.colorWithDeviceWhite_alpha(_white: Single; _alpha: Single); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_white: Single; _alpha: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithDeviceWhite_alpha)), _white, _alpha); +end; + +constructor NSColor.colorWithDeviceHue_saturation_brightness_alpha(_hue: Single; _saturation: Single; _brightness: Single; _alpha: Single); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_hue: Single; _saturation: Single; _brightness: Single; _alpha: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithDeviceHue_saturation_brightness_alpha)), _hue, _saturation, _brightness, _alpha); +end; + +constructor NSColor.colorWithDeviceRed_green_blue_alpha(_red: Single; _green: Single; _blue: Single; _alpha: Single); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_red: Single; _green: Single; _blue: Single; _alpha: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithDeviceRed_green_blue_alpha)), _red, _green, _blue, _alpha); +end; + +constructor NSColor.colorWithDeviceCyan_magenta_yellow_black_alpha(_cyan: Single; _magenta: Single; _yellow: Single; _black: Single; _alpha: Single); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_cyan: Single; _magenta: Single; _yellow: Single; _black: Single; _alpha: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithDeviceCyan_magenta_yellow_black_alpha)), _cyan, _magenta, _yellow, _black, _alpha); +end; + +constructor NSColor.colorWithCatalogName_colorName(_listName: CFStringRef; _colorName: CFStringRef); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_listName: CFStringRef; _colorName: CFStringRef): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithCatalogName_colorName)), _listName, _colorName); +end; + +constructor NSColor.colorWithColorSpace_components_count(_space: objc.id {NSColorSpace}; _components: Single; _numberOfComponents: Integer); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_space: objc.id {NSColorSpace}; _components: Single; _numberOfComponents: Integer): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithColorSpace_components_count)), _space, _components, _numberOfComponents); +end; + +constructor NSColor.blackColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_blackColor))); +end; + +constructor NSColor.darkGrayColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_darkGrayColor))); +end; + +constructor NSColor.lightGrayColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_lightGrayColor))); +end; + +constructor NSColor.whiteColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_whiteColor))); +end; + +constructor NSColor.grayColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_grayColor))); +end; + +constructor NSColor.redColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_redColor))); +end; + +constructor NSColor.greenColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_greenColor))); +end; + +constructor NSColor.blueColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_blueColor))); +end; + +constructor NSColor.cyanColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_cyanColor))); +end; + +constructor NSColor.yellowColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_yellowColor))); +end; + +constructor NSColor.magentaColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_magentaColor))); +end; + +constructor NSColor.orangeColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_orangeColor))); +end; + +constructor NSColor.purpleColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_purpleColor))); +end; + +constructor NSColor.brownColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_brownColor))); +end; + +constructor NSColor.clearColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_clearColor))); +end; + +constructor NSColor.controlShadowColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_controlShadowColor))); +end; + +constructor NSColor.controlDarkShadowColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_controlDarkShadowColor))); +end; + +constructor NSColor.controlColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_controlColor))); +end; + +constructor NSColor.controlHighlightColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_controlHighlightColor))); +end; + +constructor NSColor.controlLightHighlightColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_controlLightHighlightColor))); +end; + +constructor NSColor.controlTextColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_controlTextColor))); +end; + +constructor NSColor.controlBackgroundColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_controlBackgroundColor))); +end; + +constructor NSColor.selectedControlColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_selectedControlColor))); +end; + +constructor NSColor.secondarySelectedControlColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_secondarySelectedControlColor))); +end; + +constructor NSColor.selectedControlTextColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_selectedControlTextColor))); +end; + +constructor NSColor.disabledControlTextColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_disabledControlTextColor))); +end; + +constructor NSColor.textColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_textColor))); +end; + +constructor NSColor.textBackgroundColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_textBackgroundColor))); +end; + +constructor NSColor.selectedTextColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_selectedTextColor))); +end; + +constructor NSColor.selectedTextBackgroundColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_selectedTextBackgroundColor))); +end; + +constructor NSColor.gridColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_gridColor))); +end; + +constructor NSColor.keyboardFocusIndicatorColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_keyboardFocusIndicatorColor))); +end; + +constructor NSColor.windowBackgroundColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_windowBackgroundColor))); +end; + +constructor NSColor.scrollBarColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_scrollBarColor))); +end; + +constructor NSColor.knobColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_knobColor))); +end; + +constructor NSColor.selectedKnobColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_selectedKnobColor))); +end; + +constructor NSColor.windowFrameColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_windowFrameColor))); +end; + +constructor NSColor.windowFrameTextColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_windowFrameTextColor))); +end; + +constructor NSColor.selectedMenuItemColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_selectedMenuItemColor))); +end; + +constructor NSColor.selectedMenuItemTextColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_selectedMenuItemTextColor))); +end; + +constructor NSColor.highlightColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_highlightColor))); +end; + +constructor NSColor.shadowColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_shadowColor))); +end; + +constructor NSColor.headerColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_headerColor))); +end; + +constructor NSColor.headerTextColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_headerTextColor))); +end; + +constructor NSColor.alternateSelectedControlColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_alternateSelectedControlColor))); +end; + +constructor NSColor.alternateSelectedControlTextColor; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_alternateSelectedControlTextColor))); +end; + +{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} +class function NSColor.controlAlternatingRowBackgroundColors: CFArrayRef; +begin + Result := CFArrayRef(objc_msgSend(getClass, sel_registerName(PChar(StrNSColor_controlAlternatingRowBackgroundColors)), [])); +end; + +function NSColor.highlightWithLevel(_val: Single): objc.id; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_val: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSColor_highlightWithLevel)), _val)); +end; + +function NSColor.shadowWithLevel(_val: Single): objc.id; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_val: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSColor_shadowWithLevel)), _val)); +end; + +constructor NSColor.colorForControlTint(_controlTint: NSControlTint); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_controlTint: NSControlTint): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorForControlTint)), _controlTint); +end; + +class function NSColor.currentControlTint: NSControlTint; +begin + Result := NSControlTint(objc_msgSend(getClass, sel_registerName(PChar(StrNSColor_currentControlTint)), [])); +end; + +procedure NSColor.set_; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_set)), []); +end; + +procedure NSColor.setFill; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_setFill)), []); +end; + +procedure NSColor.setStroke; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_setStroke)), []); +end; + +function NSColor.colorSpaceName: CFStringRef; +begin + Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_colorSpaceName)), [])); +end; + +function NSColor.colorUsingColorSpaceName(_colorSpace: CFStringRef): objc.id; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_colorSpace: CFStringRef): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSColor_colorUsingColorSpaceName)), _colorSpace)); +end; + +function NSColor.colorUsingColorSpaceName_device(_colorSpace: CFStringRef; _deviceDescription: CFDictionaryRef): objc.id; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_colorSpace: CFStringRef; _deviceDescription: CFDictionaryRef): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSColor_colorUsingColorSpaceName_device)), _colorSpace, _deviceDescription)); +end; + +function NSColor.colorUsingColorSpace(_space: objc.id {NSColorSpace}): objc.id; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_space: objc.id {NSColorSpace}): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSColor_colorUsingColorSpace)), _space)); +end; + +function NSColor.blendedColorWithFraction_ofColor(_fraction: Single; _color: objc.id {NSColor}): objc.id; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_fraction: Single; _color: objc.id {NSColor}): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSColor_blendedColorWithFraction_ofColor)), _fraction, _color)); +end; + +function NSColor.colorWithAlphaComponent(_alpha: Single): objc.id; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_alpha: Single): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSColor_colorWithAlphaComponent)), _alpha)); +end; + +function NSColor.catalogNameComponent: CFStringRef; +begin + Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_catalogNameComponent)), [])); +end; + +function NSColor.colorNameComponent: CFStringRef; +begin + Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_colorNameComponent)), [])); +end; + +function NSColor.localizedCatalogNameComponent: CFStringRef; +begin + Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_localizedCatalogNameComponent)), [])); +end; + +function NSColor.localizedColorNameComponent: CFStringRef; +begin + Result := CFStringRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_localizedColorNameComponent)), [])); +end; + +function NSColor.redComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_redComponent)), [])); +end; + +function NSColor.greenComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_greenComponent)), [])); +end; + +function NSColor.blueComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_blueComponent)), [])); +end; + +procedure NSColor.getRed_green_blue_alpha(_red: Single; _green: Single; _blue: Single; _alpha: Single); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_red: Single; _green: Single; _blue: Single; _alpha: Single); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSColor_getRed_green_blue_alpha)), _red, _green, _blue, _alpha); +end; + +function NSColor.hueComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_hueComponent)), [])); +end; + +function NSColor.saturationComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_saturationComponent)), [])); +end; + +function NSColor.brightnessComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_brightnessComponent)), [])); +end; + +procedure NSColor.getHue_saturation_brightness_alpha(_hue: Single; _saturation: Single; _brightness: Single; _alpha: Single); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_hue: Single; _saturation: Single; _brightness: Single; _alpha: Single); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSColor_getHue_saturation_brightness_alpha)), _hue, _saturation, _brightness, _alpha); +end; + +function NSColor.whiteComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_whiteComponent)), [])); +end; + +procedure NSColor.getWhite_alpha(_white: Single; _alpha: Single); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_white: Single; _alpha: Single); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSColor_getWhite_alpha)), _white, _alpha); +end; + +function NSColor.cyanComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_cyanComponent)), [])); +end; + +function NSColor.magentaComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_magentaComponent)), [])); +end; + +function NSColor.yellowComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_yellowComponent)), [])); +end; + +function NSColor.blackComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_blackComponent)), [])); +end; + +procedure NSColor.getCyan_magenta_yellow_black_alpha(_cyan: Single; _magenta: Single; _yellow: Single; _black: Single; _alpha: Single); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_cyan: Single; _magenta: Single; _yellow: Single; _black: Single; _alpha: Single); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSColor_getCyan_magenta_yellow_black_alpha)), _cyan, _magenta, _yellow, _black, _alpha); +end; + +function NSColor.colorSpace: objc.id; +begin + Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_colorSpace)), [])); +end; + +function NSColor.numberOfComponents: Integer; +begin + Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_numberOfComponents)), [])); +end; + +procedure NSColor.getComponents(_components: Single); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_components: Single); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSColor_getComponents)), _components); +end; + +function NSColor.alphaComponent: Single; +begin + Result := Single(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_alphaComponent)), [])); +end; + +constructor NSColor.colorFromPasteboard(_pasteBoard: objc.id {NSPasteboard}); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_pasteBoard: objc.id {NSPasteboard}): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorFromPasteboard)), _pasteBoard); +end; + +procedure NSColor.writeToPasteboard(_pasteBoard: objc.id {NSPasteboard}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_pasteBoard: objc.id {NSPasteboard}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSColor_writeToPasteboard)), _pasteBoard); +end; + +constructor NSColor.colorWithPatternImage(_image: objc.id {NSImage}); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_image: objc.id {NSImage}): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithPatternImage)), _image); +end; + +function NSColor.patternImage: objc.id; +begin + Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_patternImage)), [])); +end; + +procedure NSColor.drawSwatchInRect(_rect: NSRect); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_rect: NSRect); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSColor_drawSwatchInRect)), _rect); +end; + +class procedure NSColor.setIgnoresAlpha(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(getClass, sel_registerName(PChar(StrNSColor_setIgnoresAlpha)), _flag); +end; + +class function NSColor.ignoresAlpha: LongBool; +begin + Result := LongBool(objc_msgSend(getClass, sel_registerName(PChar(StrNSColor_ignoresAlpha)), [])); +end; + +constructor NSColor.colorWithCIColor(_color: objc.id {CIColor}); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_color: objc.id {CIColor}): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(ClassID, sel_registerName(PChar(StrNSColor_colorWithCIColor)), _color); +end; + +{$endif} diff --git a/bindings/pascocoa/appkit/NSTextView.inc b/bindings/pascocoa/appkit/NSTextView.inc new file mode 100644 index 000000000..d7f7c6389 --- /dev/null +++ b/bindings/pascocoa/appkit/NSTextView.inc @@ -0,0 +1,1755 @@ +{%mainunit appkit.pas} +(* + NSTextView.h + Application Kit + Copyright (c) 1994-2005, Apple Computer, Inc. + All rights reserved. +*) + +{$ifdef HEADER} +{$ifndef NSTEXTVIEW_PAS_H} +{$define NSTEXTVIEW_PAS_H} + + +//#import +//#import +//#import +//#import +//#import +//#import +type + NSSelectionGranularity = ( + NSSelectByCharacter = 0, + NSSelectByWord = 1, + NSSelectByParagraph = 2 + ); + + +type + NSSelectionAffinity = ( + NSSelectionAffinityUpstream = 0, + NSSelectionAffinityDownstream = 1 + ); + + +type + NSFindPanelAction = ( + NSFindPanelActionShowFindPanel = 1, + NSFindPanelActionNext = 2, + NSFindPanelActionPrevious = 3, + NSFindPanelActionReplaceAll = 4, + NSFindPanelActionReplace = 5, + NSFindPanelActionReplaceAndFind = 6, + NSFindPanelActionSetFindString = 7, + NSFindPanelActionReplaceAllInSelection = 8, + NSFindPanelActionSelectAll = 9, + NSFindPanelActionSelectAllInSelection = 10 + ); + + +//APPKIT_EXTERN NSString *NSTextViewWillChangeNotifyingTextViewNotification; +//APPKIT_EXTERN NSString *NSTextViewDidChangeSelectionNotification; +//APPKIT_EXTERN NSString *NSTextViewDidChangeTypingAttributesNotification AVAILABLE_MAC_OS_X_VERSION_10_3_AND_LATER; +{$endif} +{$endif} + +{$ifdef FORWARD} + NSTextView = class; + +{$endif} + +{$ifdef CLASSES} +{$ifndef NSTEXTVIEW_PAS_C} +{$define NSTEXTVIEW_PAS_C} + + + { NSTextView } + + NSTextView = class(NSText) + public + class function getClass: objc.id; override; + // *************************** Initializing *************************** + constructor initWithFrame_textContainer(_frameRect: NSRect; _container: objc.id {NSTextContainer}); + // Designated Initializer. container may be nil. + constructor initWithFrame(_frameRect: NSRect); + // This variant will create the text network (textStorage, layoutManager, and a container). + // **************** Get/Set the container and other stuff **************** + function textContainer: objc.id;{NSTextContainer} + procedure setTextContainer(_container: objc.id {NSTextContainer}); + // The set method should not be called directly, but you might want to override it. + // Gets or sets the text container for this view. Setting the text container marks + // the view as needing display. The text container calls the set method from its setTextView: + // method. + procedure replaceTextContainer(_newContainer: objc.id {NSTextContainer}); + // This method should be used instead of the primitive -setTextContainer: if you need + // to replace a view's text container with a new one leaving the rest of the web intact. + // This method deals with all the work of making sure the view doesn't get deallocated + // and removing the old container from the layoutManager and replacing it with the new + // one. + procedure setTextContainerInset(_inset: NSSize); + function textContainerInset: NSSize; + // The textContainerInset determines the padding that the view provides around the + // container. The container's origin will be inset by this amount from the bounds point + // {0,0} and padding will be left to the right and below the container of the same amount. + // This inset affects the view sizing in response to new layout and is used by the + // rectangular text containers when they track the view's frame dimensions. + function textContainerOrigin: NSPoint; + procedure invalidateTextContainerOrigin; + // The container's origin in the view is determined from the current usage of the container, + // the container inset, and the view size. textContainerOrigin returns this point. + // invalidateTextContainerOrigin is sent automatically whenever something changes that + // causes the origin to possibly move. You usually do not need to call invalidate yourself. + function layoutManager: objc.id;{NSLayoutManager} + function textStorage: objc.id;{NSTextStorage} + // Convenience methods + // ************************ Key binding entry-point ************************ + procedure insertText(_insertString: objc.id); + // This method is the funnel point for text insertion after keys pass through the key + // binder. + // ************************** Sizing methods ************************** + procedure setConstrainedFrameSize(_desiredSize: NSSize); + // Sets the frame size of the view to desiredSize constrained within min and max size. + // **************** New miscellaneous API above and beyond NSText **************** + procedure setAlignment_range(_alignment: NSTextAlignment; _range: NSRange); + procedure setBaseWritingDirection_range(_writingDirection: NSWritingDirection; _range: NSRange); + procedure turnOffKerning(_sender: objc.id); + procedure tightenKerning(_sender: objc.id); + procedure loosenKerning(_sender: objc.id); + procedure useStandardKerning(_sender: objc.id); + procedure turnOffLigatures(_sender: objc.id); + procedure useStandardLigatures(_sender: objc.id); + procedure useAllLigatures(_sender: objc.id); + procedure raiseBaseline(_sender: objc.id); + procedure lowerBaseline(_sender: objc.id); + procedure toggleTraditionalCharacterShape(_sender: objc.id); + procedure outline(_sender: objc.id); + {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} + procedure performFindPanelAction(_sender: objc.id); + procedure alignJustified(_sender: objc.id); + procedure changeColor(_sender: objc.id); + procedure changeAttributes(_sender: objc.id); + procedure changeDocumentBackgroundColor(_sender: objc.id); + procedure toggleBaseWritingDirection(_sender: objc.id); + {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} + procedure orderFrontSpacingPanel(_sender: objc.id); + procedure orderFrontLinkPanel(_sender: objc.id); + procedure orderFrontListPanel(_sender: objc.id); + procedure orderFrontTablePanel(_sender: objc.id); + procedure rulerView_didMoveMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}); + procedure rulerView_didRemoveMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}); + procedure rulerView_didAddMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}); + function rulerView_shouldMoveMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}): LongBool; + function rulerView_shouldAddMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}): LongBool; + function rulerView_willMoveMarker_toLocation(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}; _location: Single): Single; + function rulerView_shouldRemoveMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}): LongBool; + function rulerView_willAddMarker_atLocation(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}; _location: Single): Single; + procedure rulerView_handleMouseDown(_ruler: objc.id {NSRulerView}; _event: objc.id {NSEvent}); + // ************************** Fine display control ************************** + procedure setNeedsDisplayInRect_avoidAdditionalLayout(_rect: NSRect; _flag: LongBool); + function shouldDrawInsertionPoint: LongBool; + procedure drawInsertionPointInRect_color_turnedOn(_rect: NSRect; _color: objc.id {NSColor}; _flag: LongBool); + procedure drawViewBackgroundInRect(_rect: NSRect); + procedure updateRuler; + procedure updateFontPanel; + procedure updateDragTypeRegistration; + function selectionRangeForProposedRange_granularity(_proposedCharRange: NSRange; _granularity: NSSelectionGranularity): NSRange; + // ************************** Especially for subclassers ************************** + procedure clickedOnLink_atIndex(_link: objc.id; _charIndex: LongWord); + // Cause the text view to act as if someone clicked on a piece of text with link as + // the value of NSLinkAttributeName. If, for instance, you have a special attachment + // cell that can end up following links, you can use this method to ask the text view + // to follow a link once you decide it should. This method is invoked by the text view + // during mouse tracking if the user is clicking a link as well. This sends the textView:clickedOnLink: + // delegation if the delegate responds. + // ************************ Speech support ************************ + procedure startSpeaking(_sender: objc.id); + procedure stopSpeaking(_sender: objc.id); + // ************************ Completion support ******************** + procedure complete(_sender: objc.id); + // Responder method for invoking completion. May be invoked programmatically if autocompletion + // is desired. + function rangeForUserCompletion: NSRange; + // Usually returns the partial range from the most recent beginning of a word up to + // the insertion point. May be overridden by subclassers to alter the range to be completed. + // Returning (NSNotFound, 0) suppresses completion. + function completionsForPartialWordRange_indexOfSelectedItem(_charRange: NSRange; __index: Integer): CFArrayRef; + // Returns an array of potential completions, in the order to be presented, representing + // complete words that the user might be trying to type when starting by typing the + // partial word at the given range. May be overridden by subclassers to modify or override + // this list. Returning nil or a zero-length array suppresses completion. The selected + // item index may optionally be set to indicate which completion should be initially + // selected; default is 0, and -1 indicates no selection. This method should call the + // delegate method textView:completions:forPartialWordRange:indexOfSelectedItem: if + // implemented. + procedure insertCompletion_forPartialWordRange_movement_isFinal(_word: CFStringRef; _charRange: NSRange; _movement: Integer; _flag: LongBool); + // Called with final == NO as the user moves through the potential completions, then + // with final == YES when a completion is definitively selected (or completion is cancelled + // and the original value is reinserted). The default implementation inserts the completion + // into the text at the appropriate location. The movement argument takes its values + // from the movement codes defined in NSText.h, and allows subclassers to distinguish + // between cancelling completion and selection by arrow keys, by return, by tab, or + // by other means such as clicking. + // ****************** Pasteboard support (mainly for subclassers) ****************** + // To implement support for writing a new type, override -writeSelectionToPasteboard:type: + // to support your new type (and call super if you're not going to handle it.) Then + // you can override -writablePasteboardTypes and optionally the +registerForServices + // methods to enable the new type. + // To implement support for reading a new type, override -readSelectionFromPasteboard:type: + // to support your new type (and call super if you're not going to handle it.) Then + // you can override -readablePasteboardTypes and optionally the +registerForServices + // and acceptableDragTypes methods to enable the new type. Advanced drag acceptance + // behavior can be implemented with dragOperationForDraggingInfo:type: and cleanUpAfterDragOperation. + // To implement new mechanisms that cause data to be written to the pasteboard you + // can call writablePasteboardTypes and writeSelectionToPasteboard:types:. + // To implement new mechanisms that cause data to be read from the pasteboard you can + // call preferredPasteboardTypeFromArray:restrictedToTypesFromArray: and readSelectionFromPasteboard:type:. + function writablePasteboardTypes: CFArrayRef; + // Returns an array of pasteboard types that can be provided from the current selection. + // Overriders should copy the result from super and add their own new types. + function writeSelectionToPasteboard_type(_pboard: objc.id {NSPasteboard}; __type: CFStringRef): LongBool; + // Invoked automatically to write a single type to the pasteboard. The type will already + // have been declared to the pasteboard so this should merely write the data using the + // appropriate set method on the pasteboard. + function writeSelectionToPasteboard_types(_pboard: objc.id {NSPasteboard}; _types: CFArrayRef): LongBool; + // Delclares all the types to the pasteboard then calls writeSelectionToPasteboard:type: + // for each type in the array. + function readablePasteboardTypes: CFArrayRef; + // Returns an array of types that could be read currently in order of preference. + // Subclassers should take care to consider the "preferred" part of the semantics of + // this method. Figure out where your new type should fit into the preferred order. + // The preferred order should usually be from the richest types down to the less rich. + // The default array will start with RTFD, RTF, strings, files, images, colors and + // so on. The ordering list really starts to lose significance after the first few + // elements. If the new format you are supporting is richer than RTFD, put it at the + // head of the list, otherwise try to find the right place for it, but don't count on + // the actual contents of the list you get from super either. + function preferredPasteboardTypeFromArray_restrictedToTypesFromArray(_availableTypes: CFArrayRef; _allowedTypes: CFArrayRef): CFStringRef; + // Returns the most preferred type from the available types array that it is currently + // possible to read. If allowedTypes is provided then only those types will be considered + // regardless of whether others could currently be read. You should not have to override + // this to support new types. + function readSelectionFromPasteboard_type(_pboard: objc.id {NSPasteboard}; __type: CFStringRef): LongBool; + // Invoked automatically to read a specific type from the pasteboard. The type will + // already have been by the preferredPasteboardTypeFromArray:restrictedToTypesFromArray: + // method so this should merely read the data using the appropriate accessor method + // on the pasteboard. + function readSelectionFromPasteboard(_pboard: objc.id {NSPasteboard}): LongBool; + // Part of the services mechanism. This is implemented such that you should not need + // to override it to support new types. It should not be necessary to call this. + class procedure registerForServices; + // Automatically invoked when the first instance of NSTextView is created. Subclassing + // this is necessary to add support for new service types (in addition to actually supporting + // writing or reading the types, of course). Override it to call super and then register + // your own new types. You should probably never need to call this except to message + // super in an override. + function validRequestorForSendType_returnType(_sendType: CFStringRef; _returnType: CFStringRef): objc.id; + // This method is part of the services protocol and is implemented in such a way that + // if you extend the type support correctly you should not need to override it. You + // should never need to call it either. + procedure pasteAsPlainText(_sender: objc.id); + procedure pasteAsRichText(_sender: objc.id); + // These methods are like paste: (from NSResponder) but they restrict the acceptable + // type of the pasted data. They are suitable as menu actions for appropriate "Paste + // As" submenu commands. + function dragSelectionWithEvent_offset_slideBack(_event: objc.id {NSEvent}; _mouseOffset: NSSize; _slideBack: LongBool): LongBool; + // Causes textview to begin dragging current selected range, returning YES if it succeeds + // in initiating the drag. Primarily for subclassers, who can override it to intervene + // at beginning of a drag. + function dragImageForSelectionWithEvent_origin(_event: objc.id {NSEvent}; _origin: NSPointPointer): objc.id;{NSImage} + // Used by dragSelectionWithEvent:offset:slideBack: to get an appropriate image. Returns + // the lower-left point of the image in view coordinates as origin. Can be called by + // others who need such an image, or can be overridden by subclassers to return a different + // image (if it returns nil, a default icon will be used). + function acceptableDragTypes: CFArrayRef; + // Must be overridden to support new drag types in addition to adding support for reading + // and writing the type. Override it to call super, then make a copy of the result + // and add your own new types before returning the copy. You should probably never + // need to call this except to message super in an override. + function dragOperationForDraggingInfo_type(_dragInfo: objc.id; __type: CFStringRef): LongWord; + // This is called by draggingEntered:... and draggingUpdated:... It should return + // the drag operation constant appropriate to the current situation or NSDragOperationNone. + // It can also do any other auxilliary stuff like drawing a ghost to indicate where + // the dragged thing will go when it is dropped. Be aware that this is called over + // and over so if you're going to draw a ghost or something avoid doing it over and + // over unless you need to. Any state you set up in this method that needs to be cleared + // can be cleared by overriding the next method. You should probably never need to + // call this except to message super in an override. + procedure cleanUpAfterDragOperation; + function acceptsGlyphInfo: LongBool; + procedure setAcceptsGlyphInfo(_flag: LongBool); + function selectedRanges: CFArrayRef; + procedure setSelectedRanges_affinity_stillSelecting(_ranges: CFArrayRef; _affinity: NSSelectionAffinity; _stillSelectingFlag: LongBool); + procedure setSelectedRanges(_ranges: CFArrayRef); + procedure setSelectedRange_affinity_stillSelecting(_charRange: NSRange; _affinity: NSSelectionAffinity; _stillSelectingFlag: LongBool); + function selectionAffinity: NSSelectionAffinity; + function selectionGranularity: NSSelectionGranularity; + procedure setSelectionGranularity(_granularity: NSSelectionGranularity); + procedure setSelectedTextAttributes(_attributeDictionary: CFDictionaryRef); + function selectedTextAttributes: CFDictionaryRef; + procedure setInsertionPointColor(_color: objc.id {NSColor}); + function insertionPointColor: objc.id;{NSColor} + procedure updateInsertionPointStateAndRestartTimer(_restartFlag: LongBool); + procedure setMarkedTextAttributes(_attributeDictionary: CFDictionaryRef); + function markedTextAttributes: CFDictionaryRef; + procedure setLinkTextAttributes(_attributeDictionary: CFDictionaryRef); + function linkTextAttributes: CFDictionaryRef; + procedure setRulerVisible(_flag: LongBool); + function usesRuler: LongBool; + procedure setUsesRuler(_flag: LongBool); + procedure setContinuousSpellCheckingEnabled(_flag: LongBool); + function isContinuousSpellCheckingEnabled: LongBool; + procedure toggleContinuousSpellChecking(_sender: objc.id); + function spellCheckerDocumentTag: Integer; + function typingAttributes: CFDictionaryRef; + procedure setTypingAttributes(_attrs: CFDictionaryRef); + function shouldChangeTextInRanges_replacementStrings(_affectedRanges: CFArrayRef; _replacementStrings: CFArrayRef): LongBool; + function rangesForUserTextChange: CFArrayRef; + function rangesForUserCharacterAttributeChange: CFArrayRef; + function rangesForUserParagraphAttributeChange: CFArrayRef; + function shouldChangeTextInRange_replacementString(_affectedCharRange: NSRange; _replacementString: CFStringRef): LongBool; + procedure didChangeText; + function rangeForUserTextChange: NSRange; + function rangeForUserCharacterAttributeChange: NSRange; + function rangeForUserParagraphAttributeChange: NSRange; + procedure setUsesFindPanel(_flag: LongBool); + function usesFindPanel: LongBool; + procedure setAllowsDocumentBackgroundColorChange(_flag: LongBool); + function allowsDocumentBackgroundColorChange: LongBool; + procedure setDefaultParagraphStyle(_paragraphStyle: objc.id {NSParagraphStyle}); + function defaultParagraphStyle: objc.id;{NSParagraphStyle} + {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} + procedure breakUndoCoalescing; + function isSelectable: LongBool; + procedure setSelectable(_flag: LongBool); + function isEditable: LongBool; + procedure setEditable(_flag: LongBool); + function isRichText: LongBool; + procedure setRichText(_flag: LongBool); + function importsGraphics: LongBool; + procedure setImportsGraphics(_flag: LongBool); + function delegate: objc.id; + procedure setDelegate(_anObject: objc.id); + function isFieldEditor: LongBool; + procedure setFieldEditor(_flag: LongBool); + function usesFontPanel: LongBool; + procedure setUsesFontPanel(_flag: LongBool); + function isRulerVisible: LongBool; + procedure setBackgroundColor(_color: objc.id {NSColor}); + function backgroundColor: objc.id;{NSColor} + procedure setDrawsBackground(_flag: LongBool); + function drawsBackground: LongBool; + procedure setSelectedRange(_charRange: NSRange); + function allowsUndo: LongBool; + procedure setAllowsUndo(_flag: LongBool); + // ************************** NSResponder methods ************************** + function resignFirstResponder: LongBool; + function becomeFirstResponder: LongBool; + // ************************** Smart copy/paste/delete support ************************** + function smartInsertDeleteEnabled: LongBool; + procedure setSmartInsertDeleteEnabled(_flag: LongBool); + function smartDeleteRangeForProposedRange(_proposedCharRange: NSRange): NSRange; + procedure smartInsertForString_replacingRange_beforeString_afterString(_pasteString: CFStringRef; _charRangeToReplace: NSRange; _beforeString: CFStringRef; _afterString: CFStringRef); + function smartInsertBeforeStringForString_replacingRange(_pasteString: CFStringRef; _charRangeToReplace: NSRange): CFStringRef; + function smartInsertAfterStringForString_replacingRange(_pasteString: CFStringRef; _charRangeToReplace: NSRange): CFStringRef; + end; + +{$endif} +{$endif} + +{$ifdef IMPLEMENTATION} +const + StrNSTextView_NSTextView = 'NSTextView'; + StrNSTextView_initWithFrame_textContainer = 'initWithFrame:textContainer:'; + StrNSTextView_initWithFrame = 'initWithFrame:'; + StrNSTextView_textContainer = 'textContainer'; + StrNSTextView_setTextContainer = 'setTextContainer:'; + StrNSTextView_replaceTextContainer = 'replaceTextContainer:'; + StrNSTextView_setTextContainerInset = 'setTextContainerInset:'; + StrNSTextView_textContainerInset = 'textContainerInset'; + StrNSTextView_textContainerOrigin = 'textContainerOrigin'; + StrNSTextView_invalidateTextContainerOrigin = 'invalidateTextContainerOrigin'; + StrNSTextView_layoutManager = 'layoutManager'; + StrNSTextView_textStorage = 'textStorage'; + StrNSTextView_insertText = 'insertText:'; + StrNSTextView_setConstrainedFrameSize = 'setConstrainedFrameSize:'; + StrNSTextView_setAlignment_range = 'setAlignment:range:'; + StrNSTextView_setBaseWritingDirection_range = 'setBaseWritingDirection:range:'; + StrNSTextView_turnOffKerning = 'turnOffKerning:'; + StrNSTextView_tightenKerning = 'tightenKerning:'; + StrNSTextView_loosenKerning = 'loosenKerning:'; + StrNSTextView_useStandardKerning = 'useStandardKerning:'; + StrNSTextView_turnOffLigatures = 'turnOffLigatures:'; + StrNSTextView_useStandardLigatures = 'useStandardLigatures:'; + StrNSTextView_useAllLigatures = 'useAllLigatures:'; + StrNSTextView_raiseBaseline = 'raiseBaseline:'; + StrNSTextView_lowerBaseline = 'lowerBaseline:'; + StrNSTextView_toggleTraditionalCharacterShape = 'toggleTraditionalCharacterShape:'; + StrNSTextView_outline = 'outline:'; + StrNSTextView_performFindPanelAction = 'performFindPanelAction:'; + StrNSTextView_alignJustified = 'alignJustified:'; + StrNSTextView_changeColor = 'changeColor:'; + StrNSTextView_changeAttributes = 'changeAttributes:'; + StrNSTextView_changeDocumentBackgroundColor = 'changeDocumentBackgroundColor:'; + StrNSTextView_toggleBaseWritingDirection = 'toggleBaseWritingDirection:'; + StrNSTextView_orderFrontSpacingPanel = 'orderFrontSpacingPanel:'; + StrNSTextView_orderFrontLinkPanel = 'orderFrontLinkPanel:'; + StrNSTextView_orderFrontListPanel = 'orderFrontListPanel:'; + StrNSTextView_orderFrontTablePanel = 'orderFrontTablePanel:'; + StrNSTextView_rulerView_didMoveMarker = 'rulerView:didMoveMarker:'; + StrNSTextView_rulerView_didRemoveMarker = 'rulerView:didRemoveMarker:'; + StrNSTextView_rulerView_didAddMarker = 'rulerView:didAddMarker:'; + StrNSTextView_rulerView_shouldMoveMarker = 'rulerView:shouldMoveMarker:'; + StrNSTextView_rulerView_shouldAddMarker = 'rulerView:shouldAddMarker:'; + StrNSTextView_rulerView_willMoveMarker_toLocation = 'rulerView:willMoveMarker:toLocation:'; + StrNSTextView_rulerView_shouldRemoveMarker = 'rulerView:shouldRemoveMarker:'; + StrNSTextView_rulerView_willAddMarker_atLocation = 'rulerView:willAddMarker:atLocation:'; + StrNSTextView_rulerView_handleMouseDown = 'rulerView:handleMouseDown:'; + StrNSTextView_setNeedsDisplayInRect_avoidAdditionalLayout = 'setNeedsDisplayInRect:avoidAdditionalLayout:'; + StrNSTextView_shouldDrawInsertionPoint = 'shouldDrawInsertionPoint'; + StrNSTextView_drawInsertionPointInRect_color_turnedOn = 'drawInsertionPointInRect:color:turnedOn:'; + StrNSTextView_drawViewBackgroundInRect = 'drawViewBackgroundInRect:'; + StrNSTextView_updateRuler = 'updateRuler'; + StrNSTextView_updateFontPanel = 'updateFontPanel'; + StrNSTextView_updateDragTypeRegistration = 'updateDragTypeRegistration'; + StrNSTextView_selectionRangeForProposedRange_granularity = 'selectionRangeForProposedRange:granularity:'; + StrNSTextView_clickedOnLink_atIndex = 'clickedOnLink:atIndex:'; + StrNSTextView_startSpeaking = 'startSpeaking:'; + StrNSTextView_stopSpeaking = 'stopSpeaking:'; + + StrNSTextView_complete = 'complete:'; + StrNSTextView_rangeForUserCompletion = 'rangeForUserCompletion'; + StrNSTextView_completionsForPartialWordRange_indexOfSelectedItem = 'completionsForPartialWordRange:indexOfSelectedItem:'; + StrNSTextView_insertCompletion_forPartialWordRange_movement_isFinal = 'insertCompletion:forPartialWordRange:movement:isFinal:'; + + StrNSTextView_writablePasteboardTypes = 'writablePasteboardTypes'; + StrNSTextView_writeSelectionToPasteboard_type = 'writeSelectionToPasteboard:type:'; + StrNSTextView_writeSelectionToPasteboard_types = 'writeSelectionToPasteboard:types:'; + StrNSTextView_readablePasteboardTypes = 'readablePasteboardTypes'; + StrNSTextView_preferredPasteboardTypeFromArray_restrictedToTypesFromArray = 'preferredPasteboardTypeFromArray:restrictedToTypesFromArray:'; + StrNSTextView_readSelectionFromPasteboard_type = 'readSelectionFromPasteboard:type:'; + StrNSTextView_readSelectionFromPasteboard = 'readSelectionFromPasteboard:'; + StrNSTextView_registerForServices = 'registerForServices'; + StrNSTextView_validRequestorForSendType_returnType = 'validRequestorForSendType:returnType:'; + StrNSTextView_pasteAsPlainText = 'pasteAsPlainText:'; + StrNSTextView_pasteAsRichText = 'pasteAsRichText:'; + + StrNSTextView_dragSelectionWithEvent_offset_slideBack = 'dragSelectionWithEvent:offset:slideBack:'; + StrNSTextView_dragImageForSelectionWithEvent_origin = 'dragImageForSelectionWithEvent:origin:'; + StrNSTextView_acceptableDragTypes = 'acceptableDragTypes'; + StrNSTextView_dragOperationForDraggingInfo_type = 'dragOperationForDraggingInfo:type:'; + StrNSTextView_cleanUpAfterDragOperation = 'cleanUpAfterDragOperation'; + StrNSTextView_acceptsGlyphInfo = 'acceptsGlyphInfo'; + StrNSTextView_setAcceptsGlyphInfo = 'setAcceptsGlyphInfo:'; + + StrNSTextView_selectedRanges = 'selectedRanges'; + StrNSTextView_setSelectedRanges_affinity_stillSelecting = 'setSelectedRanges:affinity:stillSelecting:'; + StrNSTextView_setSelectedRanges = 'setSelectedRanges:'; + StrNSTextView_setSelectedRange_affinity_stillSelecting = 'setSelectedRange:affinity:stillSelecting:'; + StrNSTextView_selectionAffinity = 'selectionAffinity'; + StrNSTextView_selectionGranularity = 'selectionGranularity'; + StrNSTextView_setSelectionGranularity = 'setSelectionGranularity:'; + StrNSTextView_setSelectedTextAttributes = 'setSelectedTextAttributes:'; + StrNSTextView_selectedTextAttributes = 'selectedTextAttributes'; + StrNSTextView_setInsertionPointColor = 'setInsertionPointColor:'; + StrNSTextView_insertionPointColor = 'insertionPointColor'; + StrNSTextView_updateInsertionPointStateAndRestartTimer = 'updateInsertionPointStateAndRestartTimer:'; + StrNSTextView_setMarkedTextAttributes = 'setMarkedTextAttributes:'; + StrNSTextView_markedTextAttributes = 'markedTextAttributes'; + StrNSTextView_setLinkTextAttributes = 'setLinkTextAttributes:'; + StrNSTextView_linkTextAttributes = 'linkTextAttributes'; + StrNSTextView_setRulerVisible = 'setRulerVisible:'; + StrNSTextView_usesRuler = 'usesRuler'; + StrNSTextView_setUsesRuler = 'setUsesRuler:'; + StrNSTextView_setContinuousSpellCheckingEnabled = 'setContinuousSpellCheckingEnabled:'; + StrNSTextView_isContinuousSpellCheckingEnabled = 'isContinuousSpellCheckingEnabled'; + StrNSTextView_toggleContinuousSpellChecking = 'toggleContinuousSpellChecking:'; + StrNSTextView_spellCheckerDocumentTag = 'spellCheckerDocumentTag'; + StrNSTextView_typingAttributes = 'typingAttributes'; + StrNSTextView_setTypingAttributes = 'setTypingAttributes:'; + StrNSTextView_shouldChangeTextInRanges_replacementStrings = 'shouldChangeTextInRanges:replacementStrings:'; + StrNSTextView_rangesForUserTextChange = 'rangesForUserTextChange'; + StrNSTextView_rangesForUserCharacterAttributeChange = 'rangesForUserCharacterAttributeChange'; + StrNSTextView_rangesForUserParagraphAttributeChange = 'rangesForUserParagraphAttributeChange'; + StrNSTextView_shouldChangeTextInRange_replacementString = 'shouldChangeTextInRange:replacementString:'; + StrNSTextView_didChangeText = 'didChangeText'; + StrNSTextView_rangeForUserTextChange = 'rangeForUserTextChange'; + StrNSTextView_rangeForUserCharacterAttributeChange = 'rangeForUserCharacterAttributeChange'; + StrNSTextView_rangeForUserParagraphAttributeChange = 'rangeForUserParagraphAttributeChange'; + StrNSTextView_setUsesFindPanel = 'setUsesFindPanel:'; + StrNSTextView_usesFindPanel = 'usesFindPanel'; + StrNSTextView_setAllowsDocumentBackgroundColorChange = 'setAllowsDocumentBackgroundColorChange:'; + StrNSTextView_allowsDocumentBackgroundColorChange = 'allowsDocumentBackgroundColorChange'; + StrNSTextView_setDefaultParagraphStyle = 'setDefaultParagraphStyle:'; + StrNSTextView_defaultParagraphStyle = 'defaultParagraphStyle'; + StrNSTextView_breakUndoCoalescing = 'breakUndoCoalescing'; + StrNSTextView_isSelectable = 'isSelectable'; + StrNSTextView_setSelectable = 'setSelectable:'; + StrNSTextView_isEditable = 'isEditable'; + StrNSTextView_setEditable = 'setEditable:'; + StrNSTextView_isRichText = 'isRichText'; + StrNSTextView_setRichText = 'setRichText:'; + StrNSTextView_importsGraphics = 'importsGraphics'; + StrNSTextView_setImportsGraphics = 'setImportsGraphics:'; + StrNSTextView_delegate = 'delegate'; + StrNSTextView_setDelegate = 'setDelegate:'; + StrNSTextView_isFieldEditor = 'isFieldEditor'; + StrNSTextView_setFieldEditor = 'setFieldEditor:'; + StrNSTextView_usesFontPanel = 'usesFontPanel'; + StrNSTextView_setUsesFontPanel = 'setUsesFontPanel:'; + StrNSTextView_isRulerVisible = 'isRulerVisible'; + StrNSTextView_setBackgroundColor = 'setBackgroundColor:'; + StrNSTextView_backgroundColor = 'backgroundColor'; + StrNSTextView_setDrawsBackground = 'setDrawsBackground:'; + StrNSTextView_drawsBackground = 'drawsBackground'; + StrNSTextView_setSelectedRange = 'setSelectedRange:'; + StrNSTextView_allowsUndo = 'allowsUndo'; + StrNSTextView_setAllowsUndo = 'setAllowsUndo:'; + StrNSTextView_resignFirstResponder = 'resignFirstResponder'; + StrNSTextView_becomeFirstResponder = 'becomeFirstResponder'; + StrNSTextView_smartInsertDeleteEnabled = 'smartInsertDeleteEnabled'; + StrNSTextView_setSmartInsertDeleteEnabled = 'setSmartInsertDeleteEnabled:'; + StrNSTextView_smartDeleteRangeForProposedRange = 'smartDeleteRangeForProposedRange:'; + StrNSTextView_smartInsertForString_replacingRange_beforeString_afterString = 'smartInsertForString:replacingRange:beforeString:afterString:'; + StrNSTextView_smartInsertBeforeStringForString_replacingRange = 'smartInsertBeforeStringForString:replacingRange:'; + StrNSTextView_smartInsertAfterStringForString_replacingRange = 'smartInsertAfterStringForString:replacingRange:'; + +{ NSTextView } + +class function NSTextView.getClass: objc.id; +begin + Result := objc_getClass(StrNSTextView_NSTextView); +end; + +constructor NSTextView.initWithFrame_textContainer(_frameRect: NSRect; _container: objc.id {NSTextContainer}); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_frameRect: NSRect; _container: objc.id {NSTextContainer}): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + allocbuf := objc_msgSend(ClassID, sel_registerName(PChar(Str_alloc)), []); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(allocbuf, sel_registerName(PChar(StrNSTextView_initWithFrame_textContainer)), _frameRect, _container); +end; + +constructor NSTextView.initWithFrame(_frameRect: NSRect); +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_frameRect: NSRect): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + ClassID := getClass(); + allocbuf := objc_msgSend(ClassID, sel_registerName(PChar(Str_alloc)), []); + vmethod := TmsgSendWrapper(@objc_msgSend); + Handle := vmethod(allocbuf, sel_registerName(PChar(StrNSTextView_initWithFrame)), _frameRect); +end; + +function NSTextView.textContainer: objc.id; +begin + Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_textContainer)), [])); +end; + +procedure NSTextView.setTextContainer(_container: objc.id {NSTextContainer}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_container: objc.id {NSTextContainer}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setTextContainer)), _container); +end; + +procedure NSTextView.replaceTextContainer(_newContainer: objc.id {NSTextContainer}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_newContainer: objc.id {NSTextContainer}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_replaceTextContainer)), _newContainer); +end; + +procedure NSTextView.setTextContainerInset(_inset: NSSize); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_inset: NSSize); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setTextContainerInset)), _inset); +end; + +function NSTextView.textContainerInset: NSSize; +begin + objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSTextView_textContainerInset)), []); +end; + +function NSTextView.textContainerOrigin: NSPoint; +begin + objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSTextView_textContainerOrigin)), []); +end; + +procedure NSTextView.invalidateTextContainerOrigin; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_invalidateTextContainerOrigin)), []); +end; + +function NSTextView.layoutManager: objc.id; +begin + Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_layoutManager)), [])); +end; + +function NSTextView.textStorage: objc.id; +begin + Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_textStorage)), [])); +end; + +procedure NSTextView.insertText(_insertString: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_insertString: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_insertText)), _insertString); +end; + +procedure NSTextView.setConstrainedFrameSize(_desiredSize: NSSize); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_desiredSize: NSSize); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setConstrainedFrameSize)), _desiredSize); +end; + +procedure NSTextView.setAlignment_range(_alignment: NSTextAlignment; _range: NSRange); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_alignment: NSTextAlignment; _range: NSRange); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setAlignment_range)), _alignment, _range); +end; + +procedure NSTextView.setBaseWritingDirection_range(_writingDirection: NSWritingDirection; _range: NSRange); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_writingDirection: NSWritingDirection; _range: NSRange); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setBaseWritingDirection_range)), _writingDirection, _range); +end; + +procedure NSTextView.turnOffKerning(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_turnOffKerning)), _sender); +end; + +procedure NSTextView.tightenKerning(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_tightenKerning)), _sender); +end; + +procedure NSTextView.loosenKerning(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_loosenKerning)), _sender); +end; + +procedure NSTextView.useStandardKerning(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_useStandardKerning)), _sender); +end; + +procedure NSTextView.turnOffLigatures(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_turnOffLigatures)), _sender); +end; + +procedure NSTextView.useStandardLigatures(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_useStandardLigatures)), _sender); +end; + +procedure NSTextView.useAllLigatures(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_useAllLigatures)), _sender); +end; + +procedure NSTextView.raiseBaseline(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_raiseBaseline)), _sender); +end; + +procedure NSTextView.lowerBaseline(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_lowerBaseline)), _sender); +end; + +procedure NSTextView.toggleTraditionalCharacterShape(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_toggleTraditionalCharacterShape)), _sender); +end; + +procedure NSTextView.outline(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_outline)), _sender); +end; + +{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} +procedure NSTextView.performFindPanelAction(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_performFindPanelAction)), _sender); +end; + +procedure NSTextView.alignJustified(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_alignJustified)), _sender); +end; + +procedure NSTextView.changeColor(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_changeColor)), _sender); +end; + +procedure NSTextView.changeAttributes(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_changeAttributes)), _sender); +end; + +procedure NSTextView.changeDocumentBackgroundColor(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_changeDocumentBackgroundColor)), _sender); +end; + +procedure NSTextView.toggleBaseWritingDirection(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_toggleBaseWritingDirection)), _sender); +end; + +{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} +procedure NSTextView.orderFrontSpacingPanel(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_orderFrontSpacingPanel)), _sender); +end; + +procedure NSTextView.orderFrontLinkPanel(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_orderFrontLinkPanel)), _sender); +end; + +procedure NSTextView.orderFrontListPanel(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_orderFrontListPanel)), _sender); +end; + +procedure NSTextView.orderFrontTablePanel(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_orderFrontTablePanel)), _sender); +end; + +procedure NSTextView.rulerView_didMoveMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_rulerView_didMoveMarker)), _ruler, _marker); +end; + +procedure NSTextView.rulerView_didRemoveMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_rulerView_didRemoveMarker)), _ruler, _marker); +end; + +procedure NSTextView.rulerView_didAddMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_rulerView_didAddMarker)), _ruler, _marker); +end; + +function NSTextView.rulerView_shouldMoveMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_rulerView_shouldMoveMarker)), _ruler, _marker)); +end; + +function NSTextView.rulerView_shouldAddMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_rulerView_shouldAddMarker)), _ruler, _marker)); +end; + +function NSTextView.rulerView_willMoveMarker_toLocation(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}; _location: Single): Single; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}; _location: Single): Single; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := Single(vmethod(Handle, sel_registerName(PChar(StrNSTextView_rulerView_willMoveMarker_toLocation)), _ruler, _marker, _location)); +end; + +function NSTextView.rulerView_shouldRemoveMarker(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_rulerView_shouldRemoveMarker)), _ruler, _marker)); +end; + +function NSTextView.rulerView_willAddMarker_atLocation(_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}; _location: Single): Single; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_ruler: objc.id {NSRulerView}; _marker: objc.id {NSRulerMarker}; _location: Single): Single; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := Single(vmethod(Handle, sel_registerName(PChar(StrNSTextView_rulerView_willAddMarker_atLocation)), _ruler, _marker, _location)); +end; + +procedure NSTextView.rulerView_handleMouseDown(_ruler: objc.id {NSRulerView}; _event: objc.id {NSEvent}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_ruler: objc.id {NSRulerView}; _event: objc.id {NSEvent}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_rulerView_handleMouseDown)), _ruler, _event); +end; + +procedure NSTextView.setNeedsDisplayInRect_avoidAdditionalLayout(_rect: NSRect; _flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_rect: NSRect; _flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setNeedsDisplayInRect_avoidAdditionalLayout)), _rect, _flag); +end; + +function NSTextView.shouldDrawInsertionPoint: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_shouldDrawInsertionPoint)), [])); +end; + +procedure NSTextView.drawInsertionPointInRect_color_turnedOn(_rect: NSRect; _color: objc.id {NSColor}; _flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_rect: NSRect; _color: objc.id {NSColor}; _flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_drawInsertionPointInRect_color_turnedOn)), _rect, _color, _flag); +end; + +procedure NSTextView.drawViewBackgroundInRect(_rect: NSRect); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_rect: NSRect); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_drawViewBackgroundInRect)), _rect); +end; + +procedure NSTextView.updateRuler; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_updateRuler)), []); +end; + +procedure NSTextView.updateFontPanel; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_updateFontPanel)), []); +end; + +procedure NSTextView.updateDragTypeRegistration; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_updateDragTypeRegistration)), []); +end; + +function NSTextView.selectionRangeForProposedRange_granularity(_proposedCharRange: NSRange; _granularity: NSSelectionGranularity): NSRange; +type + TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_proposedCharRange: NSRange; _granularity: NSSelectionGranularity); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend_fpret); + vmethod(@Result, Handle, sel_registerName(PChar(StrNSTextView_selectionRangeForProposedRange_granularity)), _proposedCharRange, _granularity); +end; + +procedure NSTextView.clickedOnLink_atIndex(_link: objc.id; _charIndex: LongWord); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_link: objc.id; _charIndex: LongWord); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_clickedOnLink_atIndex)), _link, _charIndex); +end; + +procedure NSTextView.startSpeaking(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_startSpeaking)), _sender); +end; + +procedure NSTextView.stopSpeaking(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_stopSpeaking)), _sender); +end; + +procedure NSTextView.complete(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_complete)), _sender); +end; + +function NSTextView.rangeForUserCompletion: NSRange; +begin + objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSTextView_rangeForUserCompletion)), []); +end; + +function NSTextView.completionsForPartialWordRange_indexOfSelectedItem(_charRange: NSRange; __index: Integer): CFArrayRef; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_charRange: NSRange; __index: Integer): CFArrayRef; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := CFArrayRef(vmethod(Handle, sel_registerName(PChar(StrNSTextView_completionsForPartialWordRange_indexOfSelectedItem)), _charRange, __index)); +end; + +procedure NSTextView.insertCompletion_forPartialWordRange_movement_isFinal(_word: CFStringRef; _charRange: NSRange; _movement: Integer; _flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_word: CFStringRef; _charRange: NSRange; _movement: Integer; _flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_insertCompletion_forPartialWordRange_movement_isFinal)), _word, _charRange, _movement, _flag); +end; + +function NSTextView.writablePasteboardTypes: CFArrayRef; +begin + Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_writablePasteboardTypes)), [])); +end; + +function NSTextView.writeSelectionToPasteboard_type(_pboard: objc.id {NSPasteboard}; __type: CFStringRef): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_pboard: objc.id {NSPasteboard}; __type: CFStringRef): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_writeSelectionToPasteboard_type)), _pboard, __type)); +end; + +function NSTextView.writeSelectionToPasteboard_types(_pboard: objc.id {NSPasteboard}; _types: CFArrayRef): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_pboard: objc.id {NSPasteboard}; _types: CFArrayRef): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_writeSelectionToPasteboard_types)), _pboard, _types)); +end; + +function NSTextView.readablePasteboardTypes: CFArrayRef; +begin + Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_readablePasteboardTypes)), [])); +end; + +function NSTextView.preferredPasteboardTypeFromArray_restrictedToTypesFromArray(_availableTypes: CFArrayRef; _allowedTypes: CFArrayRef): CFStringRef; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_availableTypes: CFArrayRef; _allowedTypes: CFArrayRef): CFStringRef; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := CFStringRef(vmethod(Handle, sel_registerName(PChar(StrNSTextView_preferredPasteboardTypeFromArray_restrictedToTypesFromArray)), _availableTypes, _allowedTypes)); +end; + +function NSTextView.readSelectionFromPasteboard_type(_pboard: objc.id {NSPasteboard}; __type: CFStringRef): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_pboard: objc.id {NSPasteboard}; __type: CFStringRef): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_readSelectionFromPasteboard_type)), _pboard, __type)); +end; + +function NSTextView.readSelectionFromPasteboard(_pboard: objc.id {NSPasteboard}): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_pboard: objc.id {NSPasteboard}): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_readSelectionFromPasteboard)), _pboard)); +end; + +class procedure NSTextView.registerForServices; +begin + objc_msgSend(getClass, sel_registerName(PChar(StrNSTextView_registerForServices)), []); +end; + +function NSTextView.validRequestorForSendType_returnType(_sendType: CFStringRef; _returnType: CFStringRef): objc.id; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_sendType: CFStringRef; _returnType: CFStringRef): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSTextView_validRequestorForSendType_returnType)), _sendType, _returnType)); +end; + +procedure NSTextView.pasteAsPlainText(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_pasteAsPlainText)), _sender); +end; + +procedure NSTextView.pasteAsRichText(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_pasteAsRichText)), _sender); +end; + +function NSTextView.dragSelectionWithEvent_offset_slideBack(_event: objc.id {NSEvent}; _mouseOffset: NSSize; _slideBack: LongBool): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_event: objc.id {NSEvent}; _mouseOffset: NSSize; _slideBack: LongBool): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_dragSelectionWithEvent_offset_slideBack)), _event, _mouseOffset, _slideBack)); +end; + +function NSTextView.dragImageForSelectionWithEvent_origin(_event: objc.id {NSEvent}; _origin: NSPointPointer): objc.id; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_event: objc.id {NSEvent}; _origin: NSPointPointer): objc.id; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := objc.id(vmethod(Handle, sel_registerName(PChar(StrNSTextView_dragImageForSelectionWithEvent_origin)), _event, _origin)); +end; + +function NSTextView.acceptableDragTypes: CFArrayRef; +begin + Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_acceptableDragTypes)), [])); +end; + +function NSTextView.dragOperationForDraggingInfo_type(_dragInfo: objc.id; __type: CFStringRef): LongWord; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_dragInfo: objc.id; __type: CFStringRef): LongWord; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongWord(vmethod(Handle, sel_registerName(PChar(StrNSTextView_dragOperationForDraggingInfo_type)), _dragInfo, __type)); +end; + +procedure NSTextView.cleanUpAfterDragOperation; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_cleanUpAfterDragOperation)), []); +end; + +function NSTextView.acceptsGlyphInfo: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_acceptsGlyphInfo)), [])); +end; + +procedure NSTextView.setAcceptsGlyphInfo(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setAcceptsGlyphInfo)), _flag); +end; + +function NSTextView.selectedRanges: CFArrayRef; +begin + Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_selectedRanges)), [])); +end; + +procedure NSTextView.setSelectedRanges_affinity_stillSelecting(_ranges: CFArrayRef; _affinity: NSSelectionAffinity; _stillSelectingFlag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_ranges: CFArrayRef; _affinity: NSSelectionAffinity; _stillSelectingFlag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setSelectedRanges_affinity_stillSelecting)), _ranges, _affinity, _stillSelectingFlag); +end; + +procedure NSTextView.setSelectedRanges(_ranges: CFArrayRef); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_ranges: CFArrayRef); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setSelectedRanges)), _ranges); +end; + +procedure NSTextView.setSelectedRange_affinity_stillSelecting(_charRange: NSRange; _affinity: NSSelectionAffinity; _stillSelectingFlag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_charRange: NSRange; _affinity: NSSelectionAffinity; _stillSelectingFlag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setSelectedRange_affinity_stillSelecting)), _charRange, _affinity, _stillSelectingFlag); +end; + +function NSTextView.selectionAffinity: NSSelectionAffinity; +begin + Result := NSSelectionAffinity(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_selectionAffinity)), [])); +end; + +function NSTextView.selectionGranularity: NSSelectionGranularity; +begin + Result := NSSelectionGranularity(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_selectionGranularity)), [])); +end; + +procedure NSTextView.setSelectionGranularity(_granularity: NSSelectionGranularity); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_granularity: NSSelectionGranularity); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setSelectionGranularity)), _granularity); +end; + +procedure NSTextView.setSelectedTextAttributes(_attributeDictionary: CFDictionaryRef); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_attributeDictionary: CFDictionaryRef); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setSelectedTextAttributes)), _attributeDictionary); +end; + +function NSTextView.selectedTextAttributes: CFDictionaryRef; +begin + Result := CFDictionaryRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_selectedTextAttributes)), [])); +end; + +procedure NSTextView.setInsertionPointColor(_color: objc.id {NSColor}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_color: objc.id {NSColor}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setInsertionPointColor)), _color); +end; + +function NSTextView.insertionPointColor: objc.id; +begin + Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_insertionPointColor)), [])); +end; + +procedure NSTextView.updateInsertionPointStateAndRestartTimer(_restartFlag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_restartFlag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_updateInsertionPointStateAndRestartTimer)), _restartFlag); +end; + +procedure NSTextView.setMarkedTextAttributes(_attributeDictionary: CFDictionaryRef); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_attributeDictionary: CFDictionaryRef); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setMarkedTextAttributes)), _attributeDictionary); +end; + +function NSTextView.markedTextAttributes: CFDictionaryRef; +begin + Result := CFDictionaryRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_markedTextAttributes)), [])); +end; + +procedure NSTextView.setLinkTextAttributes(_attributeDictionary: CFDictionaryRef); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_attributeDictionary: CFDictionaryRef); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setLinkTextAttributes)), _attributeDictionary); +end; + +function NSTextView.linkTextAttributes: CFDictionaryRef; +begin + Result := CFDictionaryRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_linkTextAttributes)), [])); +end; + +procedure NSTextView.setRulerVisible(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setRulerVisible)), _flag); +end; + +function NSTextView.usesRuler: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_usesRuler)), [])); +end; + +procedure NSTextView.setUsesRuler(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setUsesRuler)), _flag); +end; + +procedure NSTextView.setContinuousSpellCheckingEnabled(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setContinuousSpellCheckingEnabled)), _flag); +end; + +function NSTextView.isContinuousSpellCheckingEnabled: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isContinuousSpellCheckingEnabled)), [])); +end; + +procedure NSTextView.toggleContinuousSpellChecking(_sender: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_sender: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_toggleContinuousSpellChecking)), _sender); +end; + +function NSTextView.spellCheckerDocumentTag: Integer; +begin + Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_spellCheckerDocumentTag)), [])); +end; + +function NSTextView.typingAttributes: CFDictionaryRef; +begin + Result := CFDictionaryRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_typingAttributes)), [])); +end; + +procedure NSTextView.setTypingAttributes(_attrs: CFDictionaryRef); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_attrs: CFDictionaryRef); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setTypingAttributes)), _attrs); +end; + +function NSTextView.shouldChangeTextInRanges_replacementStrings(_affectedRanges: CFArrayRef; _replacementStrings: CFArrayRef): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_affectedRanges: CFArrayRef; _replacementStrings: CFArrayRef): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_shouldChangeTextInRanges_replacementStrings)), _affectedRanges, _replacementStrings)); +end; + +function NSTextView.rangesForUserTextChange: CFArrayRef; +begin + Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_rangesForUserTextChange)), [])); +end; + +function NSTextView.rangesForUserCharacterAttributeChange: CFArrayRef; +begin + Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_rangesForUserCharacterAttributeChange)), [])); +end; + +function NSTextView.rangesForUserParagraphAttributeChange: CFArrayRef; +begin + Result := CFArrayRef(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_rangesForUserParagraphAttributeChange)), [])); +end; + +function NSTextView.shouldChangeTextInRange_replacementString(_affectedCharRange: NSRange; _replacementString: CFStringRef): LongBool; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_affectedCharRange: NSRange; _replacementString: CFStringRef): LongBool; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := LongBool(vmethod(Handle, sel_registerName(PChar(StrNSTextView_shouldChangeTextInRange_replacementString)), _affectedCharRange, _replacementString)); +end; + +procedure NSTextView.didChangeText; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_didChangeText)), []); +end; + +function NSTextView.rangeForUserTextChange: NSRange; +begin + objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSTextView_rangeForUserTextChange)), []); +end; + +function NSTextView.rangeForUserCharacterAttributeChange: NSRange; +begin + objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSTextView_rangeForUserCharacterAttributeChange)), []); +end; + +function NSTextView.rangeForUserParagraphAttributeChange: NSRange; +begin + objc_msgSend_stret(@Result, Handle, sel_registerName(PChar(StrNSTextView_rangeForUserParagraphAttributeChange)), []); +end; + +procedure NSTextView.setUsesFindPanel(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setUsesFindPanel)), _flag); +end; + +function NSTextView.usesFindPanel: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_usesFindPanel)), [])); +end; + +procedure NSTextView.setAllowsDocumentBackgroundColorChange(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setAllowsDocumentBackgroundColorChange)), _flag); +end; + +function NSTextView.allowsDocumentBackgroundColorChange: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_allowsDocumentBackgroundColorChange)), [])); +end; + +procedure NSTextView.setDefaultParagraphStyle(_paragraphStyle: objc.id {NSParagraphStyle}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_paragraphStyle: objc.id {NSParagraphStyle}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setDefaultParagraphStyle)), _paragraphStyle); +end; + +function NSTextView.defaultParagraphStyle: objc.id; +begin + Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_defaultParagraphStyle)), [])); +end; + +{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} +procedure NSTextView.breakUndoCoalescing; +begin + objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_breakUndoCoalescing)), []); +end; + +function NSTextView.isSelectable: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isSelectable)), [])); +end; + +procedure NSTextView.setSelectable(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setSelectable)), _flag); +end; + +function NSTextView.isEditable: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isEditable)), [])); +end; + +procedure NSTextView.setEditable(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setEditable)), _flag); +end; + +function NSTextView.isRichText: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isRichText)), [])); +end; + +procedure NSTextView.setRichText(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setRichText)), _flag); +end; + +function NSTextView.importsGraphics: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_importsGraphics)), [])); +end; + +procedure NSTextView.setImportsGraphics(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setImportsGraphics)), _flag); +end; + +function NSTextView.delegate: objc.id; +begin + Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_delegate)), [])); +end; + +procedure NSTextView.setDelegate(_anObject: objc.id); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_anObject: objc.id); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setDelegate)), _anObject); +end; + +function NSTextView.isFieldEditor: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isFieldEditor)), [])); +end; + +procedure NSTextView.setFieldEditor(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setFieldEditor)), _flag); +end; + +function NSTextView.usesFontPanel: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_usesFontPanel)), [])); +end; + +procedure NSTextView.setUsesFontPanel(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setUsesFontPanel)), _flag); +end; + +function NSTextView.isRulerVisible: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isRulerVisible)), [])); +end; + +procedure NSTextView.setBackgroundColor(_color: objc.id {NSColor}); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_color: objc.id {NSColor}); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setBackgroundColor)), _color); +end; + +function NSTextView.backgroundColor: objc.id; +begin + Result := objc.id(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_backgroundColor)), [])); +end; + +procedure NSTextView.setDrawsBackground(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setDrawsBackground)), _flag); +end; + +function NSTextView.drawsBackground: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_drawsBackground)), [])); +end; + +procedure NSTextView.setSelectedRange(_charRange: NSRange); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_charRange: NSRange); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setSelectedRange)), _charRange); +end; + +function NSTextView.allowsUndo: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_allowsUndo)), [])); +end; + +procedure NSTextView.setAllowsUndo(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setAllowsUndo)), _flag); +end; + +function NSTextView.resignFirstResponder: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_resignFirstResponder)), [])); +end; + +function NSTextView.becomeFirstResponder: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_becomeFirstResponder)), [])); +end; + +function NSTextView.smartInsertDeleteEnabled: LongBool; +begin + Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_smartInsertDeleteEnabled)), [])); +end; + +procedure NSTextView.setSmartInsertDeleteEnabled(_flag: LongBool); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_flag: LongBool); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_setSmartInsertDeleteEnabled)), _flag); +end; + +function NSTextView.smartDeleteRangeForProposedRange(_proposedCharRange: NSRange): NSRange; +type + TmsgSendWrapper = procedure (result_param: Pointer; param1: objc.id; param2: SEL;_proposedCharRange: NSRange); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend_fpret); + vmethod(@Result, Handle, sel_registerName(PChar(StrNSTextView_smartDeleteRangeForProposedRange)), _proposedCharRange); +end; + +procedure NSTextView.smartInsertForString_replacingRange_beforeString_afterString(_pasteString: CFStringRef; _charRangeToReplace: NSRange; _beforeString: CFStringRef; _afterString: CFStringRef); +type + TmsgSendWrapper = procedure (param1: objc.id; param2: SEL;_pasteString: CFStringRef; _charRangeToReplace: NSRange; _beforeString: CFStringRef; _afterString: CFStringRef); cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + vmethod(Handle, sel_registerName(PChar(StrNSTextView_smartInsertForString_replacingRange_beforeString_afterString)), _pasteString, _charRangeToReplace, _beforeString, _afterString); +end; + +function NSTextView.smartInsertBeforeStringForString_replacingRange(_pasteString: CFStringRef; _charRangeToReplace: NSRange): CFStringRef; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_pasteString: CFStringRef; _charRangeToReplace: NSRange): CFStringRef; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := CFStringRef(vmethod(Handle, sel_registerName(PChar(StrNSTextView_smartInsertBeforeStringForString_replacingRange)), _pasteString, _charRangeToReplace)); +end; + +function NSTextView.smartInsertAfterStringForString_replacingRange(_pasteString: CFStringRef; _charRangeToReplace: NSRange): CFStringRef; +type + TmsgSendWrapper = function (param1: objc.id; param2: SEL;_pasteString: CFStringRef; _charRangeToReplace: NSRange): CFStringRef; cdecl; +var + vmethod: TmsgSendWrapper; +begin + vmethod := TmsgSendWrapper(@objc_msgSend); + Result := CFStringRef(vmethod(Handle, sel_registerName(PChar(StrNSTextView_smartInsertAfterStringForString_replacingRange)), _pasteString, _charRangeToReplace)); +end; + +{$endif} diff --git a/bindings/pascocoa/build/buildappkit.sh b/bindings/pascocoa/build/buildappkit.sh index 52ce56dc7..0650e713b 100755 --- a/bindings/pascocoa/build/buildappkit.sh +++ b/bindings/pascocoa/build/buildappkit.sh @@ -8,6 +8,7 @@ FRAMEWORK="/System/Library/Frameworks/AppKit.framework/Headers" #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSBox.h > ../appkit/NSBox.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSButton.h > ../appkit/NSButton.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSControl.h > ../appkit/NSControl.inc +./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSColor.h > ../appkit/NSColor.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSGraphics.h > ../appkit/NSGraphics.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSGraphicsContext.h > ../appkit/NSGraphicsContext.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSImage.h > ../appkit/NSImage.inc @@ -15,7 +16,7 @@ FRAMEWORK="/System/Library/Frameworks/AppKit.framework/Headers" #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSMenu.h > ../appkit/NSMenu.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSMenuItem.h > ../appkit/NSMenuItem.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSNibDeclarations.h > ../appkit/NSNibDeclarations.inc -./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSNibLoading.h > ../appkit/NSNibLoading.inc +#./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSNibLoading.h > ../appkit/NSNibLoading.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSOpenPanel.h > ../appkit/NSOpenPanel.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSPanel.h > ../appkit/NSPanel.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSSavePanel.h > ../appkit/NSSavePanel.inc @@ -25,6 +26,7 @@ FRAMEWORK="/System/Library/Frameworks/AppKit.framework/Headers" #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSText.h > ../appkit/NSText.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSTextField.h > ../appkit/NSTextField.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSTextFieldCell.h > ../appkit/NSTextFieldCell.inc +#./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSTextView.h > ../appkit/NSTextView.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSToolbar.h > ../appkit/NSToolbar.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSToolbarItem.h > ../appkit/NSToolbarItem.inc #./objcparser -ini=$DEFAULT_INI -ini=$APPKIT_INI $FRAMEWORK/NSUserInterfaceValidation.h > ../appkit/NSUserInterfaceValidation.inc diff --git a/bindings/pascocoa/build/buildfoundation.sh b/bindings/pascocoa/build/buildfoundation.sh index ba8bbf97b..2722bd338 100755 --- a/bindings/pascocoa/build/buildfoundation.sh +++ b/bindings/pascocoa/build/buildfoundation.sh @@ -5,7 +5,7 @@ LOCAL_INI="../build/foundation.ini" FRAMEWORK="/System/Library/Frameworks/Foundation.framework/Headers" #./objcparser -ini=$DEFAULT_INI -ini=$LOCAL_INI $FRAMEWORK/NSObjCRuntime.h > ../foundation/NSObjCRuntime.inc #./objcparser -ini=$DEFAULT_INI -ini=$LOCAL_INI $FRAMEWORK/NSArray.h > ../foundation/NSArray.inc -./objcparser -ini=$DEFAULT_INI -ini=$LOCAL_INI $FRAMEWORK/NSBundle.h > ../foundation/NSBundle.inc +#./objcparser -ini=$DEFAULT_INI -ini=$LOCAL_INI $FRAMEWORK/NSBundle.h > ../foundation/NSBundle.inc #./objcparser -ini=$DEFAULT_INI -ini=$LOCAL_INI $FRAMEWORK/NSDate.h > ../foundation/NSDate.inc #./objcparser -ini=$DEFAULT_INI -ini=$LOCAL_INI $FRAMEWORK/NSRange.h > ../foundation/NSRange.inc #./objcparser -ini=$DEFAULT_INI -ini=$LOCAL_INI $FRAMEWORK/NSString.h > ../foundation/NSString.inc diff --git a/bindings/pascocoa/examples/texteditor/texteditor.lpi b/bindings/pascocoa/examples/texteditor/texteditor.lpi index 4874edefc..eec0a2a69 100644 --- a/bindings/pascocoa/examples/texteditor/texteditor.lpi +++ b/bindings/pascocoa/examples/texteditor/texteditor.lpi @@ -1,12 +1,14 @@ - - + + + + - + @@ -30,15 +32,15 @@ - + - - + + - + @@ -48,17 +50,17 @@ - + - - + + - + @@ -68,7 +70,7 @@ - + @@ -78,7 +80,7 @@ - + @@ -87,203 +89,234 @@ - + - + - - - + - + - + - + - + - + - - + + + + - + - + - + - + - + + + + + + + + + + + + + + + + + + + + + + + + - + - - - - - - - - - - - - + + + + + + + + + + + + - + - + - + - + - + - + - + - - + + - - + + - - + + - + - + - + - + - + - + - + - + - - - - - - - - - - - - - - + + - - + + + + + + + + + + + + + + + + + + + + + + diff --git a/bindings/pascocoa/examples/texteditor/view.pas b/bindings/pascocoa/examples/texteditor/view.pas index 4d7f94a0c..85468e5f2 100644 --- a/bindings/pascocoa/examples/texteditor/view.pas +++ b/bindings/pascocoa/examples/texteditor/view.pas @@ -49,16 +49,17 @@ type procedure CreateUserInterface(); end; -var - myView: TMyView; - const Str_Window_Title = 'Text Editor'; +var + MyView: TMyView = nil; + implementation uses controller, model; + {@@ } procedure TMyView.CreateUserInterface(); @@ -191,16 +192,21 @@ end; {@@ Creates a new menu item from a title } -function TMyView.CreateMenuItem(ATitle: shortstring; ACallback: string; ATarget: objc.id): NSMenuItem; +function TMyView.CreateMenuItem(ATitle: shortstring; + ACallback: string; ATarget: objc.id): NSMenuItem; var ItemText: CFStringRef; KeyText: CFStringRef; begin - KeyText := CFStringCreateWithPascalString(nil, '', kCFStringEncodingUTF8); - ItemText := CFStringCreateWithPascalString(nil, ATitle, kCFStringEncodingUTF8); - WriteLn(' ItemText: ', IntToHex(Int64(ItemText), 8), ' ATitle: ', ATitle); + KeyText := CFStringCreateWithPascalString(nil, '', + kCFStringEncodingUTF8); + ItemText := CFStringCreateWithPascalString(nil, ATitle, + kCFStringEncodingUTF8); + WriteLn(' ItemText: ', IntToHex(Int64(ItemText), 8), + ' ATitle: ', ATitle); - Result := NSMenuItem.initWithTitle_action_keyEquivalent(ItemText, nil, KeyText); + Result := NSMenuItem.initWithTitle_action_keyEquivalent( + ItemText, nil, KeyText); Result.setTarget(ATarget); Result.setAction(sel_registerName(PChar(ACallback))); diff --git a/bindings/pascocoa/parser/objcparser.lpi b/bindings/pascocoa/parser/objcparser.lpi index edfbb258f..accfe10fa 100755 --- a/bindings/pascocoa/parser/objcparser.lpi +++ b/bindings/pascocoa/parser/objcparser.lpi @@ -28,7 +28,7 @@ - +