pdf: Code clean-up, removing empty destructors.

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);