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.0.0 / packages / cocoaint / src / appkit / NSSegmentedControl.inc
Size: Mime:
{ Parsed from Appkit.framework NSSegmentedControl.h }

{$ifdef TYPES}
{$ifndef NSSEGMENTEDCONTROL_PAS_T}
{$define NSSEGMENTEDCONTROL_PAS_T}

{ Constants }

const
  NSSegmentStyleAutomatic = 0;
  NSSegmentStyleRounded = 1;
  NSSegmentStyleTexturedRounded = 2;
  NSSegmentStyleRoundRect = 3;
  NSSegmentStyleTexturedSquare = 4;
  NSSegmentStyleCapsule = 5;
  NSSegmentStyleSmallSquare = 6;

{ Types }
type
  NSSegmentStyle = NSInteger;
  NSSegmentStylePtr = ^NSSegmentStyle;

{$endif}
{$endif}

{$ifdef RECORDS}
{$ifndef NSSEGMENTEDCONTROL_PAS_R}
{$define NSSEGMENTEDCONTROL_PAS_R}

{$endif}
{$endif}

{$ifdef FUNCTIONS}
{$ifndef NSSEGMENTEDCONTROL_PAS_F}
{$define NSSEGMENTEDCONTROL_PAS_F}

{$endif}
{$endif}

{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSSEGMENTEDCONTROL_PAS_S}
{$define NSSEGMENTEDCONTROL_PAS_S}

{$endif}
{$endif}

{$ifdef FORWARD}
  NSSegmentedControl = objcclass;
  NSSegmentedControlPointer = ^NSSegmentedControl;
  NSSegmentedControlPtr = NSSegmentedControlPointer;

{$endif}

{$ifdef CLASSES}
{$ifndef NSSEGMENTEDCONTROL_PAS_C}
{$define NSSEGMENTEDCONTROL_PAS_C}

{ NSSegmentedControl }
  NSSegmentedControl = objcclass external (NSControl)
  private
    _reserved1: NSInteger;
    _reserved2: NSInteger;
    _reserved3: NSInteger;
    _reserved4: NSInteger;
    
  public
    procedure setSegmentCount(count: NSInteger); message 'setSegmentCount:';
    function segmentCount: NSInteger; message 'segmentCount';
    procedure setSelectedSegment(selectedSegment_: NSInteger); message 'setSelectedSegment:';
    function selectedSegment: NSInteger; message 'selectedSegment';
    function selectSegmentWithTag(tag_: NSInteger): Boolean; message 'selectSegmentWithTag:';
    procedure setWidth_forSegment(width: CGFloat; segment: NSInteger); message 'setWidth:forSegment:';
    function widthForSegment(segment: NSInteger): CGFloat; message 'widthForSegment:';
    procedure setImage_forSegment(image: NSImage; segment: NSInteger); message 'setImage:forSegment:';
    function imageForSegment(segment: NSInteger): NSImage; message 'imageForSegment:';
    procedure setImageScaling_forSegment(scaling: NSImageScaling; segment: NSInteger); message 'setImageScaling:forSegment:';
    function imageScalingForSegment(segment: NSInteger): NSImageScaling; message 'imageScalingForSegment:';
    procedure setLabel_forSegment(label_: NSString; segment: NSInteger); message 'setLabel:forSegment:';
    function labelForSegment(segment: NSInteger): NSString; message 'labelForSegment:';
    procedure setMenu_forSegment(menu_: NSMenu; segment: NSInteger); message 'setMenu:forSegment:';
    function menuForSegment(segment: NSInteger): NSMenu; message 'menuForSegment:';
    procedure setSelected_forSegment(selected: Boolean; segment: NSInteger); message 'setSelected:forSegment:';
    function isSelectedForSegment(segment: NSInteger): Boolean; message 'isSelectedForSegment:';
    procedure setEnabled_forSegment(enabled: Boolean; segment: NSInteger); message 'setEnabled:forSegment:';
    function isEnabledForSegment(segment: NSInteger): Boolean; message 'isEnabledForSegment:';
    procedure setSegmentStyle(segmentStyle_: NSSegmentStyle); message 'setSegmentStyle:';
    function segmentStyle: NSSegmentStyle; message 'segmentStyle';
  end;

{$endif}
{$endif}