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

fpspreadsheet: Comment an unfinished border drawing routine which made it into the previous commit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6286 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-01 13:43:02 +00:00
parent 51c6c2940e
commit 2dfd81b11b
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/source/common/fpspreadsheet.pas
View File

@ -309,9 +309,11 @@ type
function WriteBorders(ARow, ACol: Cardinal; function WriteBorders(ARow, ACol: Cardinal;
ABorders: TsCellBorders): PCell; overload; ABorders: TsCellBorders): PCell; overload;
procedure WriteBorders(ACell: PCell; ABorders: TsCellBorders); overload; procedure WriteBorders(ACell: PCell; ABorders: TsCellBorders); overload;
{
procedure WriteBorders(ALeft, ATop, ARight, ABottom: Integer; procedure WriteBorders(ALeft, ATop, ARight, ABottom: Integer;
ABorders: TsCellBorders; ALeftStyle, ATopStyle, ARightStyle, ABottomStyle, ABorders: TsCellBorders; ALeftStyle, ATopStyle, ARightStyle, ABottomStyle,
AInnerHorStyle, AInnerVertStyle: TsCellBorderStyle); AInnerHorStyle, AInnerVertStyle: TsCellBorderStyle);
}
function WriteBorderStyle(ARow, ACol: Cardinal; ABorder: TsCellBorder; function WriteBorderStyle(ARow, ACol: Cardinal; ABorder: TsCellBorder;
AStyle: TsCellBorderStyle): PCell; overload; AStyle: TsCellBorderStyle): PCell; overload;
procedure WriteBorderStyle(ACell: PCell; ABorder: TsCellBorder; procedure WriteBorderStyle(ACell: PCell; ABorder: TsCellBorder;
@ -6539,7 +6541,7 @@ begin
ChangedCell(ACell^.Row, ACell^.Col); ChangedCell(ACell^.Row, ACell^.Col);
end; end;
end; end;
{
procedure TsWorksheet.WriteBorders(ALeft, ATop, ARight, ABottom: Integer; procedure TsWorksheet.WriteBorders(ALeft, ATop, ARight, ABottom: Integer;
ABorders: TsCellBorders; ALeftStyle, ATopStyle, ARightStyle, ABottomStyle, ABorders: TsCellBorders; ALeftStyle, ATopStyle, ARightStyle, ABottomStyle,
AInnerHorStyle, AInnerVertStyle: TsCellBorderStyle); AInnerHorStyle, AInnerVertStyle: TsCellBorderStyle);
@ -6692,7 +6694,7 @@ begin
ChangedCell(ALeft, ATop); ChangedCell(ALeft, ATop);
end; end;
end; end;
}
{@@ ---------------------------------------------------------------------------- {@@ ----------------------------------------------------------------------------
Sets the style of a cell border, i.e. line style and line color. Sets the style of a cell border, i.e. line style and line color.