pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: One more automatic divider line for report.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7705 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-28 10:59:09 +00:00
parent 697e7ba4f8
commit f25cde2b88
3 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/lazstats/source/forms/analysis/descriptive/descriptiveunit.pas
View File

@@ -403,7 +403,7 @@ begin
lReport.Add('See the internet site http://www.xycoon.com/ for the above.'); lReport.Add('See the internet site http://www.xycoon.com/ for the above.');
lReport.Add(''); lReport.Add('');
end; // end of experimental alternatives end; // end of experimental alternatives
lReport.Add(DIVIDER_AUTO); lReport.Add(DIVIDER_SMALL_AUTO);
end; // next j variable end; // next j variable
FReportFrame.DisplayReport(lReport); FReportFrame.DisplayReport(lReport);

2
applications/lazstats/source/frames/reportframeunit.pas
View File

@@ -84,6 +84,8 @@ begin
maxLen := Longestline(AReport); maxLen := Longestline(AReport);
for s in AReport do for s in AReport do
if s = DIVIDER_AUTO then if s = DIVIDER_AUTO then
ReportMemo.Lines.Add(AddChar('=', '', maxLen))
else if s = DIVIDER_SMALL_AUTO then
ReportMemo.Lines.Add(AddChar('-', '', maxLen)) ReportMemo.Lines.Add(AddChar('-', '', maxLen))
else else
ReportMemo.Lines.Add(s); ReportMemo.Lines.Add(s);

3
applications/lazstats/source/units/globals.pas
View File

@@ -88,7 +88,8 @@ const
DIVIDER = '==========================================================================='; DIVIDER = '===========================================================================';
DIVIDER_SMALL = '---------------------------------------------------------------------------'; DIVIDER_SMALL = '---------------------------------------------------------------------------';
DIVIDER_AUTO = '@-'; DIVIDER_AUTO = '@=';
DIVIDER_SMALL_AUTO = '@-';
GRAPH_BACK_COLOR = clCream; GRAPH_BACK_COLOR = clCream;
GRAPH_WALL_COLOR = clGray; GRAPH_WALL_COLOR = clGray;