{ Parsed from Appkit.framework NSControl.h }

{$ifdef TYPES}
{$ifndef NSCONTROL_PAS_T}
{$define NSCONTROL_PAS_T}

{$endif}
{$endif}

{$ifdef RECORDS}
{$ifndef NSCONTROL_PAS_R}
{$define NSCONTROL_PAS_R}

{$endif}
{$endif}

{$ifdef FUNCTIONS}
{$ifndef NSCONTROL_PAS_F}
{$define NSCONTROL_PAS_F}

{$endif}
{$endif}

{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSCONTROL_PAS_S}
{$define NSCONTROL_PAS_S}

{ External string constants }
var
  NSControlTextDidBeginEditingNotification: NSString; cvar; external;
  NSControlTextDidEndEditingNotification: NSString; cvar; external;
  NSControlTextDidChangeNotification: NSString; cvar; external;

{$endif}
{$endif}

{$ifdef FORWARD}
  NSControlTextEditingDelegateProtocol = objcprotocol;
  NSControl = objcclass;
  NSControlPointer = ^NSControl;
  NSControlPtr = NSControlPointer;

{$endif}

{$ifdef CLASSES}
{$ifndef NSCONTROL_PAS_C}
{$define NSCONTROL_PAS_C}

{ NSControl }
  NSControl = objcclass external (NSView)
  private
    _tag: NSInteger;
    _cell: id;
    __conFlags: record
      case byte of
       0: (_anonbitfield_NSControl0: cuint);
       1: (data: bitpacked record
        enabled: 0..1;
        ignoreMultiClick: 0..1;
        _calcSize: 0..1;
        drawingAncestor: 0..1;
        ibReserved: 0..1;
        updateCellFocus: 0..1;
        reserved: 0..((1 shl 26)-1);
       end;
      );
      end;
    
  public
    class procedure setCellClass(factoryId: Pobjc_class); message 'setCellClass:';
    class function cellClass: Pobjc_class; message 'cellClass';
    function initWithFrame(frameRect: NSRect): id; message 'initWithFrame:';
    procedure sizeToFit; message 'sizeToFit';
    procedure calcSize; message 'calcSize';
    function cell: id; message 'cell';
    procedure setCell(aCell: NSCell); message 'setCell:';
    function selectedCell: id; message 'selectedCell';
    function target: id; message 'target';
    procedure setTarget(anObject: id); message 'setTarget:';
    function action: SEL; message 'action';
    procedure setAction(aSelector: SEL); message 'setAction:';
    function tag: NSInteger; message 'tag';
    procedure setTag(anInt: NSInteger); message 'setTag:';
    function selectedTag: NSInteger; message 'selectedTag';
    procedure setIgnoresMultiClick(flag: Boolean); message 'setIgnoresMultiClick:';
    function ignoresMultiClick: Boolean; message 'ignoresMultiClick';
    function sendActionOn(mask: NSInteger): NSInteger; message 'sendActionOn:';
    function isContinuous: Boolean; message 'isContinuous';
    procedure setContinuous(flag: Boolean); message 'setContinuous:';
    function isEnabled: Boolean; message 'isEnabled';
    procedure setEnabled(flag: Boolean); message 'setEnabled:';
    function alignment: NSTextAlignment; message 'alignment';
    procedure setAlignment(mode: NSTextAlignment); message 'setAlignment:';
    function font: NSFont; message 'font';
    procedure setFont(fontObj: NSFont); message 'setFont:';
    procedure setFormatter(newFormatter: NSFormatter); message 'setFormatter:';
    function formatter: id; message 'formatter';
    procedure setObjectValue(obj: NSCopyingProtocol); message 'setObjectValue:';
    procedure setStringValue(aString: NSString); message 'setStringValue:';
    procedure setIntValue(anInt: cint); message 'setIntValue:';
    procedure setFloatValue(aFloat: single); message 'setFloatValue:';
    procedure setDoubleValue(aDouble: double); message 'setDoubleValue:';
    function objectValue: id; message 'objectValue';
    function stringValue: NSString; message 'stringValue';
    function intValue: cint; message 'intValue';
    function floatValue: single; message 'floatValue';
    function doubleValue: double; message 'doubleValue';
    procedure setNeedsDisplay; message 'setNeedsDisplay';
    procedure updateCell(aCell: NSCell); message 'updateCell:';
    procedure updateCellInside(aCell: NSCell); message 'updateCellInside:';
    procedure drawCellInside(aCell: NSCell); message 'drawCellInside:';
    procedure drawCell(aCell: NSCell); message 'drawCell:';
    procedure selectCell(aCell: NSCell); message 'selectCell:';
    function sendAction_to(theAction: SEL; theTarget: id): Boolean; message 'sendAction:to:';
    procedure takeIntValueFrom(sender: id); message 'takeIntValueFrom:';
    procedure takeFloatValueFrom(sender: id); message 'takeFloatValueFrom:';
    procedure takeDoubleValueFrom(sender: id); message 'takeDoubleValueFrom:';
    procedure takeStringValueFrom(sender: id); message 'takeStringValueFrom:';
    procedure takeObjectValueFrom(sender: id); message 'takeObjectValueFrom:';
    function currentEditor: NSText; message 'currentEditor';
    function abortEditing: Boolean; message 'abortEditing';
    procedure validateEditing; message 'validateEditing';
    procedure mouseDown(theEvent: NSEvent); message 'mouseDown:';
    function baseWritingDirection: NSWritingDirection; message 'baseWritingDirection';
    procedure setBaseWritingDirection(writingDirection: NSWritingDirection); message 'setBaseWritingDirection:';
    function integerValue: NSInteger; message 'integerValue';
    procedure setIntegerValue(anInteger: NSInteger); message 'setIntegerValue:';
    procedure takeIntegerValueFrom(sender: id); message 'takeIntegerValueFrom:';
  end;

{ NSKeyboardUI_NSControlCategory }
  NSKeyboardUI_NSControlCategory = objccategory external name 'NSKeyboardUI' (NSControl)
    procedure performClick(sender: id); message 'performClick:';
    procedure setRefusesFirstResponder(flag: Boolean); message 'setRefusesFirstResponder:';
    function refusesFirstResponder: Boolean; message 'refusesFirstResponder';
  end;

{ NSControlSubclassNotificationsCategory }
  NSControlSubclassNotificationsCategory = objccategory external (NSObject)
    procedure controlTextDidBeginEditing(obj: NSNotification); message 'controlTextDidBeginEditing:';
    procedure controlTextDidEndEditing(obj: NSNotification); message 'controlTextDidEndEditing:';
    procedure controlTextDidChange(obj: NSNotification); message 'controlTextDidChange:';
  end;

{ NSControlAttributedStringMethodsCategory }
  NSControlAttributedStringMethodsCategory = objccategory external (NSControl)
    function attributedStringValue: NSAttributedString; message 'attributedStringValue';
    procedure setAttributedStringValue(obj: NSAttributedString); message 'setAttributedStringValue:';
  end;

{ NSDeprecated_NSControlCategory }
  NSDeprecated_NSControlCategory = objccategory external name 'NSDeprecated' (NSControl)
    procedure setFloatingPointFormat_left_right(autoRange: Boolean; leftDigits: NSUInteger; rightDigits: NSUInteger); message 'setFloatingPointFormat:left:right:'; deprecated 'in Mac OS X 10 and later';
  end;

{$endif}
{$endif}
{$ifdef PROTOCOLS}
{$ifndef NSCONTROL_PAS_P}
{$define NSCONTROL_PAS_P}
  
{ NSControlTextEditingDelegate Protocol }
  NSControlTextEditingDelegateProtocol = objcprotocol external name 'NSControlTextEditingDelegate'
  optional
    function control_textShouldBeginEditing(control: NSControl; fieldEditor: NSText): Boolean; message 'control:textShouldBeginEditing:';
    function control_textShouldEndEditing(control: NSControl; fieldEditor: NSText): Boolean; message 'control:textShouldEndEditing:';
    function control_didFailToFormatString_errorDescription(control: NSControl; string_: NSString; error: NSString): Boolean; message 'control:didFailToFormatString:errorDescription:';
    procedure control_didFailToValidatePartialString_errorDescription(control: NSControl; string_: NSString; error: NSString); message 'control:didFailToValidatePartialString:errorDescription:';
    function control_isValidObject(control: NSControl; obj: id): Boolean; message 'control:isValidObject:';
    function control_textView_doCommandBySelector(control: NSControl; textView: NSTextView; commandSelector: SEL): Boolean; message 'control:textView:doCommandBySelector:';
    function control_textView_completions_forPartialWordRange_indexOfSelectedItem(control: NSControl; textView: NSTextView; words: NSArray; charRange: NSRange; index: NSIntegerPtr): NSArray; message 'control:textView:completions:forPartialWordRange:indexOfSelectedItem:';
  end;
{$endif}
{$endif}