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
|
{ Include file for "Text" tests. Used by vtmain.pas. }
// single line
node1 := Tree.Items.AddChild(mainnode, 'single line');
node := Tree.Items.AddChild(node1, 'horizontal');
Tree.Items.AddChildObject(node, 'left aligned',
TRenderParams.Create(@Render_Text, 'text_left.png', $0000));
Tree.Items.AddChildObject(node, 'centered',
TRenderParams.Create(@Render_Text, 'text_center.png', $0001));
Tree.Items.AddChildObject(node, 'right aligned',
TRenderParams.Create(@Render_Text, 'text_right.png', $0002));
node := Tree.Items.AddChild(node1, 'rotated by 30 deg');
Tree.Items.AddChildObject(node, 'left aligned',
TRenderParams.Create(@Render_Text, 'text_left_30.png', $1000));
Tree.Items.AddChildObject(node, 'centered',
TRenderParams.Create(@Render_Text, 'text_center_30.png', $1001));
Tree.Items.AddChildObject(node, 'right aligned',
TRenderParams.Create(@Render_Text, 'text_right_30.png', $1002));
node := Tree.Items.AddChild(node1, 'vertical (90 deg, upward)');
Tree.Items.AddChildObject(node, 'left aligned',
TRenderParams.Create(@Render_Text, 'text_left_90.png', $2000));
Tree.Items.AddChildObject(node, 'centered',
TRenderParams.Create(@Render_Text, 'text_center_90.png', $2001));
Tree.Items.AddChildObject(node, 'right aligned',
TRenderParams.Create(@Render_Text, 'text_right_90.png', $2002));
node := Tree.Items.AddChild(node1, 'vertical (-90 deg, downward)');
Tree.Items.AddChildObject(node, 'left aligned',
TRenderParams.Create(@Render_Text, 'text_left_m90.png', $3000));
Tree.Items.AddChildObject(node, 'centered',
TRenderParams.Create(@Render_Text, 'text_center_m90.png', $3001));
Tree.Items.AddChildObject(node, 'right aligned',
TRenderParams.Create(@Render_Text, 'text_right_m90.png', $3002));
// two lines
node1 := Tree.Items.AddChild(mainnode, 'two lines');
node := Tree.Items.AddChild(node1, 'horizontal');
Tree.Items.AddChildObject(node, 'left aligned',
TRenderParams.Create(@Render_2Lines, 'text2_left.png', $0000));
Tree.Items.AddChildObject(node, 'centered',
TRenderParams.Create(@Render_2Lines, 'text2_center.png', $0001));
Tree.Items.AddChildObject(node, 'right aligned',
TRenderParams.Create(@Render_2Lines, 'text2_right.png', $0002));
node := Tree.Items.AddChild(node1, 'rotated by 30 deg');
Tree.Items.AddChildObject(node, 'left aligned',
TRenderParams.Create(@Render_2Lines, 'text2_left_30.png', $1000));
Tree.Items.AddChildObject(node, 'centered',
TRenderParams.Create(@Render_2Lines, 'text2_center_30.png', $1001));
Tree.Items.AddChildObject(node, 'right aligned',
TRenderParams.Create(@Render_2Lines, 'text2_right_30.png', $1002));
node := Tree.Items.AddChild(node1, 'vertical (90 deg, upward)');
Tree.Items.AddChildObject(node, 'left aligned',
TRenderParams.Create(@Render_2Lines, 'text2_left_90.png', $2000));
Tree.Items.AddChildObject(node, 'centered',
TRenderParams.Create(@Render_2Lines, 'text2_center_90.png', $2001));
Tree.Items.AddChildObject(node, 'right aligned',
TRenderParams.Create(@Render_2Lines, 'text2_right_90.png', $2002));
node := Tree.Items.AddChild(node1, 'vertical (-90 deg, downward)');
Tree.Items.AddChildObject(node, 'left aligned',
TRenderParams.Create(@Render_2Lines, 'text2_left_m90.png', $3000));
Tree.Items.AddChildObject(node, 'centered',
TRenderParams.Create(@Render_2Lines, 'text2_center_m90.png', $3001));
Tree.Items.AddChildObject(node, 'right aligned',
TRenderParams.Create(@Render_2Lines, 'text2_right_m90.png', $3002));
// Fonts
node := Tree.Items.AddChild(mainnode, 'Fonts');
Tree.Items.AddChildObject(node, 'Times New Roman + Courier New',
TRenderParams.Create(@Render_Text_Fonts, 'text_fonts.png'));
// Text colors
Tree.Items.AddChildObject(mainnode, 'Text colors',
TRenderParams.Create(@Render_Text_Colors, 'text_colors.png'));
|
