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

tvplanit: Adjust visibility of WeekView and MonthView variables and methods. Cosmetic changes. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8413 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-22 20:56:10 +00:00
parent 9a098ee42b
commit aaf4b1b2b4
10 changed files with 278 additions and 297 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpvcard.pas
View File

@ -310,7 +310,7 @@ begin
fs := FormatSettings;
fs.DateSeparator := '-';
fs.ShortDateFormat := 'yyyy/mm/dd';
if TryStrToDate(item.Value, dt) then
if TryStrToDate(item.Value, dt, fs) then
begin
if (item.Key = 'BDAY') then
FBirthday := dt
@ -397,8 +397,6 @@ begin
end;
procedure TVpVCard.SaveToStrings(AList: TStrings);
var
s: String;
begin
AList.Add('BEGIN:VCARD');
AList.Add('VERSION:3.0');