TOvcSingleCaret

type TOvcSingleCaret = class(TPersistent)

protected

  FCaretType: TOvcCaret;

  FHeight: Integer;

  FLinked: Boolean;

  FPos: TPoint;

  FVisible: Boolean;

  FWidth: Integer;

  OrigBlinkTime: Word;

  Owner: TWinControl;

  XOffset: Integer;

  YOffset: Integer;

  procedure SetCaretType();

  procedure SetCellHeight();

  procedure SetCellWidth();

  procedure SetLinked();

  procedure SetPos();

  procedure SetVisible();

  procedure MakeShape;

  procedure Reinit;

  procedure ResetPos;

public

  constructor Create();

  destructor Destroy; override;

  procedure CaretTypeHasChanged();

  property CaretType: TOvcCaret; [rw]

  property CellHeight: Integer; [rw]

  property CellWidth: Integer; [rw]

  property Linked: Boolean; [rws]

  property Position: TPoint; [rw]

  property Visible: Boolean; [rw]

end;

TOvcSingleCaret

TObject