anchor.diff:    Result := TfpgEditColumn(Columns[AIndex]).EditType;
   end;
   
  -procedure TfpgCustomEditGrid.SetEditCell;
  +procedure TfpgCustomEditGrid.SetEditCell(AGrid: TfpgStringGrid);
   begin
     case Columns[FocusCol].EditType of
       etText:
  -      IniTextCell;
  +      IniTextCell(TfpgStringGrid(AGrid));
       etInteger:
  -      IniIntegerCell;
  +      IniIntegerCell(TfpgStringGrid(AGrid));
       etFloat:
  -      IniFloatCell;
  +      IniFloatCell(TfpgStringGrid(AGrid));
       etCurrency:
  -      IniCurrencyCell;
  +      IniCurrencyCell(TfpgStringGrid(AGrid));
       etComboBox:
  -      IniComboBoxCell;
  +      IniComboBoxCell(TfpgStringGrid(AGrid));
       etEditCombo:
  -      IniEditComboCell;
  +      IniEditComboCell(TfpgStringGrid(AGrid));
       etCheckBox:
  -      IniCheckBoxCell;
  +      IniCheckBoxCell(TfpgStringGrid(AGrid));
       etCalendar:
  -      IniCalendarCell;
  +      IniCalendarCell(TfpgStringGrid(AGrid));
     end;
   end;
   
  
positive.code:     procedure   SetMinFloatValue(AIndex: integer; const AValue: extended);
      function    GetFloatFixedDecimals(AIndex: integer): integer;
      procedure   SetFloatFixedDecimals(AIndex: integer; const AValue: integer);
      procedure   IniCurrencyCell;
      procedure   FCellEditCurrencyKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
          var Consumed: boolean);
      function    GetMaxCurrValue(AIndex: integer): currency;
      procedure   SetMaxCurrValue(AIndex: integer; const AValue: currency);
      function    GetMinCurrValue(AIndex: integer): currency;
      procedure   SetMinCurrValue(AIndex: integer; const AValue: currency);
      procedure   IniComboBoxCell;
      procedure   FCellComboBoxKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
          var Consumed: boolean);
      procedure   IniEditComboCell;
      procedure   FCellEditComboKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
          var Consumed: boolean);
      function    GetAutoComplete(AIndex: integer): boolean;
      procedure   SetAutoComplete(AIndex: integer; const AValue: boolean);
      function    GetAllowNew(AIndex: integer): TAllowNew;
      procedure   SetAllowNew(AIndex: integer; AValue: TAllowNew);
      procedure   IniCheckBoxCell;
      procedure   FCellCheckBoxKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
          var Consumed: boolean);
      function    GetBoxCheckedText(AIndex: integer): string;
  
negative.code:               else
                  FEditing:= False;
            end;
            SetFocus;
            if FEditing then
              SetEditCell(TfpgStringGrid(Self));
          end;
        KeyTab:
          begin
  