/packages/cocoaint/src/appkit/NSSlider.inc
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}