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

24
LSL2/STPROC/NDW_RDS_UPDATE_MET_LIMITS_EVENTS.txt
View File

@ -312,19 +312,19 @@ return
RefreshRowColors:
RDSRptCtrl = @Window : '.OLE_RPT_RDS_LIST'
NumRDS = DCount(RDSList, @FM)
// Color every other cell to increase row distinguishability
Colors = ''
If NumRDS GT 1 then
For RowNo = 1 To NumRDS
If Mod(RowNo, 2) EQ 1 then Colors<RowNo> = RGB(231, 243, 254) else Null ; // light blue
Next RowNo
Set_Property(RDSRptCtrl, 'OLE.RecordColors', Colors)
If Assigned(RDSList) then
RDSRptCtrl = @Window : '.OLE_RPT_RDS_LIST'
NumRDS = DCount(RDSList, @FM)
// Color every other cell to increase row distinguishability
Colors = ''
If NumRDS GT 1 then
For RowNo = 1 To NumRDS
If Mod(RowNo, 2) EQ 1 then Colors<RowNo> = RGB(231, 243, 254) else Null ; // light blue
Next RowNo
Set_Property(RDSRptCtrl, 'OLE.RecordColors', Colors)
end
end
// Clear any selected rows
SelPos = ''
Set_Property(@Window : '.OLE_RPT_RDS_LIST', 'OLE.SelPos', SelPos)