diff --git a/applications/lazstats/source/forms/analysis/descriptive/descriptiveunit.pas b/applications/lazstats/source/forms/analysis/descriptive/descriptiveunit.pas index 1c06c4137..95b8f4b48 100644 --- a/applications/lazstats/source/forms/analysis/descriptive/descriptiveunit.pas +++ b/applications/lazstats/source/forms/analysis/descriptive/descriptiveunit.pas @@ -403,7 +403,7 @@ begin lReport.Add('See the internet site http://www.xycoon.com/ for the above.'); lReport.Add(''); end; // end of experimental alternatives - lReport.Add(DIVIDER_AUTO); + lReport.Add(DIVIDER_SMALL_AUTO); end; // next j variable FReportFrame.DisplayReport(lReport); diff --git a/applications/lazstats/source/frames/reportframeunit.pas b/applications/lazstats/source/frames/reportframeunit.pas index a2ca8ab99..10330488b 100644 --- a/applications/lazstats/source/frames/reportframeunit.pas +++ b/applications/lazstats/source/frames/reportframeunit.pas @@ -84,6 +84,8 @@ begin maxLen := Longestline(AReport); for s in AReport do if s = DIVIDER_AUTO then + ReportMemo.Lines.Add(AddChar('=', '', maxLen)) + else if s = DIVIDER_SMALL_AUTO then ReportMemo.Lines.Add(AddChar('-', '', maxLen)) else ReportMemo.Lines.Add(s); diff --git a/applications/lazstats/source/units/globals.pas b/applications/lazstats/source/units/globals.pas index d8e1e7a77..cb9ebbb58 100644 --- a/applications/lazstats/source/units/globals.pas +++ b/applications/lazstats/source/units/globals.pas @@ -88,7 +88,8 @@ const DIVIDER = '==========================================================================='; DIVIDER_SMALL = '---------------------------------------------------------------------------'; - DIVIDER_AUTO = '@-'; + DIVIDER_AUTO = '@='; + DIVIDER_SMALL_AUTO = '@-'; GRAPH_BACK_COLOR = clCream; GRAPH_WALL_COLOR = clGray;