Commit f751bb00 by Elias Sarraf

wcEmiMobile.dproj

parent 72cb3116
...@@ -2,8 +2,8 @@ object FMain: TFMain ...@@ -2,8 +2,8 @@ object FMain: TFMain
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'emiMobileServer' Caption = 'emiMobileServer'
ClientHeight = 616 ClientHeight = 615
ClientWidth = 772 ClientWidth = 778
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
...@@ -12,15 +12,16 @@ object FMain: TFMain ...@@ -12,15 +12,16 @@ object FMain: TFMain
Font.Style = [] Font.Style = []
OnClose = FormClose OnClose = FormClose
DesignSize = ( DesignSize = (
772 778
616) 615)
TextHeight = 13 TextHeight = 13
object pgcMain: TPageControl object pgcMain: TPageControl
Left = 8 Left = 0
Top = 39 Top = 40
Width = 756 Width = 778
Height = 575 Height = 575
ActivePage = tabConnectedClients ActivePage = tabConnectedClients
Align = alBottom
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 3 TabOrder = 3
object tabServerLog: TTabSheet object tabServerLog: TTabSheet
...@@ -28,10 +29,9 @@ object FMain: TFMain ...@@ -28,10 +29,9 @@ object FMain: TFMain
object memoInfo: TMemo object memoInfo: TMemo
Left = 0 Left = 0
Top = 0 Top = 0
Width = 748 Width = 770
Height = 547 Height = 547
Align = alClient Align = alClient
ReadOnly = True
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
WordWrap = False WordWrap = False
...@@ -43,7 +43,7 @@ object FMain: TFMain ...@@ -43,7 +43,7 @@ object FMain: TFMain
object grdConnectedClients: TDBGrid object grdConnectedClients: TDBGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 748 Width = 770
Height = 487 Height = 487
Align = alClient Align = alClient
DataSource = dsConnectedClients DataSource = dsConnectedClients
...@@ -76,7 +76,7 @@ object FMain: TFMain ...@@ -76,7 +76,7 @@ object FMain: TFMain
object pnlConnectedClientsActions: TPanel object pnlConnectedClientsActions: TPanel
Left = 0 Left = 0
Top = 487 Top = 487
Width = 748 Width = 770
Height = 60 Height = 60
Align = alBottom Align = alBottom
Caption = 'pnlConnectedClientsActions' Caption = 'pnlConnectedClientsActions'
...@@ -120,7 +120,7 @@ object FMain: TFMain ...@@ -120,7 +120,7 @@ object FMain: TFMain
OnClick = btnApiSwaggerUIClick OnClick = btnApiSwaggerUIClick
end end
object btnExit: TButton object btnExit: TButton
Left = 713 Left = 695
Top = 8 Top = 8
Width = 75 Width = 75
Height = 25 Height = 25
......
[Settings] [Settings]
LogFileNum=105 LogFileNum=110
webClientVersion=9.4.0 webClientVersion=9.4.0
[Database] [Database]
--Server=192.168.102.10 Server=192.168.91.136
Server=192.168.56.129 --Server=192.168.56.129
Port=5432 --Port=5432
--Port=5433 --Port=5433
Database=lems_wcso Database=lems_wcso
Username=postgres Username=postgres
--Password=postgreSQL Password=postgreSQL
Password=emsys01 --Password=emsys01
--Postgre!SQL
\ No newline at end of file
{
"url": "http://localhost:2001/emsys/emiMobile/",
"jwtTokenSecret": "super_secret0123super_secret4567",
"adminPassword": "whatisthisusedfor?",
"webAppFolder": "static",
"memoLogLevel": 5,
"fileLogLevel": 5
}
\ No newline at end of file
...@@ -20,7 +20,7 @@ type ...@@ -20,7 +20,7 @@ type
FWsUrl: string; FWsUrl: string;
public public
property WsUrl: string read FWsUrl; property WsUrl: string read FWsUrl;
const clientVersion = '9.4.0'; const clientVersion = '0.9.4.1';
procedure InitApp(SuccessProc: TSuccessProc; procedure InitApp(SuccessProc: TSuccessProc;
UnauthorizedAccessProc: TUnauthorizedAccessProc); UnauthorizedAccessProc: TUnauthorizedAccessProc);
procedure SetClientConfig(Callback: TVersionCheckCallback); procedure SetClientConfig(Callback: TVersionCheckCallback);
......
...@@ -40,3 +40,4 @@ ...@@ -40,3 +40,4 @@
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment