From f6af85d7c665c1b2bf4f53569b80d9d070a686f9 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 26 May 2019 20:08:54 +0000
Subject: [PATCH] CalLite: Fix memory leak introduced by previous commit.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6951 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/callite/source/calendarlite.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index f19f6e25d..e87fe595c 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -163,6 +163,7 @@ type
     procedure SetBoundsRect(ARect: TRect);
   public
     constructor Create(AOwner: TCalendarLite);
+    destructor Destroy; override;
     procedure Draw;
     property BoundsRect: TRect read FBoundsRect write SetBoundsRect;
     property Buffer: TBitmap read FBuffer;
@@ -680,6 +681,12 @@ begin
   FTextStyle:= DefTextStyle;
 end;
 
+destructor TCalDrawer.Destroy;
+begin
+  FBuffer.Free;
+  inherited;
+end;
+
 procedure TCalDrawer.CalcSettings;
 var
   rem: Integer = 0;