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

fpspreadsheet: Introduce new property FrozenPaneBorderColor of the TsWorksheetGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5853 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-13 12:34:30 +00:00
parent 9a2bef119c
commit dbe8c84cd7
1 changed files with 18 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -121,6 +121,7 @@ type
FOldEditorText: String;
FMultilineStringEditor: TMultilineStringCellEditor;
FLineMode: TsEditorLineMode;
FFrozenPaneBorderColor: TColor;
function CalcAutoRowHeight(ARow: Integer): Integer;
function CalcColWidthFromSheet(AWidth: Single): Integer;
function CalcRowHeightFromSheet(AHeight: Single): Integer;
@ -201,6 +202,7 @@ type
procedure SetDefRowHeight(AValue: Integer);
procedure SetEditorLineMode(AValue: TsEditorLineMode);
procedure SetFrozenCols(AValue: Integer);
procedure SetFrozenPaneBorderColor(AValue: TColor);
procedure SetFrozenRows(AValue: Integer);
procedure SetHorAlignment(ACol, ARow: Integer; AValue: TsHorAlignment);
procedure SetHorAlignments(ALeft, ATop, ARight, ABottom: Integer;
@ -316,6 +318,9 @@ type
{@@ This number of columns at the left is "frozen", i.e. it is not possible to
scroll these columns }
property FrozenCols: Integer read FFrozenCols write SetFrozenCols;
{@@ Color of the line separating the frozen cols/rows from the regular grid }
property FrozenPaneBorderColor: TColor read FFrozenPaneBorderColor
write SetFrozenPaneBorderColor default clBlack;
{@@ This number of rows at the top is "frozen", i.e. it is not possible to
scroll these rows. }
property FrozenRows: Integer read FFrozenRows write SetFrozenRows;
@ -573,6 +578,8 @@ type
{@@ This number of columns at the left is "frozen", i.e. it is not possible to
scroll these columns. }
property FrozenCols;
{@@ Color of the line separating the frozen cols/rows from the regular grid }
property FrozenPaneBorderColor;
{@@ This number of rows at the top is "frozen", i.e. it is not possible to
scroll these rows. }
property FrozenRows;
@ -1242,6 +1249,7 @@ begin
FHeaderCount := 1;
ColCount := DEFAULT_COL_COUNT + FHeaderCount;
RowCount := DEFAULT_ROW_COUNT + FHeaderCount;
FDefRowHeight100 := inherited GetDefaultRowHeight;
FDefColWidth100 := inherited DefaultColWidth;
//FOldTopRow := -1;
@ -1251,6 +1259,7 @@ begin
FSelPen.Color := clBlack;
FSelPen.JoinStyle := pjsMiter;
FSelPen.OnChange := @SelPenChangeHandler;
FFrozenPaneBorderColor := clBlack;
FAutoExpand := [aeData, aeNavigation, aeDefault];
FHyperlinkTimer := TTimer.Create(self);
FHyperlinkTimer.Interval := HYPERLINK_TIMER_INTERVAL;
@ -2521,7 +2530,7 @@ begin
exit;
Canvas.Pen.Style := psSolid;
Canvas.Pen.Color := clBlack;
Canvas.Pen.Color := FFrozenPaneBorderColor;
Canvas.Pen.Width := 1;
if IsHor then
Canvas.Line(AStart, ACoord, AEnd, ACoord)
@ -6409,6 +6418,14 @@ begin
Setup;
end;
procedure TscustomWorksheetGrid.SetFrozenPaneBorderColor(AValue: TColor);
begin
if FFrozenPaneBorderColor = AValue then
exit;
FFrozenPaneBorderColor := AValue;
InvalidateGrid;
end;
procedure TsCustomWorksheetGrid.SetFrozenRows(AValue: Integer);
begin
FFrozenRows := AValue;