paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 09:17:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpVectorial: Declare TvSVGVectorialWriter.WriteEntity as protected and virtual. (https://www.lazarusforum.de/viewtopic.php?p=141423#p141423).

Browse Source
This commit is contained in:
wp_xyz 2024-05-12 11:58:29 +02:00
parent 8c85159e27
commit 6d966f6a88
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpvectorial/svgvectorialwriter.pas
View File

@ -50,8 +50,6 @@ type
APage: TvVectorialPage; AEllipse: TvEllipse);
procedure WriteEntities(AStrings: TStrings; ADoc: TvVectorialDocument;
APage: TvVectorialPage);
procedure WriteEntity(AStrings: TStrings; ADoc: TvVectorialDocument;
APage: TvVectorialPage; AEntity: TvEntity);
procedure WriteLayer(AStrings: TStrings; ADoc: TvVectorialDocument;
APage: TvVectorialPage; ALayer: Tvlayer);
procedure WriteParagraph(AStrings: TStrings; ADoc: TvVectorialDocument;
@ -71,6 +69,10 @@ type
procedure WriteCircle(circle: TvCircle; AStrings: TStrings; AData: TvVectorialPage);
procedure WriteEntities(AStrings: TStrings; AData: TvVectorialPage; ADoc: TvVectorialDocument);
}
protected
procedure WriteEntity(AStrings: TStrings; ADoc: TvVectorialDocument;
APage: TvVectorialPage; AEntity: TvEntity); virtual;
public
{ General reading methods }
procedure WriteToStrings(AStrings: TStrings; AData: TvVectorialDocument); override;