anchor.diff:    FDefaultPopupMenu := nil;
     FReadOnly   := False;
     FUpdateCount := 0;
  +  FBorderStyle := ebsDefault;
   
     FLines      := TfpgMemoStrings.Create(self);
     FFirstLine  := 0;
  
positive.code: 
    TfpgMemo = class(TfpgWidget)
    private
      FLines: TStringList;
      FMaxLength: integer;
      FCursorPos: integer;
  
negative.code: begin
    Canvas.ClearClipRect;
    r.SetRect(0, 0, Width, Height);
    case BorderStyle of
      ebsNone:
          begin
            // do nothing
          end;
      ebsDefault:
          begin
            Canvas.DrawControlFrame(r);
            InflateRect(r, -2, -2);
          end;
      ebsSingle:
          begin
            Canvas.SetColor(clShadow2);
            Canvas.DrawRectangle(r);
            InflateRect(r, -1, -1);
          end;
    end;
    Canvas.SetClipRect(r);
  
    if Enabled and not ReadOnly then
  