以下代码在4.3.21下还是有效的,当DBGridEh存在合计行时,就会自动填充空白的网格,可是到了v4.4.31就没有用了,那个高人能帮我改一下,让这个填充空白的代码能用呢!谢谢大家了!!
在2162行增加一下内容:
//ljb at 2008-12-12 begin if (DrawInfo.Vert.ContraCelCount > 0) then
begin
DrawLines(DrawInfo, goFixedHorzLine in Options, goFixedVertLine in Options,
0, TopRow, [0, Vert.FixedBoundary, Horz.NoFrozenBoundary, Vert.FullGridBoundary {Vert.GridBoundary}],
GridLineColors.GetCellColor(0, TopRow) {FFixedLineColor}, FixedColor, Canvas, DrawLinesInfo); if Horz.FrozenCelCount > 0 then
begin
DrawLines(DrawInfo, goFixedHorzLine in Options, goFixedVertLine in Options,
FixedCols - FrozenColCount, TopRow,
[Horz.NoFrozenBoundary, Vert.FixedBoundary, Horz.FixedBoundary - 1, Vert.FullGridBoundary {Vert.GridBoundary}],
GridLineColors.GetCellColor(FixedCols - FrozenColCount, TopRow) {LineColor}, FixedColor, Canvas, DrawLinesInfo);
DrawOneLine(Horz.FixedBoundary - 1, Vert.FixedBoundary,
Horz.FixedBoundary - 1, Vert.FullGridBoundary {Vert.GridBoundary},
GridLineColors.GetRightBorderCellColor(FixedCols - 1, TopRow));
end;
RCR := SetDataDrawOriginClipRegion(
Horz.FixedBoundary, Vert.FixedBoundary, Horz.GridBoundary, Vert.NoFrozenBoundary); DrawLines(DrawInfo, goHorzLine in Options, goVertLine in Options, LeftCol, TopRow,
[Horz.FixedBoundary, Vert.FixedBoundary, Horz.GridBoundary, Vert.FullGridBoundary {Vert.GridBoundary}],
GridLineColors.GetCellColor(LeftCol, TopRow) {LineColor}, Color, Canvas, DrawLinesInfo); end;
//ljb at 2008-12-12 end
在2162行增加一下内容:
//ljb at 2008-12-12 begin if (DrawInfo.Vert.ContraCelCount > 0) then
begin
DrawLines(DrawInfo, goFixedHorzLine in Options, goFixedVertLine in Options,
0, TopRow, [0, Vert.FixedBoundary, Horz.NoFrozenBoundary, Vert.FullGridBoundary {Vert.GridBoundary}],
GridLineColors.GetCellColor(0, TopRow) {FFixedLineColor}, FixedColor, Canvas, DrawLinesInfo); if Horz.FrozenCelCount > 0 then
begin
DrawLines(DrawInfo, goFixedHorzLine in Options, goFixedVertLine in Options,
FixedCols - FrozenColCount, TopRow,
[Horz.NoFrozenBoundary, Vert.FixedBoundary, Horz.FixedBoundary - 1, Vert.FullGridBoundary {Vert.GridBoundary}],
GridLineColors.GetCellColor(FixedCols - FrozenColCount, TopRow) {LineColor}, FixedColor, Canvas, DrawLinesInfo);
DrawOneLine(Horz.FixedBoundary - 1, Vert.FixedBoundary,
Horz.FixedBoundary - 1, Vert.FullGridBoundary {Vert.GridBoundary},
GridLineColors.GetRightBorderCellColor(FixedCols - 1, TopRow));
end;
RCR := SetDataDrawOriginClipRegion(
Horz.FixedBoundary, Vert.FixedBoundary, Horz.GridBoundary, Vert.NoFrozenBoundary); DrawLines(DrawInfo, goHorzLine in Options, goVertLine in Options, LeftCol, TopRow,
[Horz.FixedBoundary, Vert.FixedBoundary, Horz.GridBoundary, Vert.FullGridBoundary {Vert.GridBoundary}],
GridLineColors.GetCellColor(LeftCol, TopRow) {LineColor}, Color, Canvas, DrawLinesInfo); end;
//ljb at 2008-12-12 end
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货