Repository URL to install this package:
|
Version:
3.0.0 ▾
|
{ Parsed from Appkit.framework NSPathCell.h }
{$ifdef TYPES}
{$ifndef NSPATHCELL_PAS_T}
{$define NSPATHCELL_PAS_T}
{ Constants }
const
NSPathStyleStandard = 0;
NSPathStyleNavigationBar = 1;
NSPathStylePopUp = 2;
{ Types }
type
NSPathStyle = NSInteger;
NSPathStylePtr = ^NSPathStyle;
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSPATHCELL_PAS_R}
{$define NSPATHCELL_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSPATHCELL_PAS_F}
{$define NSPATHCELL_PAS_F}
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSPATHCELL_PAS_S}
{$define NSPATHCELL_PAS_S}
{$endif}
{$endif}
{$ifdef FORWARD}
NSPathCellDelegateProtocol = objcprotocol;
NSPathCell = objcclass;
NSPathCellPointer = ^NSPathCell;
NSPathCellPtr = NSPathCellPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSPATHCELL_PAS_C}
{$define NSPATHCELL_PAS_C}
{ NSPathCell }
NSPathCell = objcclass external (NSActionCell, NSOpenSavePanelDelegateProtocol)
private
_backgroundColor: NSColor;
_borderColors: NSMutableArray;
_cells: NSMutableArray;
_clickedCell: NSPathComponentCell;
_hoveredCell: NSPathComponentCell;
_popUpButtonCell: NSPopUpButtonCell;
_currentRect: NSRect;
_animation: NSAnimation;
_allowedTypes: NSArray;
_doubleAction: SEL;
_delegate: id;
__piFlags: record
case byte of
0: (_anonbitfield_NSPathCell0: cuint);
1: (data: bitpacked record
reserved: 0..((1 shl 32)-1);
end;
);
end;
_pathStyle: NSPathStyle;
_aux: id;
public
function pathStyle: NSPathStyle; message 'pathStyle';
procedure setPathStyle(style: NSPathStyle); message 'setPathStyle:';
function URL: NSURL; message 'URL';
procedure setURL(url_: NSURL); message 'setURL:';
procedure setObjectValue(obj: NSCopyingProtocol); message 'setObjectValue:';
function allowedTypes: NSArray; message 'allowedTypes';
procedure setAllowedTypes(allowedTypes_: NSArray); message 'setAllowedTypes:';
function delegate: NSPathCellDelegateProtocol; message 'delegate';
procedure setDelegate(value: NSPathCellDelegateProtocol); message 'setDelegate:';
class function pathComponentCellClass: Pobjc_class; message 'pathComponentCellClass';
function pathComponentCells: NSArray; message 'pathComponentCells';
procedure setPathComponentCells(cells: NSArray); message 'setPathComponentCells:';
function rectOfPathComponentCell_withFrame_inView(cell: NSPathComponentCell; frame: NSRect; view: NSView): NSRect; message 'rectOfPathComponentCell:withFrame:inView:';
function pathComponentCellAtPoint_withFrame_inView(point: NSPoint; frame: NSRect; view: NSView): NSPathComponentCell; message 'pathComponentCellAtPoint:withFrame:inView:';
function clickedPathComponentCell: NSPathComponentCell; message 'clickedPathComponentCell';
procedure mouseEntered_withFrame_inView(event: NSEvent; frame: NSRect; view: NSView); message 'mouseEntered:withFrame:inView:';
procedure mouseExited_withFrame_inView(event: NSEvent; frame: NSRect; view: NSView); message 'mouseExited:withFrame:inView:';
function doubleAction: SEL; message 'doubleAction';
procedure setDoubleAction(action_: SEL); message 'setDoubleAction:';
procedure setBackgroundColor(color: NSColor); message 'setBackgroundColor:';
function backgroundColor: NSColor; message 'backgroundColor';
procedure setPlaceholderString(string_: NSString); message 'setPlaceholderString:';
function placeholderString: NSString; message 'placeholderString';
procedure setPlaceholderAttributedString(string_: NSAttributedString); message 'setPlaceholderAttributedString:';
function placeholderAttributedString: NSAttributedString; message 'placeholderAttributedString';
procedure setControlSize(size: NSControlSize); message 'setControlSize:';
{ Adopted Protocols }
function panel_shouldEnableURL(sender: id; url: NSURL): Boolean;
function panel_validateURL_error(sender: id; url: NSURL; outError: NSErrorPointer): Boolean;
procedure panel_didChangeToDirectoryURL(sender: id; url: NSURL);
function panel_userEnteredFilename_confirmed(sender: id; filename: NSString; okFlag: Boolean): NSString;
procedure panel_willExpand(sender: id; expanding: Boolean);
procedure panelSelectionDidChange(sender: id);
end;
{$endif}
{$endif}
{$ifdef PROTOCOLS}
{$ifndef NSPATHCELL_PAS_P}
{$define NSPATHCELL_PAS_P}
{ NSPathCellDelegate Protocol }
NSPathCellDelegateProtocol = objcprotocol external name 'NSPathCellDelegate'
optional
procedure pathCell_willDisplayOpenPanel(pathCell: NSPathCell; openPanel: NSOpenPanel); message 'pathCell:willDisplayOpenPanel:';
procedure pathCell_willPopUpMenu(pathCell: NSPathCell; menu: NSMenu); message 'pathCell:willPopUpMenu:';
end;
{$endif}
{$endif}