paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 10:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, lrCodeReport: sample for testing text layout

Browse Source 
git-svn-id: trunk@49764 -
This commit is contained in:
jesus 2015-09-05 19:00:17 +00:00
parent 66468c8af8
commit 79c0805afb
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/lazreport/source/addons/lrcodereport/sample/main.pas
View File

@ -140,6 +140,34 @@ begin
DrawText(0, Cursor.YBottom, GetPageWidth, 6, 'Testing cursors', BoxText);
DrawText(0, Cursor.YBottom, GetPageWidth, 6, 'next line', BoxText);
DrawText(0, Cursor.YBottom, GetPageWidth, 6, 'another line', BoxText);
// Layout
x := Cursor.YBottom + 5;
BoxText.FillColor := clSilver;
BoxText.Line.LColor := clGreen;
BoxText.FontColor := clRed;
BoxText.Layout := tlTop;
BoxText.Alignment := taLeftJustify;
DrawText(20, x, 50, 15, 'TopLeft', BoxText);
BoxText.Alignment := taCenter;
DrawText(70, x, 50, 15, 'TopCenter', BoxText);
BoxText.Alignment := taRightJustify;
DrawText(120, x, 50, 15, 'TopRight', BoxText);
x := Cursor.YBottom;
BoxText.Layout := tlCenter;
BoxText.Alignment := taLeftJustify;
DrawText(20, x, 50, 15, 'CenterLeft', BoxText);
BoxText.Alignment := taCenter;
DrawText(70, x, 50, 15, 'CenterCenter', BoxText);
BoxText.Alignment := taRightJustify;
DrawText(120, x, 50, 15, 'CenterRight', BoxText);
x := Cursor.YBottom;
BoxText.Layout := tlBottom;
BoxText.Alignment := taLeftJustify;
DrawText(20, x, 50, 15, 'BottomLeft', BoxText);
BoxText.Alignment := taCenter;
DrawText(70, x, 50, 15, 'BottomCenter', BoxText);
BoxText.Alignment := taRightJustify;
DrawText(120, x, 50, 15, 'BottomRight', BoxText);
LineStyle.LColor := clMaroon;
LineStyle.LWidth := 1;