anchor.diff:    cp: integer;}
   begin
     inherited HandleLMouseDown(x, y, shiftstate);
  -  
  +
     {cp := PointToCharPos(x, y);
     FMouseDragPos := cp;
     FCursorPos    := cp;
  
positive.code:     property    OnMouseExit;
    end;
  
    
    TfpgEditCurrency = class(TfpgBaseNumericEdit)
    private
      fDecimals: integer;
  
negative.code: procedure TfpgEditInteger.SetValue(const AValue: integer);
  begin
    try
      Text := IntToStr(AValue);
    except
      on E: EConvertError do
        Text := '';
  