Artigos Delphi Trabalhando com Imagem - DBCtrlGrid - Delphi

Olá galera, nesta Quick Tips, irei mostra como podemos usar o componente DBCtrlGrid localizado na palheta Data Controls, além de incluirmos uma imagem dependendo do valor de um determinado campo do DataSet, para cada registro.

 

         Este componente exibe as informações de um DataSet, como se fosse um DBGrid, porém podemos colocar DBEdits, DBCombobox, e alterar vários registros ao mesmo tempo.

        

Vamos ver algumas propriedades importantes.

 

ColCount

         Através da propriedade ColCount, podemos informar quantas colunas, de registro, queremos visualizar ao mesmo tempo.

 

RowCount

         Através da propriedade RowCount, podemos informar quantas linhas, de registro, queremos visualizar ao mesmo tempo.

 

SelectColor

         Através da propriedade SelectColor, podemos definir uma cor para o panel que contém o foco.

 

Vamos construir o exemplo concreto.

         Iniciaremos criando e salvando o Form como uFrmPrincipal.pas (FrmPrincipal), e logo em seguida vamos criar um DataModule, e salvar o mesmo como uDM.pas (DM)

 

DM : adicionaremos os componentes para conexão com uma determinada tabela, no meu caso estou usando o Firebird. Nada lhe impede de usar seu banco de dados.

 

SQLConnection (DBCtrlGrid )

SQLDataSet (SDSCliente )

DataSetProvider (DSPCliente)

ClientDataSet (CDSCliente )

 


 

 

FrmPrincipal : Adicionaremos os seguintes componentes :

 

Image (ImgSexo) – Este componente não precisa ficar visível

DBCtrlGrid (DBCtrlGrdDados)

DataSource (DSCliente)

DBGrid(DBGrdDados)

4 DBEdit

4 Label

 

Veja o resultado final :


 

Vamos selecionar o DBCtrlGrdDados, e no evento PaintPanel, iremos implementar o seguinte código :

 

procedure TFrmPrincipal.DBCtrlGrdDadosPaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);

begin

     if DM.CDSCliente.FieldByName('SEXO').AsString = 'M' then

     begin

          ImgSexo.Picture.LoadFromFile('Imagem\ImgHomem.bmp');

          DBCtrlGrdDados.Canvas.Draw(20,6,ImgSexo.Picture.Graphic);

     end

     else

          if DM.CDSCliente.FieldByName('SEXO').AsString = 'F' then

          begin

               ImgSexo.Picture.LoadFromFile('Imagem\ImgMulher.bmp');

               DBCtrlGrdDados.Canvas.Draw(20,6,ImgSexo.Picture.Graphic);

          end;

end;

 

 

Veja o resultado final ao compilar o projeto :

 

Como podemos notar, a imagem quando temos um sexo = M, a imagem é a verde, e quando temos um sexo = F, a imagem é a marrom.

Fico por aqui ate à próxima Quick Tips. Baixe o exemplo completo neste post.

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br