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

• Você pode baixar os componentes JEDI VCL em http://jvcl.delphi-jedi.org/
• Recomendamos a leitura dos artigos Usando TJvDBGrid - Part2

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.