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; 18 : begin m := 23; n := 4; end;
19,20 : begin m := 24; n := 5; end; 19,20 : begin m := 24; n := 5; end;
21 : begin m := 24; n := 6; 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; end;
a := Year mod 19; a := Year mod 19;
b := Year mod 4; b := Year mod 4;

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

@@ -1083,7 +1083,7 @@ begin
FMonthNames := TStringList.Create; FMonthNames := TStringList.Create;
FDisplayTexts := TStringList.Create; FDisplayTexts := TStringList.Create;
FDisplayTexts.StrictDelimiter := True; FDisplayTexts.StrictDelimiter := True;
FDisplayTexts.Delimiter := ','; FDisplayTexts.Delimiter := '|';
SetDefaultDisplayTexts; SetDefaultDisplayTexts;
FPopupMenu := TPopupMenu.Create(Self); FPopupMenu := TPopupMenu.Create(Self);
FCalDrawer := TCalDrawer.Create(Canvas); FCalDrawer := TCalDrawer.Create(Canvas);
@@ -1137,7 +1137,7 @@ end;
function TCalendarLite.GetDisplayTexts: String; function TCalendarLite.GetDisplayTexts: String;
begin begin
Result := FDisplayTexts.CommaText; Result := FDisplayTexts.DelimitedText;
end; end;
function TCalendarLite.GetMonthName(AMonth: Integer): String; function TCalendarLite.GetMonthName(AMonth: Integer): String;