paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-02 02:16:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: As per tips from Marcou Gilles, fixes VectorialPage.Clear which after the last commit wrongly freed the temp helper path

Browse Source 
git-svn-id: trunk@37275 -
This commit is contained in:
sekelsenmat 2012-05-14 13:34:17 +00:00
parent 6f67bce681
commit 5ac1a1fe66
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/fpvectorial/fpvectorial.pas
View File

@ -182,6 +182,7 @@ type
public
X, Y, Z: Double;
constructor Create; virtual;
procedure Clear; virtual;
// in CalculateBoundingBox always remember to treat correctly the case of ADest=nil!!!
// This cased is utilized to guess the size of a document even before getting a canvas to draw at
procedure CalculateBoundingBox(ADest: TFPCustomCanvas; var ALeft, ATop, ARight, ABottom: Double); virtual;
@ -228,6 +229,7 @@ type
ClipPath: TPath;
ClipMode: TvClipMode;
destructor Destroy; override;
procedure Clear; override;
procedure Assign(ASource: TPath);
procedure PrepareForSequentialReading;
function Next(): TPathSegment;
@ -702,6 +704,13 @@ constructor TvEntity.Create;
begin
end;
procedure TvEntity.Clear;
begin
X := 0.0;
Y := 0.0;
Z := 0.0;
end;
procedure TvEntity.CalculateBoundingBox(ADest: TFPCustomCanvas; var ALeft, ATop, ARight, ABottom: Double);
begin
ALeft := X;
@ -788,6 +797,12 @@ end;
//GM: Follow the path to cleanly release the chained list!
destructor TPath.Destroy;
begin
Clear;
inherited Destroy;
end;
procedure TPath.Clear;
var
p, pp, np: TPathSegment;
begin
@ -815,7 +830,8 @@ begin
end;
PointsEnd:=nil;
Points:=nil;
inherited Destroy;
inherited Clear;
end;
procedure TPath.Assign(ASource: TPath);
@ -1821,6 +1837,12 @@ destructor TvVectorialPage.Destroy;
begin
Clear;
if FTmpPath <> nil then
begin
FTmpPath.Free;
FTmpPath := nil;
end;
FEntities.Free;
FEntities := nil;
@ -1877,11 +1899,7 @@ procedure TvVectorialPage.Clear;
begin
FEntities.ForEachCall(CallbackDeleteEntity, nil);
FEntities.Clear();
if FTmpPath <> nil then
begin
FTmpPath.Free;
FTmpPath := nil;
end;
ClearTmpPath();
end;
{@@