`TcyBaseMeasure`
pt		OnBeforePaint
pt		OnAfterPaint

CT Web help

CodeTyphon Studio