summaryrefslogtreecommitdiff
path: root/fpcsrc/packages/cocoaint/src/appkit/NSTabViewItem.inc
blob: b53968faf0c5d294107f6235e6ef0ace13be5788 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
{ 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}