phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

testing out tweaks to logon form to maintain focus and z order

Browse Source 
removed batch script call to kill MES.exe on LOGON form create event
This commit is contained in:
Infineon\StieberD 2025-05-09 14:44:35 -07:00
parent 5c18f7ccd2
commit 770a1de95b
2 changed files with 1362 additions and 216 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1569
LSL2/OIWIN/LOGON.json
View File

File diff suppressed because it is too large Load Diff

9
LSL2/STPROC/LOGON_EVENTS.txt
View File

@ -44,7 +44,7 @@ Declare subroutine SRP_EditTable_Manager, SRP_Show_Window, Logging_Services, ob
Declare subroutine Database_Services, End_Window, ShowWindow, SRP_Run_Command, Placedialog Declare subroutine Database_Services, End_Window, ShowWindow, SRP_Run_Command, Placedialog
Declare function SRP_EditTable_Manager, Database_Services, Security_Services, Logging_Services, Environment_Services Declare function SRP_EditTable_Manager, Database_Services, Security_Services, Logging_Services, Environment_Services
Declare function GetPrivateProfileString, WritePrivateProfileString, GetPrivateProfileSection, SRP_Get_FileVersion Declare function GetPrivateProfileString, WritePrivateProfileString, GetPrivateProfileSection, SRP_Get_FileVersion
Declare function Datetime, Rti_Getnetworkusername Declare function Datetime
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\Version' LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\Version'
LogDate = Oconv(Date(), 'D4/') LogDate = Oconv(Date(), 'D4/')
@ -80,11 +80,6 @@ Return EventFlow else EVENT_CONTINUE$
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Event WINDOW.CREATE(CreateParam) Event WINDOW.CREATE(CreateParam)
// Stopgap solution to kill SRP App launcher splash screen if it fails to close.
WindowsUser = Rti_Getnetworkusername()
KillCommand = 'taskkill /f /fi "USERNAME EQ ' : WindowsUser : '" /im MES.exe'
SRP_Run_Command(KillCommand, '', '', '')
GoSub Setup_OLE_Controls GoSub Setup_OLE_Controls
@ -156,6 +151,7 @@ Event WINDOW.CREATE(CreateParam)
PlaceDialog(-2, -2) PlaceDialog(-2, -2)
Set_Property(@Window, 'VISIBLE', 1) Set_Property(@Window, 'VISIBLE', 1)
Set_Property(@Window:'.EDL_USERNAME', 'FOCUS', True$)
end event end event
@ -265,4 +261,3 @@ Setup_OLE_Controls:
return return