TOvcTCBaseEntryField

type TOvcTCBaseEntryField = class(TOvcTCBaseString)

protected

  FEdit: TOvcBaseEntryField;

  FEditDisplay: TOvcBaseEntryField;

  FOnError: TValidationErrorEvent;

  FOnUserCommand: TUserCommandEvent;

  FOnUserValidation: TUserValidationEvent;

  CopyOfData: pointer;

  CopyOfDataSize: Integer;

  function GetCaretIns;

  function GetCaretOvr;

  function GetControlCharColor;

  function GetDataSize;

  function GetDecimalPlaces;

  function GetOptions;

  function GetEFColors;

  function GetMaxLength;

  function GetModified;

  function GetPadChar;

  function GetPasswordChar;

  function GetRangeHi;

  function GetRangeLo;

  function GetTextMargin;

  procedure SetCaretIns();

  procedure SetCaretOvr();

  procedure SetControlCharColor();

  procedure SetDecimalPlaces();

  procedure SetEFColors();

  procedure SetMaxLength();

  procedure SetOptions();

  procedure SetPadChar();

  procedure SetPasswordChar();

  procedure SetRangeHi();

  procedure SetRangeLo();

  procedure SetTextMargin();

  procedure DefineProperties(); override;

  procedure tcPaint(); override;

  property CaretIns: TOvcCaret; [rw]

  property CaretOvr: TOvcCaret; [rw]

  property ControlCharColor: TColor; [rw]

  property DecimalPlaces: Byte; [rw]

  property EFColors: TOvcEfColors; [rw]

  property MaxLength: Word; [rw]

  property Options: TOvcEntryFieldOptions; [rw]

  property PadChar: AnsiChar; [rw]

  property PasswordChar: AnsiChar; [rw]

  property RangeHi: string; [rws]

  property RangeLo: string; [rws]

  property TextMargin: Integer; [rw]

  property OnError: TValidationErrorEvent; [rw]

  property OnUserCommand: TUserCommandEvent; [rw]

  property OnUserValidation: TUserValidationEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function CreateEntryField(); virtual; abstract;

  function EditHandle; override;

  procedure EditHide; override;

  procedure EditMove(); override;

  function CanSaveEditedData(); override;

  procedure SaveEditedData(); override;

  procedure StartEditing(); override;

  procedure StopEditing(); override;

  property DataSize: Integer; [r]

  property Modified: Boolean; [r]

end;

TOvcTCBaseEntryField

TOvcTCBaseString

TOvcBaseTableCell

TOvcTableCellAncestor

TObject