serial
MakovaDrawTextCnts
Default
%Library.TMFormClass
60971,37509
60971,37508
%Library.String
1
%TMCheckBox
%TMCheckBox
%TMCheckBox
%TMCheckBox
IP:%String
cache
0
%Library.String
document
literal
Args:%String
cache
0
document
literal
11
9
10
12
%Library.String
60
%TMPanel
%TMButton
%TMProgressBar
Args:%String
cache
0
document
literal
Args:%String
cache
0
document
literal
cache
0
document
literal
0 Do
. Set Width=(..Form.Width\SessionCnt)-12
. Set:(Width<250) Width=250
For Set SessionKey=$O(..aSession(SessionKey)) Quit:(SessionKey="") Do
. Set Panel=..aSession(SessionKey,..#asMainPanel)
. Set:((Panel.Width'=Width) && (..chkAutosize.Checked="True")) Panel.Width=Width
. Set LastTimeInactive=..aSession(SessionKey,..#asTimeInactive)
. Set chkSticky=..aSession(SessionKey,..#asSticky)
. If (LastTimeInactive'<..FMaxTimeInactive) && (chkSticky.Checked="False") Do
.. Do Panel.Destroy()
.. Kill ..aSession(SessionKey)
. Else Do
.. Set UserNameStr=UserNameStr_","_..aSession(SessionKey,..#asUserName)
.. Set ..aSession(SessionKey,..#asTimeInactive)=LastTimeInactive+1
.. New LastLoginTijdStip
.. Set LastLoginTijdStip=..aSession(SessionKey,..#asLastLoginTijdStip)
.. Set SecsAgo=$$HToNum^vhLib($H)-$$HToNum^vhLib(LastLoginTijdStip)
.. New lblTemp
.. Set lblTemp=..aSession(SessionKey,..#asLastLoginTijdStipLabel)
.. If LastLoginTijdStip=0 Do
... Set lblTemp.Caption="failed"
.. Else If SecsAgo<60 Do
... Set lblTemp.Caption=SecsAgo_" sec(s) ago"
.. Else If SecsAgo<3600 Do
... Set lblTemp.Caption=(SecsAgo\60)_" min(s) ago"
.. Else If SecsAgo<86400 Do
... Set lblTemp.Caption=(SecsAgo\3600)_" hour(s) ago"
.. Else Do
... Set lblTemp.Caption=(SecsAgo\86400)_" day(s) ago"
.. If (LastTimeInactive'<(..FMaxTimeInactive-6)) && (chkSticky.Checked="False") Do
... Set lblTemp.Visible=$$BoolToStr^vhLib((..FMaxTimeInactive-LastTimeInactive#2=1))
.. Else Do
... Set:(lblTemp.Visible="False") lblTemp.Visible="True"
.. Set Cnt=Cnt+1
Set MApplication.Title="eLogMon"_$S(Cnt=0:" - "_$ZU(110)_" ["_$ZU(5)_"]",1:" ("_Cnt_UserNameStr_")")
Quit
]]>
8
1
5
4
6
3
7
2
%Library.TMForm
%Library.String
1
%Library.String
%Library.String
%TMScrollBox
%TMTimer
2
3
4
5
6
7
8
9
10
11
10
11
12
13
14
15
16
17
18
19
2
20
3
4
5
6
7
8
9
initvalue:%String
cache
0
%Status
document
literal
cache
0
document
literal
cache
0
document
literal
initvalue:%String
cache
0
MApplication
document
literal
initvalue:%String
cache
0
%Library.Status
document
literal
Args:%String
cache
0
document
literal
GetToday:%Boolean=0
cache
0
document
literal
Args:%String
cache
0
document
literal
%Library.CacheSerialState
"%Library.TMFormClass"
Address
Form
pLastMainID
pLastSubID
sbMain
tmrMain
aSession
ListBox1
FMaxTimeInactive
Panel1
btnGetToday
pbProgress
CheckBox1
chkGetLastHour
Panel2
Panel3
Splitter1
Splitter2
chkAutoSticky
chkGroupErrors
chkAutosize