You've already forked lazarus-ccr
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:
@ -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.
|
||||
|
Reference in New Issue
Block a user