Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / packages / cocoaint / src / appkit / NSTabViewItem.inc
Size: Mime:
{ Parsed from Appkit.framework NSTabViewItem.h }

{$ifdef TYPES}
{$ifndef NSTABVIEWITEM_PAS_T}
{$define NSTABVIEWITEM_PAS_T}

{ Constants }

const
  NSSelectedTab = 0;
  NSBackgroundTab = 1;
  NSPressedTab = 2;

{ Types }
type
  NSTabState = NSUInteger;
  NSTabStatePtr = ^NSTabState;

{$endif}
{$endif}

{$ifdef RECORDS}
{$ifndef NSTABVIEWITEM_PAS_R}
{$define NSTABVIEWITEM_PAS_R}

{$endif}
{$endif}

{$ifdef FUNCTIONS}
{$ifndef NSTABVIEWITEM_PAS_F}
{$define NSTABVIEWITEM_PAS_F}

{$endif}
{$endif}

{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSTABVIEWITEM_PAS_S}
{$define NSTABVIEWITEM_PAS_S}

{$endif}
{$endif}

{$ifdef FORWARD}
  NSTabViewItem = objcclass;
  NSTabViewItemPointer = ^NSTabViewItem;
  NSTabViewItemPtr = NSTabViewItemPointer;

{$endif}

{$ifdef CLASSES}
{$ifndef NSTABVIEWITEM_PAS_C}
{$define NSTABVIEWITEM_PAS_C}

{ NSTabViewItem }
  NSTabViewItem = objcclass external (NSObject, NSCodingProtocol)
  private
    _identifier: id;
    _label: NSString;
    _view: NSView;
    _initialFirstResponder: NSView;
    _color: NSColor;
    _tabView: NSTabView;
    _tabState: NSTabState;
    _lastKeyView: NSView;
    __tviFlags: record
      case byte of
       0: (_anonbitfield_NSTabViewItem0: cuint);
       1: (data: bitpacked record
        hasCustomColor: 0..1;
        labelSizeIsValid: 0..1;
        autoGeneratedIFR: 0..1;
        isTabDisabled: 0..1;
        RESERVED: 0..((1 shl 28)-1);
       end;
      );
      end;
    _labelSize: NSSize;
    _tabRect: NSRect;
    _tabToolTipTag: NSToolTipTag;
    _auxiliaryStorage: id;
    
  public
    function initWithIdentifier(identifier_: id): id; message 'initWithIdentifier:';
    function identifier: id; message 'identifier';
    function view: id; message 'view';
    function initialFirstResponder: id; message 'initialFirstResponder';
    function label_: NSString; message 'label';
    function color: NSColor; message 'color';
    function tabState: NSTabState; message 'tabState';
    function tabView: NSTabView; message 'tabView';
    procedure setIdentifier(identifier_: id); message 'setIdentifier:';
    procedure setLabel(label__: NSString); message 'setLabel:';
    procedure setColor(color_: NSColor); message 'setColor:';
    procedure setView(view_: NSView); message 'setView:';
    procedure setInitialFirstResponder(view_: NSView); message 'setInitialFirstResponder:';
    function toolTip: NSString; message 'toolTip';
    procedure setToolTip(toolTip_: NSString); message 'setToolTip:';
    procedure drawLabel_inRect(shouldTruncateLabel: Boolean; labelRect: NSRect); message 'drawLabel:inRect:';
    function sizeOfLabel(computeMin: Boolean): NSSize; message 'sizeOfLabel:';

    { Adopted Protocols }
    procedure encodeWithCoder(aCoder: NSCoder);
    function initWithCoder(aDecoder: NSCoder): id;
  end;

{$endif}
{$endif}