/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 

    

  1. { Parsed from Appkit.framework NSClipView.h }
    2. 

  2. 

  3. {$ifdef TYPES}
    4. 

  4. {$ifndef NSCLIPVIEW_PAS_T}
    5. 

  5. {$define NSCLIPVIEW_PAS_T}
    6. 

  6. 

  7. {$endif}
    8. 

  8. {$endif}
    9. 

  9. 

  10. {$ifdef RECORDS}
    11. 

  11. {$ifndef NSCLIPVIEW_PAS_R}
    12. 

  12. {$define NSCLIPVIEW_PAS_R}
    13. 

  13. 

  14. {$endif}
    15. 

  15. {$endif}
    16. 

  16. 

  17. {$ifdef FUNCTIONS}
    18. 

  18. {$ifndef NSCLIPVIEW_PAS_F}
    19. 

  19. {$define NSCLIPVIEW_PAS_F}
    20. 

  20. 

  21. {$endif}
    22. 

  22. {$endif}
    23. 

  23. 

  24. {$ifdef EXTERNAL_SYMBOLS}
    25. 

  25. {$ifndef NSCLIPVIEW_PAS_S}
    26. 

  26. {$define NSCLIPVIEW_PAS_S}
    27. 

  27. 

  28. {$endif}
    29. 

  29. {$endif}
    30. 

  30. 

  31. {$ifdef FORWARD}
    32. 

  32.   NSClipView = objcclass;
    33. 

  33.   NSClipViewPointer = ^NSClipView;
    34. 

  34.   NSClipViewPtr = NSClipViewPointer;
    35. 

  35. 

  36. {$endif}
    37. 

  37. 

  38. {$ifdef CLASSES}
    39. 

  39. {$ifndef NSCLIPVIEW_PAS_C}
    40. 

  40. {$define NSCLIPVIEW_PAS_C}
    41. 

  41. 

  42. { NSClipView }
    43. 

  43.   NSClipView = objcclass external (NSView)
    44. 

  44.   private
    45. 

  45.     _backgroundColor: NSColor;
    46. 

  46.     _docView: NSView;
    47. 

  47.     _docRect: NSRect;
    48. 

  48.     _oldDocFrame: NSRect;
    49. 

  49.     _cursor: NSCursor;
    50. 

  50.     _scrollAnimationHelper: id;
    51. 

  51.     __cvFlags: record
    52. 

  52.       case byte of
    53. 

  53.        0: (_anonbitfield_NSClipView0: cuint);
    54. 

  54.        1: (data: bitpacked record
    55. 

  55.         _isFlipped: 0..1;
    56. 

  56.         onlyUncovered: 0..1;
    57. 

  57.         reflectScroll: 0..1;
    58. 

  58.         usedByCell: 0..1;
    59. 

  59.         scrollClipTo: 0..1;
    60. 

  60.         noCopyOnScroll: 0..1;
    61. 

  61.         _drawsBackground: 0..1;
    62. 

  62.         scrollInProgress: 0..1;
    63. 

  63.         skipRemoveSuperviewCheck: 0..1;
    64. 

  64.         animateCurrentScroll: 0..1;
    65. 

  65.         canAnimateScrolls: 0..1;
    66. 

  66.         nextScrollRelativeToCurrentPosition: 0..1;
    67. 

  67.         viewBoundsChangedOverridden: 0..1;
    68. 

  68.         viewFrameChangedOverridden: 0..1;
    69. 

  69.         documentViewAlignment: 0..((1 shl 4)-1);
    70. 

  70.         redrawnWhileScrolling: 0..1;
    71. 

  71.         RESERVED: 0..((1 shl 13)-1);
    72. 

  72.        end;
    73. 

  73.       );
    74. 

  74.       end;
    75. 

  75.     
    76. 

  76.   public
    77. 

  77.     procedure setBackgroundColor(color: NSColor); message 'setBackgroundColor:';
    78. 

  78.     function backgroundColor: NSColor; message 'backgroundColor';
    79. 

  79.     procedure setDrawsBackground(flag: Boolean); message 'setDrawsBackground:';
    80. 

  80.     function drawsBackground: Boolean; message 'drawsBackground';
    81. 

  81.     procedure setDocumentView(aView: NSView); message 'setDocumentView:';
    82. 

  82.     function documentView: id; message 'documentView';
    83. 

  83.     function documentRect: NSRect; message 'documentRect';
    84. 

  84.     procedure setDocumentCursor(anObj: NSCursor); message 'setDocumentCursor:';
    85. 

  85.     function documentCursor: NSCursor; message 'documentCursor';
    86. 

  86.     function documentVisibleRect: NSRect; message 'documentVisibleRect';
    87. 

  87.     procedure viewFrameChanged(notification: NSNotification); message 'viewFrameChanged:';
    88. 

  88.     procedure viewBoundsChanged(notification: NSNotification); message 'viewBoundsChanged:';
    89. 

  89.     procedure setCopiesOnScroll(flag: Boolean); message 'setCopiesOnScroll:';
    90. 

  90.     function copiesOnScroll: Boolean; message 'copiesOnScroll';
    91. 

  91.     function autoscroll(theEvent: NSEvent): Boolean; message 'autoscroll:';
    92. 

  92.     function constrainScrollPoint(newOrigin: NSPoint): NSPoint; message 'constrainScrollPoint:';
    93. 

  93.     procedure scrollToPoint(newOrigin: NSPoint); message 'scrollToPoint:';
    94. 

  94.   end;
    95. 

  95. 

  96. { NSClipViewSuperviewCategory }
    97. 

  97.   NSClipViewSuperviewCategory = objccategory external (NSView)
    98. 

  98.     procedure reflectScrolledClipView(aClipView: NSClipView); message 'reflectScrolledClipView:';
    99. 

  99.     procedure scrollClipView_toPoint(aClipView: NSClipView; aPoint: NSPoint); message 'scrollClipView:toPoint:';
    100. 

  100.   end;
    101. 

  101. 

  102. {$endif}
    103. 

  103. {$endif}
    104.