paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Add worksheet method ReadCellFont

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3784 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2014-11-26 16:19:42 +00:00
parent 6dcc6025d4
commit a08450cace
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/fpspreadsheet/fpspreadsheet.pas
View File

@ -614,6 +614,8 @@ type
function ReadUsedFormatting(ACell: PCell): TsUsedFormattingFields; overload;
function ReadBackgroundColor(ARow, ACol: Cardinal): TsColor; overload;
function ReadBackgroundColor(ACell: PCell): TsColor; overload;
function ReadCellFont(ARow, ACol: Cardinal): TsFont; overload;
function ReadCellFont(ACell: PCell): TsFont; overload;
{ Merged cells }
procedure MergeCells(ARow1, ACol1, ARow2, ACol2: Cardinal); overload;
@ -2979,6 +2981,36 @@ begin
Result := ACell^.BackgroundColor;
end;
{@@ ----------------------------------------------------------------------------
Determines the font used by a specified cell. Returns the workbook's default
font if the cell does not exist. Considers the uffBold and uffFont formatting
fields of the cell
-------------------------------------------------------------------------------}
function TsWorksheet.ReadCellFont(ARow, ACol: Cardinal): TsFont;
begin
Result := ReadCellFont(FindCell(ARow, ACol));
end;
{@@ ----------------------------------------------------------------------------
Determines the font used by a specified cell. Returns the workbook's default
font if the cell does not exist. Considers the uffBold and uffFont formatting
fields of the cell
-------------------------------------------------------------------------------}
function TsWorksheet.ReadCellFont(ACell: PCell): TsFont;
begin
Result := nil;
if ACell <> nil then
begin
if (uffBold in ACell^.UsedFormattingFields) then
Result := Workbook.GetFont(1)
else
if (uffFont in ACell^.UsedFormattingFields) then
Result := Workbook.GetFont(ACell^.FontIndex)
end;
if Result = nil then
Result := Workbook.GetDefaultFont;
end;
{@@ ----------------------------------------------------------------------------
Merges adjacent individual cells to a larger single cell