B4J Question [RESOLVED] Trapping Form Events other then MainForm

'Static code module
Sub Process_Globals

   Private fx As JFX
   Private frmConnections As Form
   
   Private mnuConnViewFileClose As MenuItem
   Private mnuConnViewEditRefresh As MenuItem
   Private tvConnView As TableView
   Private clsView As class_view_connnections
   Private frmConnectionsState As Boolean
   
   
   
   
End Sub

Public Sub ui_load_connections
   
   ' // already visible, so exit   
   If frmConnectionsState Then
     Return
   End If

   ' // settings
   
   frmConnections.Initialize("",-1,-1)
   frmConnections.RootPane.LoadLayout("frmConnections")
   frmConnections.Icon = fx.LoadImage(File.DirAssets,"user_connections_rt.png")
   frmConnections.Title  = "User Connections"
   frmConnections.SetOwner(frmConnections)
   
   
   frmConnections.Show
   frmConnectionsState = True
   ' // draw the header   
   draw_connections_header
   ' // start a new thread to show the user connections
   clsView.Initialize(tvConnView)
   

End Sub

Sub close_view_connections
   
   
   
   ' // turn off
   clsView.terminate
   ' // close form
   frmConnections.Close
   ' // falg as not visible
   frmConnectionsState = False


   Log("frmConnections_Closed " & frmConnectionsState)
   
End Sub
Sub frmConnections_Closed()
   
   Log("frmConnections_Closed")
   close_view_connections
   
End Sub
Sub mnuConnViewEditRefresh_Action
   
   clsView.draw_connections
   
End Sub
Sub mnuConnViewFileClose_Action
   
   close_view_connections
   
End Sub

Sub tvConnView_Resize (Width As Double, Height As Double)
   
   draw_connections_header
   
End Sub
Sub draw_connections_header
   
   Dim cw As Double, x As Int
   
   tvConnView.SetColumns(Array As String("Connection", "IP","User","Last Packet","Packet Count","Up Time"))
   cw = tvConnView.Width/6
   
   For x = 0 To 5
     tvConnView.SetColumnWidth(x, cw)
   Next

End Sub

'Class module
Sub Class_Globals
   
   Private fx As JFX
   Private mTV As TableView
   Private tmrRefresh As Timer
   
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(pTV As TableView)

   mTV = pTV
   tmrRefresh.Initialize("tmrRefresh",Main.appSet.svr.view_refresh * 1000)
   tmrRefresh.Enabled = True

End Sub

Sub draw_connections

   Dim x As Long
   Dim ExistingClient As mSocketConnection
   
   tmrRefresh.Enabled = False
   mTV.Items.Clear
   For x = 0 To Main.connections.Size - 1
     ExistingClient = Main.connections.get(x)
     If ExistingClient.sck.InUse Then
       
       Dim row(6) As Object
       row(0) = ExistingClient.index
       row(1) = ExistingClient.sck.sckClient.RemoteAddress
       row(2) = ExistingClient.profile.account_name
       row(3) = ExistingClient.RT.lastPacket
       row(4) = ExistingClient.RT.packetCount
       row(5) = ExistingClient.RT.upTimeDisplay

       mTV.Items.Add(row)  
     
     End If
   Next
   ' // we do this so we can dynamically handle realtime adjustments
   tmrRefresh.Interval = Main.appSet.svr.view_refresh * 1000
   tmrRefresh.Enabled = True


End Sub
Sub tmrRefresh_tick()
   
   
   draw_connections
   
   
End Sub

Sub terminate

   tmrRefresh.Enabled = False

End Sub