TOvcTCGlyphEdit

type TOvcTCGlyphEdit = class(TCustomControl)

protected

  FValue: Integer;

  FCell: TOvcBaseTableCell;

  FRow: TRowNum;

  FCol: TColNum;

  FCellAttr: TOvcCellAttributes;

  procedure SetValue();

  procedure WMGetDlgCode(); message;

  procedure WMKeyDown(); message;

  procedure WMKillFocus(); message;

  procedure WMLButtonDown(); message;

  procedure WMSetFocus(); message;

public

  constructor Create(); override;

  procedure Paint; override;

  property CellOwner: TOvcBaseTableCell; [rw]

  property Value: Integer; [rw]

end;

TOvcTCGlyphEdit

TObject