pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
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
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
View File

@ -300,6 +300,7 @@ type
function GetCellText(ACol, ARow: Integer; ATrim: Boolean = true): String; function GetCellText(ACol, ARow: Integer; ATrim: Boolean = true): String;
function GetEditText(ACol, ARow: Integer): String; override; function GetEditText(ACol, ARow: Integer): String; override;
function GetDefaultColumnTitle(Column: Integer): string; override; function GetDefaultColumnTitle(Column: Integer): string; override;
function GetIsCellTitle(ACol, ARow: Integer): boolean; override;
function HasBorder(ACell: PCell; ABorder: TsCellBorder): Boolean; function HasBorder(ACell: PCell; ABorder: TsCellBorder): Boolean;
procedure HeaderSizing(const IsColumn:boolean; const AIndex,ASize:Integer); override; procedure HeaderSizing(const IsColumn:boolean; const AIndex,ASize:Integer); override;
procedure HeaderSized(IsColumn: Boolean; AIndex: Integer); override; procedure HeaderSized(IsColumn: Boolean; AIndex: Integer); override;
@ -4150,6 +4151,15 @@ begin
Result := Integer(ASheetRow) + FHeaderCount; Result := Integer(ASheetRow) + FHeaderCount;
end; 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 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. user controls like TabControl, Combobox etc. in order to select a sheet.