TTMSFNCGrid and align the column

FNC TMS FNC UI Pack
1

Is there a possibility to align the column.
if there is, can you give an example?

2 
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;
  TMSFNCGrid1.Columns[1].HorzAlignment := gtaCenter;
  TMSFNCGrid1.Columns[2].HorzAlignment := gtaTrailing;  //horizontal: Right; vertical: Bottom
  TMSFNCGrid1.Columns[3].VertAlignment := gtaLeading;  //horizontal: Left; vertical: Top
end;

obraz

1 Like
3

Thank you Paweł Dmitruk