TXDBGrid - Problemas com Expanded

05/01/2016

0

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.
Rafael Santos

Rafael Santos

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar