guardar/restaurar columnas Tgrid Firemonkey en un INI

[juank1971]

Saludos, estoy trabajando con Tgrid Firemonkey 10.4, quiero guardar la posicion de las columnas , tamaño y si son visibles o no

pero no encuentro una manera comoda de hacerlo, alguien tiene alguna idea.


valida la aclaracion que es un tgrid conectado a Livebinding,



saludos

[juank1971]

Resolvi con un codigo de un delphiano llamado jordi que me ayudo por si algien lo necesita, yo lo cambie para Tgrid, porque estaba con dbgrid, ahora funciona correcto en firemonkey. por ejemplo yo no conocia el Split, muy buena variante para quitarnos trabajo de encima.

Código Delphi [-]
  FIELD_SEP = '|'; 
  REGISTER_SEP = ';'; 



function GuardarColumnasGrid(g: TGrid): string;
var
  i: integer;
begin
  Result := '';
  for i := 0 to g.ColumnCount - 1 do
    Result := Result + g.Columns[i].Header + FIELD_SEP + g.Columns[i]
      .Width.ToString + FIELD_SEP + ifthen(g.Columns[i].Visible, 'S', 'N') +
      REGISTER_SEP;
end;


procedure CargarColumnasGrid(g: TGrid; cfg: string);
  function BuscarColumna(g: TGrid; const AFieldName: string): TColumn;
  var
    i: integer;
  begin
    Result := nil;
    for i := 0 to g.ColumnCount - 1 do
    begin
      if (g.Columns[i].Header = AFieldName) then
      begin
        Result := g.Columns[i];
        Exit;
      end;
    end;
  end;
begin
  var  reg := cfg.Split([REGISTER_SEP]);
  // se divide todo antes del ' ; '  para cada campo
  for var i := 0 to High(reg) do
  begin
    var
    cmp := reg[i].Split([FIELD_SEP]);
    // se divide todo lo separado por ' | '  nombre|tamaño | visible de cada columna
    if length(cmp) > 0 then
    begin
      var col := BuscarColumna(g, cmp[0]); 
       if Assigned(col) then
      begin
        col.Index := i;
        col.Width := StrToIntDef(cmp[1], col.Width.ToString.ToInteger);
        col.Visible := cmp[2] = 'S';
      end;
    end;
  end;
end;

[Casimiro Notevi]