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
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:
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;
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.