<< Click to display table of contents >> TSRichViewEdit.OnPaintComponent

Allows custom painting for controls inserted in the editor.

type

  TSRVComponentEvent = procedure(Sender: TSRichViewEdit;

     PaintMe: TControl; Canvas: TCanvas; ComponentRect: TRect;

     var isPaint: Boolean) of object;

 

property OnPaintComponent: TSRVComponentEvent;

All controls are inserted in RichViewEdit . TSRichViewEdit component creates images of controls and uses them when it needs to display them.

Not all controls can be drawn by the default procedure. This event allows you to draw controls yourself.

PaintMe – control to paint.

Canvas – canvas where to paint.

ComponentRect – coordinates where to paint.

isPaint - set to True if you drew this control (otherwise it will be drawn by the default procedure).