PageRenderTime 20ms CodeModel.GetById 11ms app.highlight 8ms RepoModel.GetById 0ms app.codeStats 0ms

/packages/cocoaint/src/appkit/NSSlider.inc

https://github.com/slibre/freepascal
Pascal | 83 lines | 38 code | 15 blank | 30 comment | 0 complexity | 94a6ee45865c61754c3eb3ab2c36c56f MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 1{ Parsed from Appkit.framework NSSlider.h }
 2
 3{$ifdef TYPES}
 4{$ifndef NSSLIDER_PAS_T}
 5{$define NSSLIDER_PAS_T}
 6
 7{$endif}
 8{$endif}
 9
10{$ifdef RECORDS}
11{$ifndef NSSLIDER_PAS_R}
12{$define NSSLIDER_PAS_R}
13
14{$endif}
15{$endif}
16
17{$ifdef FUNCTIONS}
18{$ifndef NSSLIDER_PAS_F}
19{$define NSSLIDER_PAS_F}
20
21{$endif}
22{$endif}
23
24{$ifdef EXTERNAL_SYMBOLS}
25{$ifndef NSSLIDER_PAS_S}
26{$define NSSLIDER_PAS_S}
27
28{$endif}
29{$endif}
30
31{$ifdef FORWARD}
32  NSSlider = objcclass;
33  NSSliderPointer = ^NSSlider;
34  NSSliderPtr = NSSliderPointer;
35
36{$endif}
37
38{$ifdef CLASSES}
39{$ifndef NSSLIDER_PAS_C}
40{$define NSSLIDER_PAS_C}
41
42{ NSSlider }
43  NSSlider = objcclass external (NSControl)
44    
45  public
46    function minValue: double; message 'minValue';
47    procedure setMinValue(aDouble: double); message 'setMinValue:';
48    function maxValue: double; message 'maxValue';
49    procedure setMaxValue(aDouble: double); message 'setMaxValue:';
50    procedure setAltIncrementValue(incValue: double); message 'setAltIncrementValue:';
51    function altIncrementValue: double; message 'altIncrementValue';
52    procedure setTitleCell(aCell: NSCell); message 'setTitleCell:';
53    function titleCell: id; message 'titleCell';
54    procedure setTitleColor(newColor: NSColor); message 'setTitleColor:';
55    function titleColor: NSColor; message 'titleColor';
56    procedure setTitleFont(fontObj: NSFont); message 'setTitleFont:';
57    function titleFont: NSFont; message 'titleFont';
58    function title: NSString; message 'title';
59    procedure setTitle(aString: NSString); message 'setTitle:';
60    procedure setKnobThickness(aFloat: CGFloat); message 'setKnobThickness:';
61    function knobThickness: CGFloat; message 'knobThickness';
62    procedure setImage(backgroundImage: NSImage); message 'setImage:';
63    function image: NSImage; message 'image';
64    function isVertical: NSInteger; message 'isVertical';
65    function acceptsFirstMouse(theEvent: NSEvent): Boolean; message 'acceptsFirstMouse:';
66  end;
67
68{ NSTickMarkSupport_NSSliderCategory }
69  NSTickMarkSupport_NSSliderCategory = objccategory external name 'NSTickMarkSupport' (NSSlider)
70    procedure setNumberOfTickMarks(count: NSInteger); message 'setNumberOfTickMarks:';
71    function numberOfTickMarks: NSInteger; message 'numberOfTickMarks';
72    procedure setTickMarkPosition(position: NSTickMarkPosition); message 'setTickMarkPosition:';
73    function tickMarkPosition: NSTickMarkPosition; message 'tickMarkPosition';
74    procedure setAllowsTickMarkValuesOnly(yorn: Boolean); message 'setAllowsTickMarkValuesOnly:';
75    function allowsTickMarkValuesOnly: Boolean; message 'allowsTickMarkValuesOnly';
76    function tickMarkValueAtIndex(index: NSInteger): double; message 'tickMarkValueAtIndex:';
77    function rectOfTickMarkAtIndex(index: NSInteger): NSRect; message 'rectOfTickMarkAtIndex:';
78    function indexOfTickMarkAtPoint(point: NSPoint): NSInteger; message 'indexOfTickMarkAtPoint:';
79    function closestTickMarkValueToValue(value: double): double; message 'closestTickMarkValueToValue:';
80  end;
81
82{$endif}
83{$endif}