Fórum TXDBGrid - Problemas com Expanded #541482

  
  procedure AtualizaGrid(Rx: TRxMemoryData; Grid: TXDBGrid);
  Var vcont : Integer;
  begin
    Rx.First;
    While not rx.eof do
    Begin
      vcont := Rx.FieldByName('COLUNA').AsInteger;
      Grid.Columns[vcont].FieldName     := Rx.FieldByName('CAMPO'     ).AsString;
      Grid.Columns[vcont].Title.Caption := Rx.FieldByName('TITULO'    ).AsString;
      Grid.Columns[vcont].Width         := Rx.FieldByName('TAMANHO'   ).AsInteger;
      Grid.Columns[vcont].Expanded      := Rx.FieldByName('EXPANDCOLS').AsInteger <> 0;
      Grid.Columns[vcont].ExpandCols    := Rx.FieldByName('EXPANDCOLS').AsInteger;
      rx.Next;
    End;
  End;