About GPL form fixes

eiroca · Jan 25, 2019 · cbbe88b · cbbe88b
1 parent 1f77c0f
commit cbbe88b
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 15 deletions.
diff --git 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
@@ -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.