>#DEFINE ACTIVEROWFORECOL 16711680 &&KOBALT blue >#DEFINE ROWFORECOL 0 &&black >This.SetAll( 'DynamicForeColor', ; > 'IIF( RECNO( This.RecordSource ) = This.nRecNo, ACTIVEROWFORECOL, ROWFORECOL )', 'COLUMN' ) >>
>This.SetAll( 'DynamicForeColor', ; > 'IIF( RECNO( This.RecordSource ) = This.nRecNo, 16711680, 0 )', 'COLUMN' ) >>
LOCAL loColorcodes AS ColorCodes of Appsettings_Colors.vcx loColorcodes = NEWOBJECT("ColorCodes", "Appsettings_Colors.vcx") This.SetAll( 'DynamicForeColor', TEXTMERGE( 'IIF( RECNO( This.RecordSource ) = This.nRecNo, <<loColorCodes.ActiveRow>>, <<loColorCodes.RowForecolor>> )'), 'COLUMN' )This strategy enables you to: