- removed unnecessary (unused) virtual constructors

packages/fcl-fpterm/src/fpterm.keyboardinput.keyboard.pas

@@ -47,7 +47,7 @@ type
   protected
     function IsEventAvailable: Boolean; override;
   public
-    constructor Create; override;
+    constructor Create;
     destructor Destroy; override;
 
     procedure GetEvent(out Event: FpTerm.Base.TKeyEvent); override;

packages/fcl-fpterm/src/fpterm.keyboardinput.pas

@@ -47,19 +47,11 @@ type
   protected
     function IsEventAvailable: Boolean; virtual; abstract;
   public
-    constructor Create; virtual;
-
     procedure GetEvent(out Event: TKeyEvent); virtual; abstract;
     property EventAvailable: Boolean read IsEventAvailable;
   end;
 
 implementation
 
-{ TTerminalKeyboardInput }
-
-constructor TTerminalKeyboardInput.Create;
-begin
-end;
-
 end.
 

packages/fcl-fpterm/src/fpterm.pointingdeviceinput.mouse.pas

@@ -47,7 +47,7 @@ type
   protected
     function IsEventAvailable: Boolean; override;
   public
-    constructor Create; override;
+    constructor Create;
     destructor Destroy; override;
 
     procedure GetEvent(out Event: TPointingDeviceEvent); override;

packages/fcl-fpterm/src/fpterm.pointingdeviceinput.pas

@@ -47,19 +47,11 @@ type
   protected
     function IsEventAvailable: Boolean; virtual; abstract;
   public
-    constructor Create; virtual;
-
     procedure GetEvent(out Event: TPointingDeviceEvent); virtual; abstract;
     property EventAvailable: Boolean read IsEventAvailable;
   end;
 
 implementation
 
-{ TTerminalPointingDeviceInput }
-
-constructor TTerminalPointingDeviceInput.Create;
-begin
-end;
-
 end.
 

packages/fcl-fpterm/src/fpterm.view.pas

@@ -53,8 +53,6 @@ type
     function GetWidth: Integer; virtual; abstract;
     procedure SetCell(Y, X: Integer; AValue: TCell); virtual; abstract;
   public
-    constructor Create; virtual;
-
     procedure UpdateScreen; virtual; abstract;
     procedure IdleLoop; virtual; abstract;
     procedure HideCursor; virtual; abstract;
@@ -86,11 +84,5 @@ type
 
 implementation
 
-{ TTerminalView }
-
-constructor TTerminalView.Create;
-begin
-end;
-
 end.
 

packages/fcl-fpterm/src/fpterm.view.video.base.pas

@@ -52,7 +52,7 @@ type
     function GetWidth: Integer; override;
     procedure SetCell(Y, X: Integer; AValue: TCell); override;
   public
-    constructor Create; override;
+    constructor Create;
     destructor Destroy; override;
 
     procedure UpdateScreen; override;

packages/fcl-fpterm/src/fpterm.view.video.pas

@@ -61,7 +61,7 @@ type
 {$endif HAS_TERMIO}
   public
 {$ifdef HAS_TERMIO}
-    constructor Create; override;
+    constructor Create;
 {$endif HAS_TERMIO}
     function CheckPendingResize(out NewWidth, NewHeight: Integer): Boolean; override;
   end;

packages/fcl-fpterm/src/fpterm.view.video.ptc.kvm.pas

@@ -50,7 +50,7 @@ type
 
   TTerminalView_Video_ptckvm = class(TTerminalView_Video_Base)
   public
-    constructor Create; override;
+    constructor Create;
 
     procedure StartBlinkingCursor; override;
     procedure StopBlinkingCursor; override;