|
<< Нажмите, чтобы показать Содержание >> TCustomRichViewEdit.OnMeasureCustomCaret |
Позволяет задать размер и положение нестандартной каретки.
type
TRVMeasureCustomCaretEvent = procedure (Sender: TCustomRichViewEdit;
var Rect: TRVCoordRect) of object;
property OnMeasureCustomCaret: TRVMeasureCustomCaretEvent;
Нестандартная каретка рисуется, если CustomCaretInterval > 0.
Это событие вызывается перед каждым вызовом OnDrawCustomCaret. Оно позволяет задать размер и положение каретки. По умолчанию используются размер и положение стандартной системной каретки.
Редактор сохраняет фон под прямоугольником Rect; после вызова OnDrawCustomCaret этот фон будет восстановлен.
Если глобальная переменная RichViewEditCustomCaretSize = True, это событие вызывается также и для стандартной каретки.
Если RichViewEditCaretPosition <> rvhcpRight, редактор корректирует положение каретки после вызова этого события.