/packages/cocoaint/src/quartzcore/CAShapeLayer.inc

 1{ Parsed from Quartzcore.framework CAShapeLayer.h }
 2
 3{$ifdef TYPES}
 4{$ifndef CASHAPELAYER_PAS_T}
 5{$define CASHAPELAYER_PAS_T}
 6
 7{$endif}
 8{$endif}
 9
10{$ifdef RECORDS}
11{$ifndef CASHAPELAYER_PAS_R}
12{$define CASHAPELAYER_PAS_R}
13
14{$endif}
15{$endif}
16
17{$ifdef FUNCTIONS}
18{$ifndef CASHAPELAYER_PAS_F}
19{$define CASHAPELAYER_PAS_F}
20
21{$endif}
22{$endif}
23
24{$ifdef EXTERNAL_SYMBOLS}
25{$ifndef CASHAPELAYER_PAS_S}
26{$define CASHAPELAYER_PAS_S}
27
28{ External string constants }
29var
30  kCAFillRuleNonZero: NSString; cvar; external;
31  kCAFillRuleEvenOdd: NSString; cvar; external;
32  kCALineJoinMiter: NSString; cvar; external;
33  kCALineJoinRound: NSString; cvar; external;
34  kCALineJoinBevel: NSString; cvar; external;
35  kCALineCapButt: NSString; cvar; external;
36  kCALineCapRound: NSString; cvar; external;
37  kCALineCapSquare: NSString; cvar; external;
38
39{$endif}
40{$endif}
41
42{$ifdef FORWARD}
43  CAShapeLayer = objcclass;
44  CAShapeLayerPointer = ^CAShapeLayer;
45  CAShapeLayerPtr = CAShapeLayerPointer;
46
47{$endif}
48
49{$ifdef CLASSES}
50{$ifndef CASHAPELAYER_PAS_C}
51{$define CASHAPELAYER_PAS_C}
52
53{ CAShapeLayer }
54  CAShapeLayer = objcclass external (CALayer)
55    
56  public
57    procedure setPath (newValue: CGPathRef); message 'setPath:';
58    function path: CGPathRef; message 'path';
59    procedure setFillColor (newValue: CGColorRef); message 'setFillColor:';
60    function fillColor: CGColorRef; message 'fillColor';
61    procedure setFillRule (newValue: NSString); message 'setFillRule:';
62    function fillRule: NSString; message 'fillRule';
63    procedure setStrokeColor (newValue: CGColorRef); message 'setStrokeColor:';
64    function strokeColor: CGColorRef; message 'strokeColor';
65    procedure setLineWidth (newValue: CGFloat); message 'setLineWidth:';
66    function lineWidth: CGFloat; message 'lineWidth';
67    procedure setMiterLimit (newValue: CGFloat); message 'setMiterLimit:';
68    function miterLimit: CGFloat; message 'miterLimit';
69    procedure setLineCap (newValue: NSString); message 'setLineCap:';
70    function lineCap: NSString; message 'lineCap';
71    procedure setLineJoin (newValue: NSString); message 'setLineJoin:';
72    function lineJoin: NSString; message 'lineJoin';
73    procedure setLineDashPhase (newValue: CGFloat); message 'setLineDashPhase:';
74    function lineDashPhase: CGFloat; message 'lineDashPhase';
75    procedure setLineDashPattern (newValue: NSArray); message 'setLineDashPattern:';
76    function lineDashPattern: NSArray; message 'lineDashPattern';
77  end;
78
79{$endif}
80{$endif}