TOvcPictureBase

type TOvcPictureBase = class(TOvcBaseEntryField)

protected

  pfSemiLits: Byte;

  pfPicFlags: TPictureFlags;

  pfSelPos: Integer;

  procedure WMSetFocus(); message;

  procedure WMKillFocus(); message;

  procedure CreateWnd; override;

  function efCanClose(); override;

  procedure efCaretToEnd; override;

  procedure efCaretToStart; override;

  procedure efChangeMask(); override;

  function efEditBegin; override;

  function efEditEnd;

  function efFieldIsEmpty; override;

  function efGetDisplayString(); override;

  procedure efRemoveBadOptions; override;

  procedure efSetCaretPos(); override;

  function pbCalcLength;

  procedure pbCalcWidthAndPlaces();

  procedure pbFixDecimalPoint();

  procedure pbFixNumber();

  function pbIsLiteral();

  procedure pbInitPictureFlags;

  function pbIsNumber;

  function pbIsSemiLiteral();

  procedure pbMergePicture();

  procedure pbOptimizeInitPictureFlags;

  procedure pbRemoveSemiLits; virtual;

  procedure pbRestoreSemiLits;

  procedure pbStripLiterals();

  procedure pbStripPicture();

public

  procedure pbGetPictureFlags();

  function GetStrippedEditString; override;

  procedure MergeWithPicture(); override;

  function ValidateContents(); override;

end;

TOvcPictureBase

TOvcBaseEntryField

TOvcCustomControlEx

TOvcCustomControl

TObject