>>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) >>>>