Guardar Formato de Grilla!!

[NicoDominguez]

bueno gente... lo resolvi de esta forma


var
A : Array of TSMDBColumn;
cantidad : integer;
iterator : integer;
color : TColor;
begin


cantidad := SMDBGrid1.Columns.Count;

SetLength(A, cantidad);

For iterator := 0 to cantidad -1 Do
Begin

A[iterator] := TSMDBColumn.Create(nil);
A[iterator].Color := SMDBGrid1.Columns[iterator].color;
A[iterator].Title := SMDBGrid1.Columns[iterator].Title;

End;


//-----------------------------------------


sp := TStoredProcedure.Create('proc_PRUEBA_NICO');

sp.Charge_Parameter( 'cadena','hola');
sp.Charge_Parameter( 'numero',5);

sp.Open;

DataSource1.DataSet := sp.storedProcedure;


//-----------------------------------------

For iterator := 0 to cantidad -1 Do
Begin

SMDBGrid1.Columns[iterator].TextEllipsis := teMiddle;
SMDBGrid1.Columns[iterator].Color := A[iterator].color;
SMDBGrid1.Columns[iterator].Title := A[iterator].Title;

End;

end;