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