/packages/cocoaint/src/appkit/NSClipView.inc
Pascal | 103 lines | 58 code | 15 blank | 30 comment | 0 complexity | 1571f99b4b1c78a8ffab7177674685d8 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{ Parsed from Appkit.framework NSClipView.h } 2 3{$ifdef TYPES} 4{$ifndef NSCLIPVIEW_PAS_T} 5{$define NSCLIPVIEW_PAS_T} 6 7{$endif} 8{$endif} 9 10{$ifdef RECORDS} 11{$ifndef NSCLIPVIEW_PAS_R} 12{$define NSCLIPVIEW_PAS_R} 13 14{$endif} 15{$endif} 16 17{$ifdef FUNCTIONS} 18{$ifndef NSCLIPVIEW_PAS_F} 19{$define NSCLIPVIEW_PAS_F} 20 21{$endif} 22{$endif} 23 24{$ifdef EXTERNAL_SYMBOLS} 25{$ifndef NSCLIPVIEW_PAS_S} 26{$define NSCLIPVIEW_PAS_S} 27 28{$endif} 29{$endif} 30 31{$ifdef FORWARD} 32 NSClipView = objcclass; 33 NSClipViewPointer = ^NSClipView; 34 NSClipViewPtr = NSClipViewPointer; 35 36{$endif} 37 38{$ifdef CLASSES} 39{$ifndef NSCLIPVIEW_PAS_C} 40{$define NSCLIPVIEW_PAS_C} 41 42{ NSClipView } 43 NSClipView = objcclass external (NSView) 44 private 45 _backgroundColor: NSColor; 46 _docView: NSView; 47 _docRect: NSRect; 48 _oldDocFrame: NSRect; 49 _cursor: NSCursor; 50 _scrollAnimationHelper: id; 51 __cvFlags: record 52 case byte of 53 0: (_anonbitfield_NSClipView0: cuint); 54 1: (data: bitpacked record 55 _isFlipped: 0..1; 56 onlyUncovered: 0..1; 57 reflectScroll: 0..1; 58 usedByCell: 0..1; 59 scrollClipTo: 0..1; 60 noCopyOnScroll: 0..1; 61 _drawsBackground: 0..1; 62 scrollInProgress: 0..1; 63 skipRemoveSuperviewCheck: 0..1; 64 animateCurrentScroll: 0..1; 65 canAnimateScrolls: 0..1; 66 nextScrollRelativeToCurrentPosition: 0..1; 67 viewBoundsChangedOverridden: 0..1; 68 viewFrameChangedOverridden: 0..1; 69 documentViewAlignment: 0..((1 shl 4)-1); 70 redrawnWhileScrolling: 0..1; 71 RESERVED: 0..((1 shl 13)-1); 72 end; 73 ); 74 end; 75 76 public 77 procedure setBackgroundColor(color: NSColor); message 'setBackgroundColor:'; 78 function backgroundColor: NSColor; message 'backgroundColor'; 79 procedure setDrawsBackground(flag: Boolean); message 'setDrawsBackground:'; 80 function drawsBackground: Boolean; message 'drawsBackground'; 81 procedure setDocumentView(aView: NSView); message 'setDocumentView:'; 82 function documentView: id; message 'documentView'; 83 function documentRect: NSRect; message 'documentRect'; 84 procedure setDocumentCursor(anObj: NSCursor); message 'setDocumentCursor:'; 85 function documentCursor: NSCursor; message 'documentCursor'; 86 function documentVisibleRect: NSRect; message 'documentVisibleRect'; 87 procedure viewFrameChanged(notification: NSNotification); message 'viewFrameChanged:'; 88 procedure viewBoundsChanged(notification: NSNotification); message 'viewBoundsChanged:'; 89 procedure setCopiesOnScroll(flag: Boolean); message 'setCopiesOnScroll:'; 90 function copiesOnScroll: Boolean; message 'copiesOnScroll'; 91 function autoscroll(theEvent: NSEvent): Boolean; message 'autoscroll:'; 92 function constrainScrollPoint(newOrigin: NSPoint): NSPoint; message 'constrainScrollPoint:'; 93 procedure scrollToPoint(newOrigin: NSPoint); message 'scrollToPoint:'; 94 end; 95 96{ NSClipViewSuperviewCategory } 97 NSClipViewSuperviewCategory = objccategory external (NSView) 98 procedure reflectScrolledClipView(aClipView: NSClipView); message 'reflectScrolledClipView:'; 99 procedure scrollClipView_toPoint(aClipView: NSClipView; aPoint: NSPoint); message 'scrollClipView:toPoint:'; 100 end; 101 102{$endif} 103{$endif}