No hay respuestas en este tema

[Abigail]

Hola Comunidad Delphi! Saludos a todos; Alguien puede ayudarme como puedo programar este fragmento de código de VCL a FireMonkey Mobile.

delphi

// Con esto puedo adaptar automáticamente el tamaño de la columna de acuerdo a su contenido
procedimiento TForm1.AutoSizeCol (Grid: TStringGrid; Columna: integer);
 var
   i, W, WMax: integer;
 comenzar
   WMax: = 0; 
   para i: = 0 a (Grid.RowCount - 1) do begin
     W: = Grid.Canvas.TextWidth (Grid.Cells [Columna, i]);
     si W> WMax luego 
       WMax: = W;
  fin;
   Grid.ColWidths [Columna]: = WMax + 5;
 fin;

O alguna Sugerencia de como lograr que la Columna o la celda del String Grid las aumente de tamaño como su anchura...
Gracias Comunidad ...
Saludos