/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

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