From d7245568262afc058d113167464ad987f297f974 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 11 Nov 2016 08:34:36 +0000
Subject: [PATCH] CalLite: Always use DisplayTexts.DelimitedText instead of
 CommaText.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5337 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/callite/demo2/umaintestcallite.pp | 2 +-
 components/callite/source/calendarlite.pas   | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/callite/demo2/umaintestcallite.pp b/components/callite/demo2/umaintestcallite.pp
index 044c436a9..be5bec127 100644
--- a/components/callite/demo2/umaintestcallite.pp
+++ b/components/callite/demo2/umaintestcallite.pp
@@ -104,7 +104,7 @@ begin
     18    : begin m := 23; n := 4; end;
     19,20 : begin m := 24; n := 5; end;
     21    : begin m := 24; n := 6; end;
-    else    raise Exception.Create('Only years above 1700 supported.');
+    else    raise Exception.Create('Only years after 1700 supported.');
   end;
   a := Year mod 19;
   b := Year mod 4;
diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index aee5d52bf..f96cd9c2c 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -1083,7 +1083,7 @@ begin
   FMonthNames := TStringList.Create;
   FDisplayTexts := TStringList.Create;
   FDisplayTexts.StrictDelimiter := True;
-  FDisplayTexts.Delimiter := ',';
+  FDisplayTexts.Delimiter := '|';
   SetDefaultDisplayTexts;
   FPopupMenu := TPopupMenu.Create(Self);
   FCalDrawer := TCalDrawer.Create(Canvas);
@@ -1137,7 +1137,7 @@ end;
 
 function TCalendarLite.GetDisplayTexts: String;
 begin
-  Result := FDisplayTexts.CommaText;
+  Result := FDisplayTexts.DelimitedText;
 end;
 
 function TCalendarLite.GetMonthName(AMonth: Integer): String;