Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / packages / cocoaint / src / appkit / NSLevelIndicatorCell.inc
Size: Mime:
{ Parsed from AppKit.framework NSLevelIndicatorCell.h }


{$ifdef TYPES}
type
  NSLevelIndicatorCellPtr = ^NSLevelIndicatorCell;
{$endif}

{$ifdef TYPES}
type
  NSLevelIndicatorStyle = NSUInteger;
  NSLevelIndicatorStylePtr = ^NSLevelIndicatorStyle;

const
  NSRelevancyLevelIndicatorStyle = 0;
  NSContinuousCapacityLevelIndicatorStyle = 1;
  NSDiscreteCapacityLevelIndicatorStyle = 2;
  NSRatingLevelIndicatorStyle = 3;
{$endif}

{$ifdef CLASSES}

type
  NSLevelIndicatorCell = objcclass external (NSActionCell)
  private
    _value: double;
    _minValue: double;
    _maxValue: double;
    _warningValue: double;
    _criticalValue: double;
    _numberOfTickMarks: cint;
    _numberOfMajorTickMarks: cint;
    _liFlags: bitpacked record
      case byte of
        0: (_anonBitField__liFlags0: cuint);
        1: (
          indicatorStyle: 0..((1 shl 4)-1);
          tickMarkPosition: 0..1;
          selectable: 0..1;
          ratingPlaceholder: 0..1;
          reserved: 0..((1 shl 25)-1);
        );
      end;
    _cellFrame: NSRect;
    _reserved1: cint;
    _reserved2: cint;
    _reserved3: cint;
    _reserved4: cint;
  public
    function initWithLevelIndicatorStyle (levelIndicatorStyle: NSLevelIndicatorStyle): instancetype; message 'initWithLevelIndicatorStyle:';
    procedure setLevelIndicatorStyle(newValue: NSLevelIndicatorStyle); message 'setLevelIndicatorStyle:';
    function levelIndicatorStyle: NSLevelIndicatorStyle; message 'levelIndicatorStyle';
    procedure setMinValue(newValue: double); message 'setMinValue:';
    function minValue: double; message 'minValue';
    procedure setMaxValue(newValue: double); message 'setMaxValue:';
    function maxValue: double; message 'maxValue';
    procedure setWarningValue(newValue: double); message 'setWarningValue:';
    function warningValue: double; message 'warningValue';
    procedure setCriticalValue(newValue: double); message 'setCriticalValue:';
    function criticalValue: double; message 'criticalValue';
    procedure setTickMarkPosition(newValue: NSTickMarkPosition); message 'setTickMarkPosition:';
    function tickMarkPosition: NSTickMarkPosition; message 'tickMarkPosition';
    procedure setNumberOfTickMarks(newValue: NSInteger); message 'setNumberOfTickMarks:';
    function numberOfTickMarks: NSInteger; message 'numberOfTickMarks';
    procedure setNumberOfMajorTickMarks(newValue: NSInteger); message 'setNumberOfMajorTickMarks:';
    function numberOfMajorTickMarks: NSInteger; message 'numberOfMajorTickMarks';
    function rectOfTickMarkAtIndex (index: NSInteger): NSRect; message 'rectOfTickMarkAtIndex:';
    function tickMarkValueAtIndex (index: NSInteger): double; message 'tickMarkValueAtIndex:';
    procedure setImage (image_: NSImage); message 'setImage:';
  end;
{$endif}