TXDBGrid - Problemas com Expanded

05/01/2016

1

Estou fazendo algumas rotinas de automatização para um TXDBGrid e estou com problemas ao preencher os parâmetros dele em tempo de execução.

  
  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;


nesse código eu tenho uma Rx populada com algumas informações básicas, na hora de tentar atribuir o Expanded com True, ele não entende, o mesmo serve para o ExpandCols que sempre fica com zero, independente do valor que esta na Rx..

Poderiam me ajudar?
Obrigado.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira