AdvStringGrid fixed area and custom borders issue

VCL TMS VCL UI Pack
1

Hello,

I have a TAdvStringGrid with both fixed rows and columns and custom cell borders. When the grid displays the last fixed row bottom border is rendered thick and all the cells below are moved 1px down:


Here is my simplified setup (in the real project I have conditional border colors and width):

AdvStringGrid1.Options:=[]; //no goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine
AdvStringGrid1.RowCount:=100;
AdvStringGrid1.ColCount:=5;
AdvStringGrid1.FixedCols:=2;
AdvStringGrid1.FixedRows:=3;

procedure TForm3.AdvStringGrid1OnGetCellBorder(Sender: TObject; ARow, ACol: Integer;
  APen: TPen; var Borders: TCellBorders);
begin
  Borders:=[cbLeft,cbRight,cbTop,cbBottom];
end;
 
procedure TForm3.AdvStringGrid1OnGetCellBorderProp(Sender: TObject; ARow, ACol: Integer;
  LeftPen, TopPen, RightPen, BottomPen: TPen);
begin
  LeftPen.Color:=clBlack;
  LeftPen.Style:=TPenStyle.psSolid;
  LeftPen.Width:=1;

  RightPen.Color:=clBlack;
  RightPen.Style:=TPenStyle.psSolid;
  RightPen.Width:=1;

  TopPen.Color:=clBlack;
  TopPen.Style:=TPenStyle.psSolid;
  TopPen.Width:=1;

  BottomPen.Color:=clBlack;
  BottomPen.Style:=TPenStyle.psSolid;
  BottomPen.Width:=1;
end;

Any ideas how to fix this?

 
2

We have applied an improvement for this. The next update will address this.