{ Parsed from Appkit.framework NSScrollView.h } {$ifdef TYPES} {$ifndef NSSCROLLVIEW_PAS_T} {$define NSSCROLLVIEW_PAS_T} {$endif} {$endif} {$ifdef RECORDS} {$ifndef NSSCROLLVIEW_PAS_R} {$define NSSCROLLVIEW_PAS_R} { Records } type __SFlags = record case byte of 0: (_anonbitfield_NSScrollView0: cuint); 1: (data: bitpacked record {$ifdef fpc_big_endian} vScrollerRequired: 0..1; hScrollerRequired: 0..1; vScrollerStatus: 0..1; hScrollerStatus: 0..1; noDynamicScrolling: 0..1; borderType: 0..((1 shl 2)-1); oldRulerInstalled: 0..1; showRulers: 0..1; hasHorizontalRuler: 0..1; hasVerticalRuler: 0..1; needsTile: 0..1; doesNotDrawBackground: 0..1; skipRemoveSuperviewCheck: 0..1; focusRingNeedsRedisplay: 0..1; hasCustomLineBorderColor: 0..1; autohidesScrollers: 0..1; autoforwardsScrollWheelEvents: 0..1; RESERVED: 0..((1 shl 14)-1); {$else} RESERVED: 0..((1 shl 14)-1); autoforwardsScrollWheelEvents: 0..1; autohidesScrollers: 0..1; hasCustomLineBorderColor: 0..1; focusRingNeedsRedisplay: 0..1; skipRemoveSuperviewCheck: 0..1; doesNotDrawBackground: 0..1; needsTile: 0..1; hasVerticalRuler: 0..1; hasHorizontalRuler: 0..1; showRulers: 0..1; oldRulerInstalled: 0..1; borderType: 0..((1 shl 2)-1); noDynamicScrolling: 0..1; hScrollerStatus: 0..1; vScrollerStatus: 0..1; hScrollerRequired: 0..1; vScrollerRequired: 0..1; {$endif} end; ); end; _SFlags = __SFlags; __SFlagsPtr = ^__SFlags; {$endif} {$endif} {$ifdef FUNCTIONS} {$ifndef NSSCROLLVIEW_PAS_F} {$define NSSCROLLVIEW_PAS_F} {$endif} {$endif} {$ifdef EXTERNAL_SYMBOLS} {$ifndef NSSCROLLVIEW_PAS_S} {$define NSSCROLLVIEW_PAS_S} {$endif} {$endif} {$ifdef FORWARD} NSScrollView = objcclass; NSScrollViewPointer = ^NSScrollView; NSScrollViewPtr = NSScrollViewPointer; {$endif} {$ifdef CLASSES} {$ifndef NSSCROLLVIEW_PAS_C} {$define NSSCROLLVIEW_PAS_C} { NSScrollView } NSScrollView = objcclass external (NSView) private _vScroller: NSScroller; _hScroller: NSScroller; _contentView: NSClipView; _headerClipView: NSClipView; _cornerView: NSView; _ruler: id; _sFlags: _SFlags; _extraIvars: Pointer; {garbage collector: __strong } _horizontalRuler: NSRulerView; _verticalRuler: NSRulerView; public class function frameSizeForContentSize_hasHorizontalScroller_hasVerticalScroller_borderType(cSize: NSSize; hFlag: Boolean; vFlag: Boolean; aType: NSBorderType): NSSize; message 'frameSizeForContentSize:hasHorizontalScroller:hasVerticalScroller:borderType:'; class function contentSizeForFrameSize_hasHorizontalScroller_hasVerticalScroller_borderType(fSize: NSSize; hFlag: Boolean; vFlag: Boolean; aType: NSBorderType): NSSize; message 'contentSizeForFrameSize:hasHorizontalScroller:hasVerticalScroller:borderType:'; function documentVisibleRect: NSRect; message 'documentVisibleRect'; function contentSize: NSSize; message 'contentSize'; procedure setDocumentView(aView: NSView); message 'setDocumentView:'; function documentView: id; message 'documentView'; procedure setContentView(contentView_: NSClipView); message 'setContentView:'; function contentView: NSClipView; message 'contentView'; procedure setDocumentCursor(anObj: NSCursor); message 'setDocumentCursor:'; function documentCursor: NSCursor; message 'documentCursor'; procedure setBorderType(aType: NSBorderType); message 'setBorderType:'; function borderType: NSBorderType; message 'borderType'; procedure setBackgroundColor(color: NSColor); message 'setBackgroundColor:'; function backgroundColor: NSColor; message 'backgroundColor'; procedure setDrawsBackground(flag: Boolean); message 'setDrawsBackground:'; function drawsBackground: Boolean; message 'drawsBackground'; procedure setHasVerticalScroller(flag: Boolean); message 'setHasVerticalScroller:'; function hasVerticalScroller: Boolean; message 'hasVerticalScroller'; procedure setHasHorizontalScroller(flag: Boolean); message 'setHasHorizontalScroller:'; function hasHorizontalScroller: Boolean; message 'hasHorizontalScroller'; procedure setVerticalScroller(anObject: NSScroller); message 'setVerticalScroller:'; function verticalScroller: NSScroller; message 'verticalScroller'; procedure setHorizontalScroller(anObject: NSScroller); message 'setHorizontalScroller:'; function horizontalScroller: NSScroller; message 'horizontalScroller'; function autohidesScrollers: Boolean; message 'autohidesScrollers'; procedure setAutohidesScrollers(flag: Boolean); message 'setAutohidesScrollers:'; procedure setHorizontalLineScroll(value: CGFloat); message 'setHorizontalLineScroll:'; procedure setVerticalLineScroll(value: CGFloat); message 'setVerticalLineScroll:'; procedure setLineScroll(value: CGFloat); message 'setLineScroll:'; function horizontalLineScroll: CGFloat; message 'horizontalLineScroll'; function verticalLineScroll: CGFloat; message 'verticalLineScroll'; function lineScroll: CGFloat; message 'lineScroll'; procedure setHorizontalPageScroll(value: CGFloat); message 'setHorizontalPageScroll:'; procedure setVerticalPageScroll(value: CGFloat); message 'setVerticalPageScroll:'; procedure setPageScroll(value: CGFloat); message 'setPageScroll:'; function horizontalPageScroll: CGFloat; message 'horizontalPageScroll'; function verticalPageScroll: CGFloat; message 'verticalPageScroll'; function pageScroll: CGFloat; message 'pageScroll'; procedure setScrollsDynamically(flag: Boolean); message 'setScrollsDynamically:'; function scrollsDynamically: Boolean; message 'scrollsDynamically'; procedure tile; message 'tile'; procedure reflectScrolledClipView(cView: NSClipView); message 'reflectScrolledClipView:'; procedure scrollWheel(theEvent: NSEvent); message 'scrollWheel:'; end; { NSRulerSupportCategory } NSRulerSupportCategory = objccategory external (NSScrollView) class procedure setRulerViewClass(rulerViewClass_: Pobjc_class); message 'setRulerViewClass:'; class function rulerViewClass: Pobjc_class; message 'rulerViewClass'; procedure setRulersVisible(flag: Boolean); message 'setRulersVisible:'; function rulersVisible: Boolean; message 'rulersVisible'; procedure setHasHorizontalRuler(flag: Boolean); message 'setHasHorizontalRuler:'; function hasHorizontalRuler: Boolean; message 'hasHorizontalRuler'; procedure setHasVerticalRuler(flag: Boolean); message 'setHasVerticalRuler:'; function hasVerticalRuler: Boolean; message 'hasVerticalRuler'; procedure setHorizontalRulerView(ruler: NSRulerView); message 'setHorizontalRulerView:'; function horizontalRulerView: NSRulerView; message 'horizontalRulerView'; procedure setVerticalRulerView(ruler: NSRulerView); message 'setVerticalRulerView:'; function verticalRulerView: NSRulerView; message 'verticalRulerView'; end; {$endif} {$endif}