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

callite: Fix compilation with some old FPC versions (https://forum.lazarus.freepascal.org/index.php?topic=56258.msg418018).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8086 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-09-13 07:36:35 +00:00
parent c642795086
commit 8659037313
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -504,6 +504,12 @@ const
DESIGNTIME_PPI = 96; DESIGNTIME_PPI = 96;
function SameRect(const R1, R2: TRect): Boolean;
begin
Result := (R1.Left = R2.Left) and (R1.Top = R2.Top) and
(R1.Right = R2.Right) and (R1.Bottom = R2.Bottom);
end;
{ Holiday helpers } { Holiday helpers }
{ Clears the per month holiday buffer } { Clears the per month holiday buffer }
@ -1395,7 +1401,7 @@ end;
procedure TCalDrawer.SetBoundsRect(ARect: TRect); procedure TCalDrawer.SetBoundsRect(ARect: TRect);
begin begin
if FBoundsRect = ARect then exit; if SameRect(FBoundsRect, ARect) then exit;
FBoundsRect := ARect; FBoundsRect := ARect;
FBuffer.SetSize(FBoundsRect.Width, FBoundsRect.Height); FBuffer.SetSize(FBoundsRect.Width, FBoundsRect.Height);
Draw; Draw;