local lcDynamicControl, loColumn, loControl lcDynamicControl = [IIF(sales_pt.is_test or sales_pt.loc_suffix=0 or INLIST(sales_pt.mode,8,9), 'Check2', 'Check1')] for each loColumn in thisform.Grid1.columns if type('m.loColumn.check1') = 'O' IF proper(loColumn.name) = 'Column17' loColumn.dynamiccurrentcontrol = [IIF(AT("TEST", UPPER(sales_pt.salespoint)) = 0 or sales_pt.loc_suffix=0 or sales_pt.mode=8, 'Check2', 'Check1')] else loColumn.dynamiccurrentcontrol = m.lcDynamicControl endif m.loColumn.Alignment = 1 m.loColumn.Check1.Alignment = 1 m.loColumn.Check2.Alignment = 1 endif bindevent(m.loColumn,"MouseEnter",thisform.Grid1,"MouseEnter") bindevent(m.loColumn,"MouseLeave",thisform.Grid1,"MouseLeave") for each loControl in m.loColumn.controls bindevent(m.loControl,"MouseEnter",thisform.Grid1,"MouseEnter") bindevent(m.loControl,"MouseLeave",thisform.Grid1,"MouseLeave") ENDFOR endfor