PageRenderTime 16ms CodeModel.GetById 7ms app.highlight 8ms RepoModel.GetById 0ms app.codeStats 0ms

/packages/cocoaint/src/appkit/NSClipView.inc

https://github.com/slibre/freepascal
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}