From cbbe88b92dd438456f4d084eeb5954d91f3012c5 Mon Sep 17 00:00:00 2001
From: eiroca <eiroca2000@gmail.com>
Date: Fri, 25 Jan 2019 22:45:57 +0100
Subject: [PATCH] About GPL form fixes

---
 src/libVCL/FAboutGPL.pas | 15 +++++++++++++++
 src/libVCL/eLibVCL.pas   | 15 ---------------
 2 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/src/libVCL/FAboutGPL.pas b/src/libVCL/FAboutGPL.pas
index 273f4c5..bda7f56 100644
--- a/src/libVCL/FAboutGPL.pas
+++ b/src/libVCL/FAboutGPL.pas
@@ -38,6 +38,8 @@   TfmAboutGPL = class(TForm)
     { Public declarations }
   end;
 
+procedure AboutGPL(me: string);
+
 implementation
 
 {$IFDEF FPC}
@@ -46,4 +48,17 @@ implementation
   {$R *.DFM}
 {$ENDIF}
 
+procedure AboutGPL(me: string);
+var
+  fmAbout: TfmAboutGPL;
+begin
+  fmAbout:= TfmAboutGPL.Create(nil);
+  try
+    fmAbout.Caption:= 'About - ' + me;
+    fmAbout.ShowModal;
+  finally
+    fmAbout.Free;
+  end;
+end;
+
 end.
diff --git a/src/libVCL/eLibVCL.pas b/src/libVCL/eLibVCL.pas
index 7025811..b64b447 100644
--- a/src/libVCL/eLibVCL.pas
+++ b/src/libVCL/eLibVCL.pas
@@ -77,8 +77,6 @@   TProgress = class(TInterfacedObject, IProgress)
        read GetAborted;
   end;
 
-procedure AboutGPL(me: string);
-
 implementation
 
 uses
@@ -214,17 +212,4 @@ destructor TProgress.Destroy;
   FreeAndNil(wait);
 end;
 
-procedure AboutGPL(me: string);
-var
-  fmAbout: TfmAboutGPL;
-begin
-  fmAbout:= TfmAboutGPL.Create(nil);
-  try
-    fmAbout.Caption:= 'About - ' + me;
-    fmAbout.ShowModal;
-  finally
-    fmAbout.Free;
-  end;
-end;
-
 end.