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
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:
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.
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.
