>loListener = NEWOBJECT("EffectsListener",HOME(2) + "\Solution\Europa\DynamicFormatting.prg") >>
>define class DynamicForeColorEffect as UserEffectHandler > cEffectName = 'FORECOLOR' > >* Evaluate the expression. If the result is a numeric value and doesn't match >* the existing color of the object, change the object's color and set the >* Reload flag to .T. > > function Execute(toObjProperties, tcExpression) > local lnColor, ; > lnPenRed, ; > lnPenGreen, ; > lnPenBlue > lnColor = This.EvaluateExpression(tcExpression) > > > >define class DynamicStyleEffect as UserEffectHandler > cEffectName = 'STYLE' > >* Evaluate the expression. If the result is a numeric value and doesn't match >* the existing style of the object, change the object's style and set the >* Reload flag to .T. > > function Execute(toObjProperties, tcExpression) > local lnStyle > lnStyle = This.EvaluateExpression(tcExpression) >>