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

CalLite: Less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8120 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-10-27 11:57:00 +00:00
parent 914354f205
commit 61cd7e671c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,7 +41,7 @@ unit CalendarLite;
interface
uses
Classes, SysUtils, LResources, LCLVersion, LMessages,
Classes, SysUtils, LResources, LCLVersion,
Forms, Controls, Graphics, Dialogs, Types, ExtCtrls, Menus;
{$if lcl_fullversion >= 1080000}
@ -501,7 +501,6 @@ const
'Праздники и выходные для %d не установлены,"dddd"", ""dd mmm"", ""yyyy",mmmm yyyy';
DBLCLICK_INTERVAL = 300; // Interval (ms) for detection of a double-click
DESIGNTIME_PPI = 96;
function SameRect(const R1, R2: TRect): Boolean;
@ -584,6 +583,7 @@ function TCalDateList.AsArray: TCalDateArray;
var
i: Integer;
begin
Result := nil;
SetLength(Result, Count);
for i:=0 to High(Result) do
Result[i] := Values[i];