TOvcCaret

type TOvcCaret = class(TPersistent)

protected

  FAlign: TOvcCaretAlign;

  FBitmap: TBitmap;

  FBitmapX: Integer;

  FBitmapY: Integer;

  FBlinkTime: Word;

  FCaretHt: Integer;

  FCaretWd: Integer;

  FIsGray: Boolean;

  FShape: TOvcCaretShape;

  FOnChange: TNotifyEvent;

  RefCount: Word;

  procedure SetAlign();

  procedure SetBitmap();

  procedure SetBitmapX();

  procedure SetBitmapY();

  procedure SetBlinkTime();

  procedure SetCaretHeight();

  procedure SetCaretWidth();

  procedure SetIsGray();

  procedure SetShape();

  procedure NotifyChange;

public

  constructor Create;

  destructor Destroy; override;

  procedure Register;

  procedure Deregister;

  property OnChange: TNotifyEvent; [rw]

published

  property Bitmap: TBitmap; [rw]

  property BitmapHotSpotX: Integer; [rw]

  property BitmapHotSpotY: Integer; [rw]

  property Shape: TOvcCaretShape; [rw]

  property Align: TOvcCaretAlign; [rw]

  property BlinkTime: Word; [rw]

  property CaretHeight: Integer; [rw]

  property CaretWidth: Integer; [rw]

  property IsGray: Boolean; [rw]

end;

TOvcCaret

TObject