TTMSFNCGrid - No cell borders under Lazarus

TMS FNC UI 4.0.0.0/Lazarus 2.2.2/fpc 3.2.2/Windows 10

There are no cell borders visible in any of the TMS FNC UI grid controls (TTMSFNCGrid/TTMSFNCSpreadGrid)

Anybody experienced the same behaviour?

Thanks

Try using TTMSFNCStylesManager.

It behaves the same on linux in lazarus, but with TTMSFNCStylesManager, everything is fine

TMSFNCStylesManager1.LoadStyleFromFile('TTMSFNCStyle_FNC_Light.style');

uses
  LCLTMSFNCGraphicsTypes;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TMSFNCGrid1.Appearance.FixedLayout.Stroke.Kind := gskSolid;
  TMSFNCGrid1.Appearance.NormalLayout.Stroke.Kind := gskSolid;
  TMSFNCGrid1.Appearance.BandLayout.Stroke.Kind := gskSolid;
  TMSFNCGrid1.Appearance.FocusedLayout.Stroke.Kind := gskSolid;
  TMSFNCGrid1.Appearance.FixedSelectedLayout.Stroke.Kind := gskSolid;
end;     

Thank you both, both works, even I don't really like any of the default styles. Why are the cell borders so thick? This makes the grid appearance a kind of ugly when I compare it with the TMSFNCGridPlanner control for example:

image

image

set BorderWidth to 0 for columns

uses
  LCLTMSFNCGraphicsTypes;

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: Integer;
begin
  for i := 0 to TMSFNCGrid1.RowCount - 1 do
  begin
    for j := 0 to TMSFNCGrid1.ColumnCount - 1 do
    begin
      if i = 0 then
        TMSFNCGrid1.Cells[j, i] := Format('Column %d', [j])
      else
        TMSFNCGrid1.Cells[j, i] := Format('(%d, %d)', [i, j]);
    end;
  end;
  for i := 0 to TMSFNCGrid1.Columns.Count - 1 do
    TMSFNCGrid1.Columns[i].BorderWidth := 0;
  TMSFNCGrid1.Appearance.FixedLayout.Stroke.Kind := gskSolid;
  TMSFNCGrid1.Appearance.NormalLayout.Stroke.Kind := gskSolid;
  TMSFNCGrid1.Appearance.BandLayout.Stroke.Kind := gskSolid;
  TMSFNCGrid1.Appearance.FocusedLayout.Stroke.Kind := gskSolid;
  TMSFNCGrid1.Appearance.FixedSelectedLayout.Stroke.Kind := gskSolid;   
end;          

obraz

Thank you, setting the columnwidth = 0 brought back the usual appearance.

Thanks - setting the border width = 0 solved this for me too. I have to agree with Ulrich though, the default grid styles look really bad and the thin borders should definitely be the default.

Cheers, Bob

Hi,

We wrote this down and will take a look at improving the default style of the grid.

Hello,

its now by default in 4.1.0.2. Thank you.