anchor.diff:      procedure   SetMinFloatValue(AIndex: integer; const AValue: extended);
       function    GetFloatFixedDecimals(AIndex: integer): integer;
       procedure   SetFloatFixedDecimals(AIndex: integer; const AValue: integer);
  -    procedure   IniCurrencyCell;
  +    procedure   IniCurrencyCell(AGrid: TfpgStringGrid);
       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   IniComboBoxCell(AGrid: TfpgStringGrid);
       procedure   FCellComboBoxKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
           var Consumed: boolean);
  -    procedure   IniEditComboCell;
  +    procedure   IniEditComboCell(AGrid: TfpgStringGrid);
       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   IniCheckBoxCell(AGrid: TfpgStringGrid);
       procedure   FCellCheckBoxKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
           var Consumed: boolean);
       function    GetBoxCheckedText(AIndex: integer): string;
  
positive.code:     procedure   SetBoxUncheckedText(AIndex: integer; const AValue: string);
      function    GetBoxDisplayText(AIndex: integer): string;
      procedure   SetBoxDisplayText(AIndex: integer; const AValue: string);
      procedure   IniCalendarCell;
      procedure   FCellCalendarKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
          var Consumed: boolean);
      function    GetDates(AIndex: integer): TDateTime;
  
negative.code:               else
                  FEditing:= False;
            end;
            SetFocus;
            if FEditing then
              SetEditCell(TfpgStringGrid(Self));
          end;
        KeyTab:
          begin
  