【记录一下】修改sWorksheetGrid(fpspreadsheet)标题

如何修改sWorksheetGrid(fpspreadsheet)标题？这是网友"海"从lazarus论坛找到的答案(fpSpreadSheet 标题和可见列):

 

procedure TForm1.sWorksheetGrid1GetColHeaderText(Sender: TObject;
  AIndex: Integer; var AText: String);
begin
  case AIndex of
    0: AText := '';
    else AText := '第' + IntToStr(AIndex)+'列';
    end;
end;

procedure TForm1.sWorksheetGrid1GetRowHeaderText(Sender: TObject;
  AIndex: Integer; var AText: String);
begin
  case AIndex of
    0: AText := '';
    else AText := '第' + IntToStr(AIndex)+'行';
    end;
end;