/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. 

  2. 

  3. {$ifdef TYPES}
    4. 

  4. {$ifndef NSSLIDER_PAS_T}
    5. 

  5. {$define NSSLIDER_PAS_T}
    6. 

  6. 

  7. {$endif}
    8. 

  8. {$endif}
    9. 

  9. 

  10. {$ifdef RECORDS}
    11. 

  11. {$ifndef NSSLIDER_PAS_R}
    12. 

  12. {$define NSSLIDER_PAS_R}
    13. 

  13. 

  14. {$endif}
    15. 

  15. {$endif}
    16. 

  16. 

  17. {$ifdef FUNCTIONS}
    18. 

  18. {$ifndef NSSLIDER_PAS_F}
    19. 

  19. {$define NSSLIDER_PAS_F}
    20. 

  20. 

  21. {$endif}
    22. 

  22. {$endif}
    23. 

  23. 

  24. {$ifdef EXTERNAL_SYMBOLS}
    25. 

  25. {$ifndef NSSLIDER_PAS_S}
    26. 

  26. {$define NSSLIDER_PAS_S}
    27. 

  27. 

  28. {$endif}
    29. 

  29. {$endif}
    30. 

  30. 

  31. {$ifdef FORWARD}
    32. 

  32.   NSSlider = objcclass;
    33. 

  33.   NSSliderPointer = ^NSSlider;
    34. 

  34.   NSSliderPtr = NSSliderPointer;
    35. 

  35. 

  36. {$endif}
    37. 

  37. 

  38. {$ifdef CLASSES}
    39. 

  39. {$ifndef NSSLIDER_PAS_C}
    40. 

  40. {$define NSSLIDER_PAS_C}
    41. 

  41. 

  42. { NSSlider }
    43. 

  43.   NSSlider = objcclass external (NSControl)
    44. 

  44.     
    45. 

  45.   public
    46. 

  46.     function minValue: double; message 'minValue';
    47. 

  47.     procedure setMinValue(aDouble: double); message 'setMinValue:';
    48. 

  48.     function maxValue: double; message 'maxValue';
    49. 

  49.     procedure setMaxValue(aDouble: double); message 'setMaxValue:';
    50. 

  50.     procedure setAltIncrementValue(incValue: double); message 'setAltIncrementValue:';
    51. 

  51.     function altIncrementValue: double; message 'altIncrementValue';
    52. 

  52.     procedure setTitleCell(aCell: NSCell); message 'setTitleCell:';
    53. 

  53.     function titleCell: id; message 'titleCell';
    54. 

  54.     procedure setTitleColor(newColor: NSColor); message 'setTitleColor:';
    55. 

  55.     function titleColor: NSColor; message 'titleColor';
    56. 

  56.     procedure setTitleFont(fontObj: NSFont); message 'setTitleFont:';
    57. 

  57.     function titleFont: NSFont; message 'titleFont';
    58. 

  58.     function title: NSString; message 'title';
    59. 

  59.     procedure setTitle(aString: NSString); message 'setTitle:';
    60. 

  60.     procedure setKnobThickness(aFloat: CGFloat); message 'setKnobThickness:';
    61. 

  61.     function knobThickness: CGFloat; message 'knobThickness';
    62. 

  62.     procedure setImage(backgroundImage: NSImage); message 'setImage:';
    63. 

  63.     function image: NSImage; message 'image';
    64. 

  64.     function isVertical: NSInteger; message 'isVertical';
    65. 

  65.     function acceptsFirstMouse(theEvent: NSEvent): Boolean; message 'acceptsFirstMouse:';
    66. 

  66.   end;
    67. 

  67. 

  68. { NSTickMarkSupport_NSSliderCategory }
    69. 

  69.   NSTickMarkSupport_NSSliderCategory = objccategory external name 'NSTickMarkSupport' (NSSlider)
    70. 

  70.     procedure setNumberOfTickMarks(count: NSInteger); message 'setNumberOfTickMarks:';
    71. 

  71.     function numberOfTickMarks: NSInteger; message 'numberOfTickMarks';
    72. 

  72.     procedure setTickMarkPosition(position: NSTickMarkPosition); message 'setTickMarkPosition:';
    73. 

  73.     function tickMarkPosition: NSTickMarkPosition; message 'tickMarkPosition';
    74. 

  74.     procedure setAllowsTickMarkValuesOnly(yorn: Boolean); message 'setAllowsTickMarkValuesOnly:';
    75. 

  75.     function allowsTickMarkValuesOnly: Boolean; message 'allowsTickMarkValuesOnly';
    76. 

  76.     function tickMarkValueAtIndex(index: NSInteger): double; message 'tickMarkValueAtIndex:';
    77. 

  77.     function rectOfTickMarkAtIndex(index: NSInteger): NSRect; message 'rectOfTickMarkAtIndex:';
    78. 

  78.     function indexOfTickMarkAtPoint(point: NSPoint): NSInteger; message 'indexOfTickMarkAtPoint:';
    79. 

  79.     function closestTickMarkValueToValue(value: double): double; message 'closestTickMarkValueToValue:';
    80. 

  80.   end;
    81. 

  81. 

  82. {$endif}
    83. 

  83. {$endif}
    84.