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

CalLite: Fix memory leak introduced by previous commit.

Browse Source 
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
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -163,6 +163,7 @@ type
procedure SetBoundsRect(ARect: TRect); procedure SetBoundsRect(ARect: TRect);
public public
constructor Create(AOwner: TCalendarLite); constructor Create(AOwner: TCalendarLite);
destructor Destroy; override;
procedure Draw; procedure Draw;
property BoundsRect: TRect read FBoundsRect write SetBoundsRect; property BoundsRect: TRect read FBoundsRect write SetBoundsRect;
property Buffer: TBitmap read FBuffer; property Buffer: TBitmap read FBuffer;
@ -680,6 +681,12 @@ begin
FTextStyle:= DefTextStyle; FTextStyle:= DefTextStyle;
end; end;
destructor TCalDrawer.Destroy;
begin
FBuffer.Free;
inherited;
end;
procedure TCalDrawer.CalcSettings; procedure TCalDrawer.CalcSettings;
var var
rem: Integer = 0; rem: Integer = 0;