anchor.diff:      FSelOffset := 0;
   end;
   
  +procedure TfpgBaseEdit.HandleHide;
  +begin
  +  fpgCaret.UnSetCaret (Canvas);
  +  inherited;
  +end;
  +
   function TfpgBaseEdit.GetDrawText: string;
   begin
     if not PassWordMode then
  
positive.code:       DrawSelection;
      fpgCaret.UnSetCaret(Canvas);
    end;
  
  end;
  
  constructor TfpgBaseTextEdit.Create(AOwner: TComponent);
  
negative.code:     procedure   HandleMouseExit; override;
      procedure   HandleSetFocus; override;
      procedure   HandleKillFocus; override;
      procedure   HandleHide; override;
      function    GetDrawText: String;
      property    AutoSelect: Boolean read FAutoSelect write SetAutoSelect default True;
      property    BorderStyle: TfpgEditBorderStyle read FBorderStyle write SetBorderStyle default ebsDefault;
  