classic-gui UFRMAbout minor updates

src/gui-classic/UFRMAbout.dfm

@@ -256,15 +256,13 @@ object FRMAbout: TFRMAbout
     BorderStyle = bsNone
     Ctl3D = False
     Lines.Strings = (
-      'Copyright (c) 2016 Albert Molina'
+      'Copyright (c) 2016 - 2019 PascalCoin developers'
+      'Based on Albert Molina original source code'
       ''
       
-        'This software is a Node of the Pascal Coin P2P Cryptocurrency. A' +
-        ' Crypto currency '
-      
-        'without need of historical operations. It can be used to Mine an' +
-        'd Explore blocks '
-      'and operations.'
+        'Pascal Coin is P2P cryptocurrency without the need for historica' +
+        'l operations. This '
+      'software comprises a node within the PascalCoin network.'
       ''
       
         'Distributed under the MIT software license, see the accompanying' +
@@ -279,12 +277,15 @@ object FRMAbout: TFRMAbout
         'This product includes software developed by the OpenSSL Project ' +
         'and Denis '
       
-        'Grinyuk (https://github.com/Arvur/OpenSSL-Delphi), and some cryp' +
-        'tographic '
+        'Grinyuk (https://github.com/Arvur/OpenSSL-Delphi), some cryptogr' +
+        'aphic '
       
         'functions inspirated in code written by Ladar Levison and Marco ' +
-        'Ferrante. Original '
-      'source code is written in Pascal Language and is available at '
+        'Ferrante, and '
+      'Synapse Socket code copyright of Lukas Gebauer.'
+      
+        'Original source code is written in Pascal Language and is availa' +
+        'ble at '
       'https://github.com/PascalCoin/PascalCoin'
       ''
       'If you like it, consider a donation using BitCoin:'
@@ -300,9 +301,8 @@ object FRMAbout: TFRMAbout
     Width = 111
     Height = 31
     Caption = 'Close'
-    DoubleBuffered = True
     Kind = bkOK
-    ParentDoubleBuffered = False
+    NumGlyphs = 2
     TabOrder = 1
   end
 end

src/gui-classic/UFRMAbout.lfm

@@ -15,8 +15,7 @@ object FRMAbout: TFRMAbout
   Font.Name = 'Tahoma'
   OnCreate = FormCreate
   Position = poOwnerFormCenter
-  LCLVersion = '1.8.4.0'
-  Visible = False
+  LCLVersion = '1.8.0.6'
   object Image1: TImage
     Left = 15
     Height = 60
@@ -251,7 +250,7 @@ object FRMAbout: TFRMAbout
     Width = 478
     BorderStyle = bsNone
     Lines.Strings = (
-      'Copyright (c) 2016 - 2018 PascalCoin developers'
+      'Copyright (c) 2016 - 2019 PascalCoin developers'
       'Based on Albert Molina original source code'
       ''
       'Pascal Coin is P2P cryptocurrency without the need for historical operations. This software comprises a node within the PascalCoin network.'

src/gui-classic/UFRMAbout.pas

@@ -73,7 +73,7 @@ uses
 
 procedure TFRMAbout.FormCreate(Sender: TObject);
 begin
-  lblBuild.Caption :=  'Build: '+CT_ClientAppVersion+' OpenSSL: '+IntToHex(OpenSSLVersion,8);
+  lblBuild.Caption :=  'Build: '+CT_ClientAppVersion+' OpenSSL: '+IntToHex(OpenSSLVersion,8)+' Compiler: '{$IFDEF FPC}+'FPC'{$IFDEF CPU32}+' 32b'{$ELSE}+' 64b'{$ENDIF}{$ELSE}+'Delphi'{$IFDEF CPU32BITS}+' 32b'{$ELSE}+' 64b'{$ENDIF}{$ENDIF};
   lblProtocolVersion.Caption := Format('BlockChain Protocol: %d (%d)  -  Net Protocol: %d (%d)',[TNode.Node.Bank.SafeBox.CurrentProtocol,CT_BlockChain_Protocol_Available,
     CT_NetProtocol_Version, CT_NetProtocol_Available]);
 end;