summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2015-07-08 16:02:40 +0100
committerGraeme Geldenhuys <graemeg@gmail.com>2015-07-08 16:02:40 +0100
commit0c9a5f3886511824f3e7fd9c555e0823a24510f8 (patch)
treee3e4a42b70cd3bcf9131c555985d2f69f56259d9
parentea74bd8cadf771c7f5febf41b133432825b66a85 (diff)
downloadfpGUI-0c9a5f3886511824f3e7fd9c555e0823a24510f8.tar.xz
pdf: Code clean-up, removing empty destructors.
-rw-r--r--src/reportengine/u_pdf.pas72
1 files changed, 0 insertions, 72 deletions
diff --git a/src/reportengine/u_pdf.pas b/src/reportengine/u_pdf.pas
index 7160d908..0c9917ea 100644
--- a/src/reportengine/u_pdf.pas
+++ b/src/reportengine/u_pdf.pas
@@ -45,7 +45,6 @@ type
procedure WriteBoolean(const AStream: TStream);
public
constructor CreateBoolean(const AValue: Boolean);
- destructor Destroy; override;
end;
TPdfInteger = class(TPdfObject)
@@ -57,7 +56,6 @@ type
property Value: integer read FValue write FValue;
public
constructor CreateInteger(const AValue: integer);
- destructor Destroy; override;
end;
TPdfReference = class(TPdfObject)
@@ -67,7 +65,6 @@ type
procedure WriteReference(const AStream: TStream);
public
constructor CreateReference(const AValue: integer);
- destructor Destroy; override;
end;
TPdfName = class(TPdfObject)
@@ -77,7 +74,6 @@ type
procedure WriteName(const AStream: TStream);
public
constructor CreateName(const AValue: string);
- destructor Destroy; override;
end;
TPdfString = class(TPdfObject)
@@ -87,7 +83,6 @@ type
procedure Write(const AStream: TStream);
public
constructor CreateString(const AValue: string);
- destructor Destroy; override;
end;
TPdfArray = class(TPdfObject)
@@ -121,7 +116,6 @@ type
function WriteEmbeddedFont(const ASrcStream: TMemoryStream; const AStream: TStream): int64;
public
constructor CreateFont(const AFont: integer; const ASize: string);
- destructor Destroy; override;
end;
TPdfText = class(TPdfObject)
@@ -147,7 +141,6 @@ type
procedure WriteLineSegment(const AStream: TStream);
public
constructor CreateLineSegment(const AWidth, AX1, AY1, AX2, AY2: single);
- destructor Destroy; override;
end;
TPdfRectangle = class(TPdfObject)
@@ -163,7 +156,6 @@ type
procedure WriteRectangle(const AStream: TStream);
public
constructor CreateRectangle(const ALineWidth, APosX, APosY, AWidth, AHeight: single; const AFill, AStroke: Boolean);
- destructor Destroy; override;
end;
TRefPos = record
@@ -180,7 +172,6 @@ type
procedure WriteSurface(const AStream: TStream);
public
constructor CreateSurface(const APoints: T_Points);
- destructor Destroy; override;
end;
TPdfImage = class(TPdfObject)
@@ -195,7 +186,6 @@ type
procedure WriteImage(const AStream: TStream);
public
constructor CreateImage(const ALeft, ABottom: single; AWidth, AHeight, ANumber: integer);
- destructor Destroy; override;
end;
TPdfLineStyle = class(TPdfObject)
@@ -206,7 +196,6 @@ type
procedure WriteLineStyle(const AStream: TStream);
public
constructor CreateLineStyle(ADash: TfpgLineStyle; APhase: integer);
- destructor Destroy; override;
end;
TPdfColor = class(TPdfObject)
@@ -219,7 +208,6 @@ type
procedure WriteColor(const AStream: TStream);
public
constructor CreateColor(const AStroke: Boolean; AColor: TfpgColor);
- destructor Destroy; override;
end;
TPdfDicElement = class(TObject)
@@ -436,11 +424,6 @@ begin
FValue := AValue;
end;
-destructor TPdfBoolean.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfInteger.WriteInteger(const AStream: TStream);
begin
WriteString(IntToStr(FValue), AStream);
@@ -457,11 +440,6 @@ begin
FValue := AValue;
end;
-destructor TPdfInteger.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfReference.WriteReference(const AStream: TStream);
begin
WriteString(IntToStr(FValue) + ' 0 R', AStream);
@@ -473,11 +451,6 @@ begin
FValue := AValue;
end;
-destructor TPdfReference.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfName.WriteName(const AStream: TStream);
begin
if FValue <> '' then
@@ -493,11 +466,6 @@ begin
FValue := AValue;
end;
-destructor TPdfName.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfString.Write(const AStream: TStream);
begin
WriteString('(' + Utf8ToAnsi(FValue) + ')', AStream);
@@ -511,11 +479,6 @@ begin
FValue := InsertEscape(FValue);
end;
-destructor TPdfString.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfArray.WriteArray(const AStream: TStream);
var
Cpt: integer;
@@ -653,11 +616,6 @@ begin
FTxtSize := ASize;
end;
-destructor TPdfFonte.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfText.WriteText(const AStream: TStream);
begin
WriteString('BT' + CRLF, AStream);
@@ -704,11 +662,6 @@ begin
FY2 := AY2;
end;
-destructor TPdfLineSegment.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfRectangle.WriteRectangle(const AStream: TStream);
begin
if FStroke then
@@ -739,11 +692,6 @@ begin
FStroke := AStroke;
end;
-destructor TPdfRectangle.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfSurface.WriteSurface(const AStream: TStream);
var
Cpt: integer;
@@ -761,11 +709,6 @@ begin
FPoints := APoints;
end;
-destructor TPdfSurface.Destroy;
-begin
- inherited;
-end;
-
function TPdfImage.WriteImageStream(const ANumber: integer; AStream: TStream): int64;
var
CptW, CptH: integer;
@@ -806,11 +749,6 @@ begin
FHeight := AHeight;
end;
-destructor TPdfImage.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfLineStyle.WriteLineStyle(const AStream: TStream);
begin
WriteString('[', AStream);
@@ -834,11 +772,6 @@ begin
FPhase := APhase;
end;
-destructor TPdfLineStyle.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfColor.WriteColor(const AStream: TStream);
begin
if FStroke then
@@ -865,11 +798,6 @@ begin
FStroke := AStroke;
end;
-destructor TPdfColor.Destroy;
-begin
- inherited;
-end;
-
procedure TPdfDicElement.WriteDicElement(const AStream: TStream);
begin
FKey.WriteName(AStream);