rvtoNoCellsSplit option
Posted: Thu Apr 01, 2010 2:02 pm
Hi Sergey,
I use an old version of TRichViewEdit ( 1.9.48 ).
in RVTable Unit there is TRVTablePrintOption type :
who got "rvtoNoCellsSplit" comented.
i found "rvtoNoCellsSplit" on the same file, line 1326 :
My question is :
How can i activate simply the "rvtoNoCellsSplit" option ?
Thanks,
David
I use an old version of TRichViewEdit ( 1.9.48 ).
in RVTable Unit there is TRVTablePrintOption type :
Code: Select all
TRVTablePrintOption = (rvtoHalftoneBorders, rvtoRowsSplit, { rvtoNoCellsSplit, } rvtoWhiteBackground);
i found "rvtoNoCellsSplit" on the same file, line 1326 :
Code: Select all
function TRVTablePrintInfo.CanSplitFirst(Y: Integer;
const Sad: TRVScreenAndDevice; FirstOnPage,
PageHasFootnotes, FootnotesChangeHeight: Boolean): Boolean;
var BorderHeight, StartHeight, ExtraCellHeight,
DeltaBottomHeight, RemainingHeight, c, mr, mc, ColCount,
HeightAfterFootnotes: Integer;
begin
if PartsList.Count=0 then begin
Result := False;
exit;
end;
{
if [b]rvtoNoCellsSplit in FTable.PrintOptions [/b]then begin
BorderHeight := Fmt.FHeight-Fmt.RowStarts[Fmt.RowStarts.Count-1]-
Fmt.RowHeights[Fmt.RowStarts.Count-1];
dec(y, BorderHeight);
mr := FTable.GetSplitRowBelow(FHeadingRowCount);
Result := y>Fmt.RowStarts[mr]+Fmt.RowHeights[mr];
exit;
end;
}
BorderHeight := RV_YToDevice (FTable.BorderWidth+FTable.BorderVSpacing, Sad);
[....]
end;
How can i activate simply the "rvtoNoCellsSplit" option ?
Thanks,
David