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
This commit is contained in:
wp_xxyyzz
2019-05-26 20:08:54 +00:00
parent 5e2c0d3122
commit f6af85d7c6

View File

@ -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;