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
|
{ Include file for "Simple shapes" tests. Used by vtmain.pas. }
// Circle
node := Tree.Items.AddChild(mainnode, 'Circle (solid) - moved up');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_Shape, 'circle_solid_rot30ccw.png', $00010100));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_Shape, 'circle_solid.png', $0100));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_Shape, 'circle_solid_rot30cw.png', $00020100));
// Ellipse
node := Tree.Items.AddChild(mainnode, 'Ellipse (solid) - moved up');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_Shape, 'ellipse_solid_rot30ccw.png', $00010200));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_Shape, 'ellipse_solid.png', $0200));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_Shape, 'ellipse_solid_rot30cw.png', $00020200));
// Rectangle
node := Tree.Items.AddChild(mainnode, 'Rectangle (solid) - moved up');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_Shape, 'rect_solid_rot30ccw.png', $00010300));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_Shape, 'rect_solid.png', $0300));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_Shape, 'rect_solid_rot30cw.png', $00020300));
// Rounded rectangle
node := Tree.Items.AddChild(mainnode, 'Rounded rectangle (solid) - moved up');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_Shape, 'rounded_rect_solid_rot30ccw.png', $00010400));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_Shape, 'rounded_rect_solid.png', $0400));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_Shape, 'rounded_rect_solid_rot30cw.png', $00020400));
// Polygon
node := Tree.Items.AddChild(mainnode, 'Polygon (solid) - moved up');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_Shape, 'polygon_solid_rot30ccw.png', $00010500));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_Shape, 'polygon_solid.png', $0500));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_Shape, 'polygon_solid_rot30cw.png', $00020500));
|
