mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-07 07:18:14 +02:00
84 lines
3.7 KiB
PHP
84 lines
3.7 KiB
PHP
{ 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'));
|
|
|
|
|