PowerBuilder Dynamic Set Currentrow Color In DataWindow. Ex: Event DataWindow Constructor Call Function f_dw_color_currentrow(This)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | //==================================================================== // Function: f_dw_color_currentrow(datawindow adw) //-------------------------------------------------------------------- // Description: Set Currentrow Color In DataWindow //-------------------------------------------------------------------- // Arguments: // value datawindow adw //-------------------------------------------------------------------- // Returns: (none) //==================================================================== Long ll_column String ls_color,ls_dw_color If Not IsValid(adw) Then Return ls_dw_color = adw.Describe("datawindow.color") ls_color = "0~t if(getrow()=currentrow(), 29935871, "+ls_dw_color+")" For ll_column = 1 To Long(adw.Object.datawindow.column.count) adw.Modify("#"+String(ll_column)+".background.color = '"+ls_color+"'") Next |
Good Luck!