blob: 6a83afed4a18549cd50ce03389bd8c6e6567cd72 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
{ Parsed from Appkit.framework NSTextAttachment.h }
{$ifdef TYPES}
{$ifndef NSTEXTATTACHMENT_PAS_T}
{$define NSTEXTATTACHMENT_PAS_T}
{ Constants }
const
NSAttachmentCharacter = $fffc;
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSTEXTATTACHMENT_PAS_R}
{$define NSTEXTATTACHMENT_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSTEXTATTACHMENT_PAS_F}
{$define NSTEXTATTACHMENT_PAS_F}
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSTEXTATTACHMENT_PAS_S}
{$define NSTEXTATTACHMENT_PAS_S}
{$endif}
{$endif}
{$ifdef FORWARD}
NSTextAttachmentCellProtocol = objcprotocol;
NSTextAttachmentCell = objcclass;
NSTextAttachmentCellPointer = ^NSTextAttachmentCell;
NSTextAttachmentCellPtr = NSTextAttachmentCellPointer;
NSTextAttachment = objcclass;
NSTextAttachmentPointer = ^NSTextAttachment;
NSTextAttachmentPtr = NSTextAttachmentPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSTEXTATTACHMENT_PAS_C}
{$define NSTEXTATTACHMENT_PAS_C}
{ NSTextAttachmentCell }
NSTextAttachmentCell = objcclass external (NSCell, NSTextAttachmentCellProtocol)
private
_attachment: NSTextAttachment;
public
{ Adopted Protocols }
procedure drawWithFrame_inView(cellFrame: NSRect; controlView: NSView);
function wantsToTrackMouse: Boolean;
procedure highlight_withFrame_inView(flag: Boolean; cellFrame: NSRect; controlView: NSView);
function trackMouse_inRect_ofView_untilMouseUp(theEvent: NSEvent; cellFrame: NSRect; controlView: NSView; flag: Boolean): Boolean;
function cellSize: NSSize;
function cellBaselineOffset: NSPoint;
procedure setAttachment(anObject: NSTextAttachment);
function attachment: NSTextAttachment;
procedure drawWithFrame_inView_characterIndex(cellFrame: NSRect; controlView: NSView; charIndex: NSUInteger);
procedure drawWithFrame_inView_characterIndex_layoutManager(cellFrame: NSRect; controlView: NSView; charIndex: NSUInteger; layoutManager: NSLayoutManager);
function wantsToTrackMouseForEvent_inRect_ofView_atCharacterIndex(theEvent: NSEvent; cellFrame: NSRect; controlView: NSView; charIndex: NSUInteger): Boolean;
function trackMouse_inRect_ofView_atCharacterIndex_untilMouseUp(theEvent: NSEvent; cellFrame: NSRect; controlView: NSView; charIndex: NSUInteger; flag: Boolean): Boolean;
function cellFrameForTextContainer_proposedLineFragment_glyphPosition_characterIndex(textContainer: NSTextContainer; lineFrag: NSRect; position: NSPoint; charIndex: NSUInteger): NSRect;
end;
{ NSTextAttachment }
NSTextAttachment = objcclass external (NSObject, NSCodingProtocol)
private
_fileWrapper: NSFileWrapper;
_cell: NSTextAttachmentCellProtocol;
__flags: record
case byte of
0: (_anonbitfield_NSTextAttachment1: cuint);
1: (data: bitpacked record
cellWasExplicitlySet: 0..1;
ignoresOrientation: 0..1;
_anonbitfield_NSTextAttachment0: 0..((1 shl 30)-1);
end;
);
end;
public
function initWithFileWrapper(fileWrapper_: NSFileWrapper): id; message 'initWithFileWrapper:';
procedure setFileWrapper(fileWrapper_: NSFileWrapper); message 'setFileWrapper:';
function fileWrapper: NSFileWrapper; message 'fileWrapper';
function attachmentCell: NSTextAttachmentCellProtocol; message 'attachmentCell';
procedure setAttachmentCell(cell: NSTextAttachmentCellProtocol); message 'setAttachmentCell:';
{ Adopted Protocols }
procedure encodeWithCoder(aCoder: NSCoder);
function initWithCoder(aDecoder: NSCoder): id;
end;
{ NSAttributedStringAttachmentConveniencesCategory }
NSAttributedStringAttachmentConveniencesCategory = objccategory external (NSAttributedString)
class function attributedStringWithAttachment(attachment: NSTextAttachment): NSAttributedString; message 'attributedStringWithAttachment:';
end;
{ NSMutableAttributedStringAttachmentConveniencesCategory }
NSMutableAttributedStringAttachmentConveniencesCategory = objccategory external (NSMutableAttributedString)
procedure updateAttachmentsFromPath(path: NSString); message 'updateAttachmentsFromPath:';
end;
{$endif}
{$endif}
{$ifdef PROTOCOLS}
{$ifndef NSTEXTATTACHMENT_PAS_P}
{$define NSTEXTATTACHMENT_PAS_P}
{ NSTextAttachmentCell Protocol }
NSTextAttachmentCellProtocol = objcprotocol external name 'NSTextAttachmentCell'
procedure drawWithFrame_inView(cellFrame: NSRect; controlView: NSView); message 'drawWithFrame:inView:';
function wantsToTrackMouse: Boolean; message 'wantsToTrackMouse';
procedure highlight_withFrame_inView(flag: Boolean; cellFrame: NSRect; controlView: NSView); message 'highlight:withFrame:inView:';
function trackMouse_inRect_ofView_untilMouseUp(theEvent: NSEvent; cellFrame: NSRect; controlView: NSView; flag: Boolean): Boolean; message 'trackMouse:inRect:ofView:untilMouseUp:';
function cellSize: NSSize; message 'cellSize';
function cellBaselineOffset: NSPoint; message 'cellBaselineOffset';
procedure setAttachment(anObject: NSTextAttachment); message 'setAttachment:';
function attachment: NSTextAttachment; message 'attachment';
procedure drawWithFrame_inView_characterIndex(cellFrame: NSRect; controlView: NSView; charIndex: NSUInteger); message 'drawWithFrame:inView:characterIndex:';
procedure drawWithFrame_inView_characterIndex_layoutManager(cellFrame: NSRect; controlView: NSView; charIndex: NSUInteger; layoutManager: NSLayoutManager); message 'drawWithFrame:inView:characterIndex:layoutManager:';
function wantsToTrackMouseForEvent_inRect_ofView_atCharacterIndex(theEvent: NSEvent; cellFrame: NSRect; controlView: NSView; charIndex: NSUInteger): Boolean; message 'wantsToTrackMouseForEvent:inRect:ofView:atCharacterIndex:';
function trackMouse_inRect_ofView_atCharacterIndex_untilMouseUp(theEvent: NSEvent; cellFrame: NSRect; controlView: NSView; charIndex: NSUInteger; flag: Boolean): Boolean; message 'trackMouse:inRect:ofView:atCharacterIndex:untilMouseUp:';
function cellFrameForTextContainer_proposedLineFragment_glyphPosition_characterIndex(textContainer: NSTextContainer; lineFrag: NSRect; position: NSPoint; charIndex: NSUInteger): NSRect; message 'cellFrameForTextContainer:proposedLineFragment:glyphPosition:characterIndex:';
end;
{$endif}
{$endif}
|
