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.
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.
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)