anchor.diff:  constructor TfpgBaseEdit.Create(AOwner: TComponent);
   begin
     inherited Create(AOwner);
  -  FFont             := fpgGetFont('#Edit1');  // owned object !
  -  Focusable         := True;
  -  FHeight           := FFont.Height + 8;     // (BorderStyle + HeightMargin) * 2
  -  FWidth            := 120;
  -  FTextColor        := Parent.TextColor;
  -  FBackgroundColor  := clBoxColor;
  -  FAutoSelect       := True;
  -  FSelecting        := False;
  -  FHideSelection    := True;
  -  FReadOnly         := False;
  -  FSideMargin       := 3;
  -  FHeightMargin     := 2;
  -  FMaxLength        := 0; // no limit
  -  FText             := '';
  -  FCursorPos        := UTF8Length(FText);
  -  FSelStart         := FCursorPos;
  -  FSelOffset        := 0;
  -  FTextOffset       := 0;
  -  FPasswordMode     := False;
  -  FBorderStyle      := ebsDefault;
  -  FPopupMenu        := nil;
  -  FDefaultPopupMenu := nil;
  -  FOnChange         := nil;
  -
  +  FFont               := fpgGetFont('#Edit1');  // owned object !
  +  Focusable           := True;
  +  FHeight             := FFont.Height + 8;     // (BorderStyle + HeightMargin) * 2
  +  FWidth              := 120;
  +  FTextColor          := Parent.TextColor;
  +  FBackgroundColor    := clBoxColor;
  +  FAutoSelect         := True;
  +  FSelecting          := False;
  +  FHideSelection      := True;
  +  FReadOnly           := False;
  +  FSideMargin         := 3;
  +  FHeightMargin       := 2;
  +  FMaxLength          := 0; // no limit
  +  FText               := '';
  +  FCursorPos          := UTF8Length(FText);
  +  FSelStart           := FCursorPos;
  +  FSelOffset          := 0;
  +  FTextOffset         := 0;
  +  FPasswordMode       := False;
  +  FBorderStyle        := ebsDefault;
  +  FIgnoreMouseCursor  := False;
  +  FPopupMenu          := nil;
  +  FDefaultPopupMenu   := nil;
  +  FOnChange           := nil;
   end;
   
   destructor TfpgBaseEdit.Destroy;
  
positive.code:   inherited HandleMouseEnter;
    if (csDesigning in ComponentState) then
      Exit;
    if Enabled then
      MouseCursor := mcIBeam;
  end;
  
  
negative.code:     property    HeightMargin;
      property    HideSelection;
      property    Hint;
      property    IgnoreMouseCursor;
      property    MaxLength;
      property    ParentShowHint;
      property    PasswordMode;
  