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

CalLite: Always use DisplayTexts.DelimitedText instead of CommaText.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5337 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-11 08:34:36 +00:00
parent 78680407f8
commit d724556826
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/callite/demo2/umaintestcallite.pp
View File

@ -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;

4
components/callite/source/calendarlite.pas
View File

@ -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;