blob: 9a110451797131a9eba14a17f2ff322fef6fea00 (
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
|
{ Parsed from Appkit.framework NSRulerMarker.h }
{$ifdef TYPES}
{$ifndef NSRULERMARKER_PAS_T}
{$define NSRULERMARKER_PAS_T}
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSRULERMARKER_PAS_R}
{$define NSRULERMARKER_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSRULERMARKER_PAS_F}
{$define NSRULERMARKER_PAS_F}
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSRULERMARKER_PAS_S}
{$define NSRULERMARKER_PAS_S}
{$endif}
{$endif}
{$ifdef FORWARD}
NSRulerMarker = objcclass;
NSRulerMarkerPointer = ^NSRulerMarker;
NSRulerMarkerPtr = NSRulerMarkerPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSRULERMARKER_PAS_C}
{$define NSRULERMARKER_PAS_C}
{ NSRulerMarker }
NSRulerMarker = objcclass external (NSObject, NSCopyingProtocol, NSCodingProtocol)
private
_ruler: NSRulerView;
_location: CGFloat;
_image: NSImage;
_imageOrigin: NSPoint;
__rFlags: record
case byte of
0: (_anonbitfield_NSRulerMarker0: cuint);
1: (data: bitpacked record
movable: 0..1;
removable: 0..1;
dragging: 0..1;
pinned: 0..1;
_reserved: 0..((1 shl 28)-1);
end;
);
end;
_representedObject: id;
public
function initWithRulerView_markerLocation_image_imageOrigin(ruler_: NSRulerView; location: CGFloat; image_: NSImage; imageOrigin_: NSPoint): id; message 'initWithRulerView:markerLocation:image:imageOrigin:';
function ruler: NSRulerView; message 'ruler';
procedure setMarkerLocation(location: CGFloat); message 'setMarkerLocation:';
function markerLocation: CGFloat; message 'markerLocation';
procedure setImage(image_: NSImage); message 'setImage:';
function image: NSImage; message 'image';
procedure setImageOrigin(imageOrigin_: NSPoint); message 'setImageOrigin:';
function imageOrigin: NSPoint; message 'imageOrigin';
procedure setMovable(flag: Boolean); message 'setMovable:';
procedure setRemovable(flag: Boolean); message 'setRemovable:';
function isMovable: Boolean; message 'isMovable';
function isRemovable: Boolean; message 'isRemovable';
function isDragging: Boolean; message 'isDragging';
procedure setRepresentedObject(representedObject_: NSCopyingProtocol); message 'setRepresentedObject:';
function representedObject: NSCopyingProtocol; message 'representedObject';
function imageRectInRuler: NSRect; message 'imageRectInRuler';
function thicknessRequiredInRuler: CGFloat; message 'thicknessRequiredInRuler';
procedure drawRect(rect: NSRect); message 'drawRect:';
function trackMouse_adding(mouseDownEvent: NSEvent; isAdding: Boolean): Boolean; message 'trackMouse:adding:';
{ Adopted Protocols }
function copyWithZone(zone_: NSZonePtr): id;
procedure encodeWithCoder(aCoder: NSCoder);
function initWithCoder(aDecoder: NSCoder): id;
end;
{$endif}
{$endif}
|
