You've already forked lazarus-ccr
78930629dc
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@673 8e941d3f-bd1b-0410-a28a-d453659cc2b4
1756 lines
78 KiB
PHP
1756 lines
78 KiB
PHP
{%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 <AppKit/NSText.h>
|
|
//#import <AppKit/NSInputManager.h>
|
|
//#import <AppKit/NSTextAttachment.h>
|
|
//#import <AppKit/AppKitDefines.h>
|
|
//#import <AppKit/NSDragging.h>
|
|
//#import <AppKit/NSUserInterfaceValidation.h>
|
|
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}
|