Social Icons

domingo, 21 de abril de 2013

Usando TJvDBGrid – Parte 3

Esse é o terceiro da série de artigos que estou escrevendo sobre o componente TJvDBGrid no Delphi. Esse componente pertence ao pacote de componentes JEDI VCL.
Informação
Nesse artigo mostrarei o recurso de congelamento de colunas. Essa opção altera a TJvDBGrid para fixar as colunas informadas, as quais ficarão sempre visíveis para o usuário enquanto ele faz a rolagem vertical das colunas. Vamos colocar a mão na massa então.
Crie um novo projeto no Delphi e inclúa os seguintes componentes:
  • 1 TJvDBGrid
  • 1 TClientDataSet
  • 1 TDataSource
Ligue o TDataSource ao TClientDataSet e ligue o TJvDBGrid ao TDataSource.
No TClientDataset inclua duas colunas
  • CODIGO :Integer;
  • DESCRICAO :String;
  • JANEIRO :Float;
  • FEVEREIRO :Float;
  • MARCO :Float;
  • ABRIL :Float;
  • MAIO :Float;
  • JUNHO :Float;
  • JULHO :Float;
  • AGOSTO :Float;
  • SETEMBRO :Float;
  • OUTUBRO :Float;
  • NOVEMBRO :Float;
  • DEZEMBRO :Float;

Agora no TJVDBGrid altere a seguinte propriedade:

JvDBGrid1.FixedCols := 2

Vamos incluir alguns registros ao TClientDataSet para vermos o comportamento da Grid.

procedure TForm1.FormCreate(Sender: TObject);
var x :Integer;
    i :Integer;
begin
  ClientDataSet1.CreateDataSet;
  for x := 1 to 100 do
  begin
    ClientDataSet1.Append;
    ClientDataSet1CODIGO.AsInteger := x;
    ClientDataSet1DESCRICAO.AsString := 'DESCRICAO '+IntToStr(x);
    for i := 0 to 11 do
      ClientDataSet1.Fields[i+2].AsFloat := random;
    ClientDataSet1.Post;
  end;
end;

Agora se tudo ocorreu bem é só executar e verificar o comportamento de congelamento de colunas.

Informação
A propriedade FixedCols indica o número de colunas que serão congeladas.

Veja como ficará o exemplo e note a diferença nas duas primeiras colunas que ficaram congeladas.

imagem1

Nenhum comentário:

Postar um comentário

Diga-nos, o que achou deste artigo?