|
@@ -19,7 +19,6 @@ constructor TFPCustomCanvas.Create;
|
|
begin
|
|
begin
|
|
inherited create;
|
|
inherited create;
|
|
FClipping := false;
|
|
FClipping := false;
|
|
- FreeAndNil(FClipRegion);
|
|
|
|
FRemovingHelpers := false;
|
|
FRemovingHelpers := false;
|
|
FHelpers := TList.Create;
|
|
FHelpers := TList.Create;
|
|
FDefaultFont := CreateDefaultFont;
|
|
FDefaultFont := CreateDefaultFont;
|
|
@@ -29,6 +28,7 @@ end;
|
|
|
|
|
|
destructor TFPCustomCanvas.Destroy;
|
|
destructor TFPCustomCanvas.Destroy;
|
|
begin
|
|
begin
|
|
|
|
+ FreeAndNil(FClipRegion);
|
|
FRemovingHelpers := True;
|
|
FRemovingHelpers := True;
|
|
// first remove all helper references
|
|
// first remove all helper references
|
|
RemoveHelpers;
|
|
RemoveHelpers;
|