anchor.diff:    FPopupMenu          := nil;
     FDefaultPopupMenu   := nil;
     FOnChange           := nil;
  -  FSpecialChar        := -1;
   end;
   
   destructor TfpgBaseEdit.Destroy;
  
positive.code:     FVisibleText: TfpgString;
      FVisSelStartPx: integer;
      FVisSelEndPx: integer;
      FSpecialChar: integer;
      function    GetMarginAdjustment: integer; virtual;
      procedure   DrawSelection; virtual;
      procedure   DoOnChange; virtual;
  
negative.code:   prevval: string;
  begin
    prevval   := Text;
    s         := AText;
  
    if (not consumed) and (not ReadOnly) then
  