diff --git a/ipsmanager/forms/frm_home.lfm b/ipsmanager/forms/frm_home.lfm
index 474986afe..bd40ec0aa 100644
--- a/ipsmanager/forms/frm_home.lfm
+++ b/ipsmanager/forms/frm_home.lfm
@@ -9,7 +9,7 @@ object IPSManagerForm: TIPSManagerForm
Menu = MainMenu1
OnCreate = FormCreate
OnDestroy = FormDestroy
- LCLVersion = '2.2.7.0'
+ LCLVersion = '3.0.0.2'
object ToolBar1: TToolBar
Left = 0
Height = 74
diff --git a/server/fhirserver.lpi b/server/fhirserver.lpi
index 58f373838..a4fb66116 100644
--- a/server/fhirserver.lpi
+++ b/server/fhirserver.lpi
@@ -810,7 +810,7 @@
-
+
@@ -972,6 +972,9 @@
+
+
+
diff --git a/toolkit2/dialogs/frm_about.lfm b/toolkit2/dialogs/frm_about.lfm
index 517904fdb..0e31a8bae 100644
--- a/toolkit2/dialogs/frm_about.lfm
+++ b/toolkit2/dialogs/frm_about.lfm
@@ -10,7 +10,7 @@ object ToolkitAboutForm: TToolkitAboutForm
ClientWidth = 530
OnShow = FormShow
Position = poOwnerFormCenter
- LCLVersion = '2.3.0.0'
+ LCLVersion = '3.0.0.2'
object Panel1: TPanel
Left = 0
Height = 223
@@ -21,6 +21,7 @@ object ToolkitAboutForm: TToolkitAboutForm
ClientHeight = 223
ClientWidth = 530
Color = clWhite
+ ParentBackground = False
ParentColor = False
TabOrder = 0
object Bevel2: TBevel
diff --git a/toolkit2/dialogs/frm_about.pas b/toolkit2/dialogs/frm_about.pas
index 8974eeebe..2893b60c0 100644
--- a/toolkit2/dialogs/frm_about.pas
+++ b/toolkit2/dialogs/frm_about.pas
@@ -91,6 +91,7 @@ procedure TToolkitAboutForm.FormShow(Sender: TObject);
var
dt : TFslDateTime;
v : String;
+ cmd : TCommandLineParameters;
begin
v := TOOLKIT_VERSION;
mInfo.Lines.clear;
@@ -109,8 +110,14 @@ procedure TToolkitAboutForm.FormShow(Sender: TObject);
{$IFOPT D+}
mInfo.Lines.Add('This is the debug version');
{$ENDIF}
- mInfo.Lines.add('Run as "'+commandLineAsString+'"');
- mInfo.Lines.add('Host is '+SystemPlatform+' '+DescribeBytes(SystemMemory.physicalMem, true)+'/' + DescribeBytes(SystemMemory.virtualMem, true));
+
+ cmd := TCommandLineParameters.create;
+ try
+ mInfo.Lines.add('Run as "'+cmd.AsString+'"');
+ mInfo.Lines.add('Host is '+SystemPlatform+' '+DescribeBytes(SystemMemory.physicalMem, true)+'/' + DescribeBytes(SystemMemory.virtualMem, true));
+ finally
+ cmd.free;
+ end;
end;
end.
diff --git a/toolkit2/fhirtoolkit.lpi b/toolkit2/fhirtoolkit.lpi
index 1c4ea6b2c..9cd14e80f 100644
--- a/toolkit2/fhirtoolkit.lpi
+++ b/toolkit2/fhirtoolkit.lpi
@@ -34,7 +34,7 @@
-
+
@@ -87,7 +87,7 @@
-
+
@@ -140,7 +140,7 @@
-
+
@@ -192,7 +192,7 @@
-
+
@@ -250,7 +250,7 @@
-
+
@@ -301,7 +301,7 @@
-
+
@@ -347,7 +347,7 @@
-
+
@@ -393,7 +393,7 @@
-
+
@@ -831,6 +831,16 @@
+
+
+
+
+
+
+
+
+
+
@@ -842,7 +852,7 @@
-
+
diff --git a/toolkit2/fhirtoolkit.lpr b/toolkit2/fhirtoolkit.lpr
index 8bfe61e4f..20c3af7db 100644
--- a/toolkit2/fhirtoolkit.lpr
+++ b/toolkit2/fhirtoolkit.lpr
@@ -30,7 +30,7 @@
ftk_image_scanner, ftk_worker_home, dlg_open_url, ftk_store_http, dlg_scanner,
dlg_upgrade, ftk_engine_igpub, dlg_igpub_config, dlg_igpub_github,
ftk_engine_text, ftk_text_view, dlg_ig_upload, dlg_server_upload,
- dlg_txsrvr_props, dlg_gender_identity, frm_home;
+ dlg_txsrvr_props, dlg_gender_identity, frm_home, mvDataSources, mvBase;
{$R *.res}