paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 21:38:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpVectorial: Allow usage of custom file reader and writer classes.

Browse Source
This commit is contained in:
wp_xyz 2024-05-11 16:22:00 +02:00
parent ccd36eba7f
commit cb8f4216d5
1 changed files with 75 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
components/fpvectorial/fpvectorial.pas
View File

@ -1423,13 +1423,20 @@ type
procedure AssignTo(ADest: TvVectorialDocument);
procedure WriteToFile(AFileName: string; AFormat: TvVectorialFormat); overload;
procedure WriteToFile(AFileName: string); overload;
procedure WriteToStream(AStream: TStream; AFormat: TvVectorialFormat);
procedure WriteToStrings(AStrings: TStrings; AFormat: TvVectorialFormat);
procedure WriteToFile(AFileName: String; AWriter: TvCustomVectorialWriter); overload;
procedure WriteToStream(AStream: TStream; AFormat: TvVectorialFormat); overload;
procedure WriteToStream(AStream: TStream; AWriter: TvCustomVectorialWriter); overload;
procedure WriteToStrings(AStrings: TStrings; AFormat: TvVectorialFormat); overload;
procedure WriteToStrings(AStrings: TStrings; AWriter: TvCustomVectorialWriter); overload;
procedure ReadFromFile(AFileName: string; AFormat: TvVectorialFormat); overload;
procedure ReadFromFile(AFileName: string); overload;
procedure ReadFromStream(AStream: TStream; AFormat: TvVectorialFormat);
procedure ReadFromStrings(AStrings: TStrings; AFormat: TvVectorialFormat);
procedure ReadFromXML(ADoc: TXMLDocument; AFormat: TvVectorialFormat);
procedure ReadFromFile(AFileName: String; AReader: TvCustomVectorialReader); overload;
procedure ReadFromStream(AStream: TStream; AFormat: TvVectorialFormat); overload;
procedure ReadFromStream(AStream: TStream; AReader: TvCustomVectorialReader); overload;
procedure ReadFromStrings(AStrings: TStrings; AFormat: TvVectorialFormat); overload;
procedure ReadFromStrings(AStrings: TStrings; AReader: TvCustomVectorialReader); overload;
procedure ReadFromXML(ADoc: TXMLDocument; AFormat: TvVectorialFormat); overload;
procedure ReadFromXML(ADoc: TXMLDocument; AReader: TvCustomVectorialReader); overload;
class function GetFormatFromExtension(AFileName: string; ARaiseException: Boolean = True): TvVectorialFormat;
function GetDetailedFileFormat(): string;
procedure GuessDocumentSize();
@ -10317,6 +10324,13 @@ begin
WriteToFile(AFileName, lFormat);
end;
procedure TvVectorialDocument.WriteToFile(AFilename: String;
AWriter: TvCustomVectorialWriter);
begin
if AWriter <> nil then
AWriter.WriteToFile(AFileName, Self);
end;
{@@
Writes the document to a stream
}
@ -10332,6 +10346,13 @@ begin
end;
end;
procedure TvVectorialDocument.WriteToStream(AStream: TStream;
AWriter: TvCustomVectorialWriter);
begin
if AWriter <> nil then
AWriter.WriteToStream(AStream, self);
end;
procedure TvVectorialDocument.WriteToStrings(AStrings: TStrings;
AFormat: TvVectorialFormat);
var
@ -10345,6 +10366,13 @@ begin
end;
end;
procedure TvVectorialDocument.WriteToStrings(AStrings: TStrings;
AWriter: TvCustomVectorialWriter);
begin
if AWriter <> nil then
AWriter.WriteToStrings(AStrings, Self);
end;
{@@
Reads the document from a file.
@ -10377,6 +10405,19 @@ begin
ReadFromFile(AFileName, lFormat);
end;
{@@
Reads the document from a file. A variant that allow to use to an unregistered, custom reader.
}
procedure TvVectorialDocument.ReadFromFile(AFileName: String;
AReader: TvCustomVectorialReader);
begin
if AReader <> nil then
begin
Self.Clear;
AReader.ReadFromFile(AFileName, Self);
end;
end;
{@@
Reads the document from a stream.
@ -10398,6 +10439,16 @@ begin
end;
end;
procedure TvVectorialDocument.ReadFromStream(AStream: TStream;
AReader: TvCustomVectorialReader);
begin
if AReader <> nil then
begin
Self.Clear;
AReader.ReadFromStream(AStream, Self);
end;
end;
procedure TvVectorialDocument.ReadFromStrings(AStrings: TStrings;
AFormat: TvVectorialFormat);
var
@ -10414,6 +10465,16 @@ begin
end;
end;
procedure TvVectorialDocument.ReadFromStrings(AStrings: TStrings;
AReader: TvCustomVectorialReader);
begin
if AReader <> nil then
begin
Self.Clear;
AReader.ReadFromStrings(AStrings, Self);
end;
end;
procedure TvVectorialDocument.ReadFromXML(ADoc: TXMLDocument; AFormat: TvVectorialFormat);
var
AReader: TvCustomVectorialReader;
@ -10428,6 +10489,15 @@ begin
end;
end;
procedure TvVectorialDocument.ReadFromXML(ADoc: TXMLDocument; AReader: TvCustomVectorialReader);
begin
if AReader <> nil then
begin
Self.Clear;
AReader.ReadFromXML(ADoc, Self);
end;
end;
class function TvVectorialDocument.GetFormatFromExtension(AFileName: string;
ARaiseException: Boolean = True): TvVectorialFormat;
var