You've already forked lazarus-ccr
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:
@ -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;
|
||||
|
Reference in New Issue
Block a user