fpspreadsheet: Fix grid column headers being overwritten when ShowHeaders is false.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8058 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-07-09 21:42:36 +00:00
parent ef624cb020
commit 3f87df497d

View File

@ -300,6 +300,7 @@ type
function GetCellText(ACol, ARow: Integer; ATrim: Boolean = true): String;
function GetEditText(ACol, ARow: Integer): String; override;
function GetDefaultColumnTitle(Column: Integer): string; override;
function GetIsCellTitle(ACol, ARow: Integer): boolean; override;
function HasBorder(ACell: PCell; ABorder: TsCellBorder): Boolean;
procedure HeaderSizing(const IsColumn:boolean; const AIndex,ASize:Integer); override;
procedure HeaderSized(IsColumn: Boolean; AIndex: Integer); override;
@ -4150,6 +4151,15 @@ begin
Result := Integer(ASheetRow) + FHeaderCount;
end;
{@@ ----------------------------------------------------------------------------
Inherited method. Is overridden to make sure that no column headers are
drawn when ShowHeaders is false.
-------------------------------------------------------------------------------}
function TsCustomWorksheetGrid.GetIsCellTitle(ACol, ARow: Integer): Boolean;
begin
Result := (FHeaderCount > 0) and (ARow = 0);
end;
{@@ ----------------------------------------------------------------------------
Returns a list of worksheets contained in the file. Useful for assigning to
user controls like TabControl, Combobox etc. in order to select a sheet.