anchor.diff:      property    MaxLength: Integer read FMaxLength write FMaxLength;
       property    PasswordMode: Boolean read FPasswordMode write SetPasswordMode default False;
       property    PopupMenu: TfpgPopupMenu read FPopupMenu write FPopupMenu;
  +    property    ReadOnly: Boolean read FReadOnly write SetReadOnly default False;
       property    Text: String read FText write SetText;
       property    OnChange: TNotifyEvent read FOnChange write FOnChange;
     public
  
positive.code:   FAutoSelect       := True;
    FSelecting        := False;
    FHideSelection    := True;
    FSideMargin       := 3;
    FHeightMargin     := 2;
    FMaxLength        := 0; // no limit
  
negative.code:     FOnChange: TNotifyEvent;
      FMaxLength: integer;
      FSelecting: Boolean;
      FReadOnly: Boolean;
      procedure   Adjust(UsePxCursorPos: boolean = false); virtual;
      procedure   AdjustTextOffset(UsePxCursorPos: boolean); virtual;
      procedure   AdjustDrawingInfo; virtual;
  