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:     procedure   HandleMouseExit; override;
      procedure   HandleSetFocus; override;
      procedure   HandleKillFocus; override;
      function    GetDrawText: String;
      property    AutoSelect: Boolean read FAutoSelect write SetAutoSelect default True;
      property    BorderStyle: TfpgEditBorderStyle read FBorderStyle write SetBorderStyle default ebsDefault;
  
negative.code:     Canvas.SetTextColor(TextColor);
      x := r.Width - Font.TextWidth(Text) - FSideMargin;
      fpgStyle.DrawString(Canvas, x, r.Top + FHeightMargin, Text, Enabled);
  
      if Focused then
      begin
        // drawing selection
        if FSelOffset <> 0 then
          DrawSelection;
        // drawing cursor
        fpgCaret.SetCaret(Canvas, FCursorPx, r.Top + FHeightMargin, fpgCaret.Width, FFont.Height);
      end
      else
      begin
        // drawing selection
        if (AutoSelect = False) and (FSelOffset <> 0) and (HideSelection = False) then
          DrawSelection;
        fpgCaret.UnSetCaret(Canvas);
      end;
    end;
  end;
  