paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

CalLite: Fix compilation with ancient Lazarus/FPC versions.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8091 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2021-09-16 09:13:15 +00:00
parent e16f58c7e3
commit d227644719
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1401,7 +1401,7 @@ procedure TCalDrawer.SetBoundsRect(ARect: TRect);
begin begin
if SameRect(FBoundsRect, ARect) then exit; if SameRect(FBoundsRect, ARect) then exit;
FBoundsRect := ARect; FBoundsRect := ARect;
FBuffer.SetSize(FBoundsRect.Width, FBoundsRect.Height); FBuffer.SetSize(FBoundsRect.Right-BoundsRect.Left, FBoundsRect.Bottom-BoundsRect.Top);
Draw; Draw;
end; end;