From 3edd24a21521946bc3294968b91b372a81998c32 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 2 Jun 2018 16:18:16 +0000
Subject: [PATCH] fpspreadsheet: Fix worksheetgrid not showing column titles
 (A, B, C, ...) any more after Lazarus r57969.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6451 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpspreadsheet/source/visual/fpspreadsheetgrid.pas  | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
index 434b2bc4d..616bc3391 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
@@ -279,6 +279,7 @@ type
     function GetCells(ACol, ARow: Integer): String; override;
     function GetCellText(ACol, ARow: Integer; ATrim: Boolean = true): String;
     function GetEditText(ACol, ARow: Integer): String; override;
+    function GetDefaultColumnTitle(Column: Integer): string; override;
     function GetDefaultHeaderColWidth: Integer;
     function HasBorder(ACell: PCell; ABorder: TsCellBorder): Boolean;
     procedure HeaderSizing(const IsColumn:boolean; const AIndex,ASize:Integer); override;
@@ -3941,6 +3942,15 @@ begin
   end;
 end;
 
+function TsCustomWorksheetGrid.GetDefaultColumnTitle(Column: Integer): string;
+begin
+  if Assigned(FGetColHeaderText) then
+    FGetColHeaderText(Self, Column, Result)
+  else
+    Result := GetColString(Column - FHeaderCount);
+end;
+
+
 {@@ ----------------------------------------------------------------------------
   Returns the width of the fixed header column 0, in pixels
 -------------------------------------------------------------------------------}