summaryrefslogtreecommitdiff
path: root/fpcsrc/packages/cocoaint/src/appkit/NSColorPicker.inc
blob: 706843800816071155b2fa3d60a302cd647cbd2c (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
{ Parsed from Appkit.framework NSColorPicker.h }

{$ifdef TYPES}
{$ifndef NSCOLORPICKER_PAS_T}
{$define NSCOLORPICKER_PAS_T}

{$endif}
{$endif}

{$ifdef RECORDS}
{$ifndef NSCOLORPICKER_PAS_R}
{$define NSCOLORPICKER_PAS_R}

{$endif}
{$endif}

{$ifdef FUNCTIONS}
{$ifndef NSCOLORPICKER_PAS_F}
{$define NSCOLORPICKER_PAS_F}

{$endif}
{$endif}

{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSCOLORPICKER_PAS_S}
{$define NSCOLORPICKER_PAS_S}

{$endif}
{$endif}

{$ifdef FORWARD}
  NSColorPicker = objcclass;
  NSColorPickerPointer = ^NSColorPicker;
  NSColorPickerPtr = NSColorPickerPointer;

{$endif}

{$ifdef CLASSES}
{$ifndef NSCOLORPICKER_PAS_C}
{$define NSCOLORPICKER_PAS_C}

{ NSColorPicker }
  NSColorPicker = objcclass external (NSObject, NSColorPickingDefaultProtocol)
  private
    _imageObject: id;
    _colorPanel: NSColorPanel;
    _buttonToolTip: NSString;
    
  public
    function initWithPickerMask_colorPanel(mask: NSUInteger; owningColorPanel: NSColorPanel): id; message 'initWithPickerMask:colorPanel:';
    function colorPanel: NSColorPanel; message 'colorPanel';
    function provideNewButtonImage: NSImage; message 'provideNewButtonImage';
    procedure insertNewButtonImage_in(newButtonImage: NSImage; buttonCell: NSButtonCell); message 'insertNewButtonImage:in:';
    procedure viewSizeChanged(sender: id); message 'viewSizeChanged:';
    procedure attachColorList(colorList: NSColorList); message 'attachColorList:';
    procedure detachColorList(colorList: NSColorList); message 'detachColorList:';
    procedure setMode(mode: NSColorPanelMode); message 'setMode:';
    function buttonToolTip: NSString; message 'buttonToolTip';
    function minContentSize: NSSize; message 'minContentSize';

    { Adopted Protocols }
    procedure alphaControlAddedOrRemoved(sender: id);
  end;

{$endif}
{$endif}