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

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
LSL2/STPROC/SERVICES_EVENTS.txt
View File

@ -39,7 +39,7 @@ $insert SERVICES_EQUATES
$insert MSG_EQUATES
Declare subroutine SRP_EditTable_Manager, SRP_Show_Window
Declare function SRP_EditTable_Manager, Database_Services
Declare function SRP_EditTable_Manager, Database_Services, Service_Services
SubclassInfo = Form_Services('FindSubclassControl')
Subclass = SubclassInfo<1>
@ -125,16 +125,16 @@ Setup_OLE_Controls:
Qualify<1> = 1
Qualify<4> = 0
Ctrl = @Window : '.NAME'
Handle = Get_Property(Ctrl, 'HANDLE')
Ctrl = @Window : '.NAME'
Handle = Get_Property(Ctrl, 'HANDLE')
Send_Message(Subclass, 'OLE.Subclass', Handle, Ctrl)
Convert '.' to ';' in Ctrl
ComboArray = ''
ComboArray<1> = True$
DropDownRecord = Database_Services('ReadDataRow', 'SERVICES', '%RECORDS%')
ComboArray = ''
ComboArray<1> = True$
DropDownRecord = Service_Services('GetServiceKeys')
Convert @FM to @STM in DropDownRecord
ComboArray<2, 3> = DropDownRecord
ComboArray<2, 10> = False$
ComboArray<2, 3> = DropDownRecord
ComboArray<2, 10> = False$
Set_Property(Subclass, 'OLE.Combo[' : Ctrl : ']', ComboArray)
Send_Message(Subclass, 'QUALIFY_EVENT', 'OLE.OnComboClick', Qualify)
@ -145,3 +145,4 @@ Setup_OLE_Controls:
return