diff --git a/default.tpl b/default.tpl index d81e923..3c913b6 100644 --- a/default.tpl +++ b/default.tpl @@ -27,7 +27,7 @@ COMMENT with the ones above you can disable some features of the template. They - + [] diff --git a/hfs.dproj b/hfs.dproj index f65b71e..2270283 100644 --- a/hfs.dproj +++ b/hfs.dproj @@ -206,6 +206,12 @@ False + + + hfs.exe + true + + .\ @@ -225,12 +231,6 @@ true - - - hfs.exe - true - - 1 diff --git a/main.dfm b/main.dfm index 6d9e99f..13c0ad3 100644 --- a/main.dfm +++ b/main.dfm @@ -294,7 +294,7 @@ object mainFrm: TmainFrm object titlePnl: TPanel Left = 0 Top = 0 - Width = 341 + Width = 337 Height = 23 Align = alClient BevelOuter = bvNone @@ -302,16 +302,16 @@ object mainFrm: TmainFrm TabOrder = 0 end object logToolbar: TPanel - Left = 341 + Left = 337 Top = 0 - Width = 256 + Width = 260 Height = 23 Align = alRight AutoSize = True BevelOuter = bvNone TabOrder = 1 object collapsedPnl: TPanel - Left = -4 + Left = 0 Top = 0 Width = 21 Height = 23 @@ -319,7 +319,6 @@ object mainFrm: TmainFrm AutoSize = True BevelOuter = bvNone TabOrder = 0 - ExplicitLeft = 0 object expandBtn: TSpeedButton Left = 0 Top = 0 @@ -352,7 +351,7 @@ object mainFrm: TmainFrm end end object expandedPnl: TPanel - Left = 17 + Left = 21 Top = 0 Width = 239 Height = 23 @@ -360,7 +359,6 @@ object mainFrm: TmainFrm AutoSize = True BevelOuter = bvNone TabOrder = 1 - ExplicitLeft = 21 object openFilteredLog: TSpeedButton Left = 213 Top = 0 diff --git a/main.pas b/main.pas index 25940ee..168f2a7 100644 --- a/main.pas +++ b/main.pas @@ -4923,7 +4923,6 @@ var data.session.ip:=conn.address; end; end; - data.session.keepAlive(); if conn.request.user > '' then // priority begin data.user:=conn.request.user; @@ -5872,6 +5871,8 @@ case event of // default case else refreshConn(data); end;//case +if assigned(data.session) then + data.session.keepAlive(); if event in [HE_CONNECTED, HE_DISCONNECTED, HE_OPEN, HE_CLOSE, HE_REQUESTED, HE_POST_END, HE_LAST_BYTE_DONE] then begin repaintTray();