Artigos Delphi CheckBox dentro de um DBGrid

A seguir, veremos como colocar um check box em um DBGrid. Criar interfaces do usuário visualmente mais atraentes para editar campos boolean dentro de um DBGrid.

Este é o primeiro artigo da série de artigos chamada "Adding components to a DBGrid" (“Adicionando componentes a um DBGrid”). A idéia aqui, é mostrar como colocar quase qualquer controle Delphi (componente visual), em uma célula de um DGBrid. Se não estiver familiarizado com a ideia, por favor, leia antes o artigo acima mencionado.

CheckBox em um DBGrid?

Como vimos no artigo anterior, há muitos modos (e razões) para considerarmos a personalização das saídas de um DBGrid: suponha que existe um campo boolean no dataset. Por padrão, o DBGrid exibe campos boolean como "True" ou "False", dependendo do valor do campo. Se você pensa como eu, concordará que será visualmente muito mais atraente se pudéssemos usar um "verdadeiro" controle check box, para habilitar a edição de estes campos.

Criando uma aplicação exemplo

Para começar, inicie o Delphi e, no formulário inicial padrão vazio, coloque um TDBGrid, um ADOTable, um TADOConnection e um TDataSource. Deixe os nomes dos componentes do jeito que o lphi os chamou quando colocados no formulário (DBGrid1, ADOQuery1, AdoTable1,...). Use o Object Inspector para configurar a propriedade ConnectionString do componente ADOConnection1 (TADOConnection), para apontar para o banco de dados de exemplo QuickiesContest.mdb do MS Access.

Conecte o DBGrid1 ao DataSource1, o DataSource1 ao ADOTable1 e finalmente, o ADOTable1 ao ADOConnection1. A propriedade TableName do ADOTable1 deverá apontar para a tabela Articles (para que o DBGrid passe a exibir os registros da mesma). Se você configurou todas as propriedades corretamente, quando rodar a aplicação (desde que a propriedade Active do componente ADOTable1 seja True) deverá obter o seguinte:

O que você precisa “reparar" na figura anterior é que, por padrão, o DBGrid exibe o valor do campo boolean como "True" ou" False", dependendo do valor do campo. O campo que armazena o valor boolean é "Winner". O que iremos mostrar neste artigo, é como fazer para que a figura anterior tenha o seguinte aspecto:

CheckBox em um DBGrid!

Ou, melhor dizendo, um DBCheckBox em um DBGrid.

Ok, aqui vamos nós. Para mostrar um check box dentro de uma célula de um DBGrid, precisaremos fazer com que um fique disponível em tempo de execução. Selecione “Data controls" na Component Palette, e escolha um TDBCheckbox. Coloque um em qualquer lugar do formulário (não importa onde, desde que a maior parte do tempo estará invisível ou flutuando por cima do grid). O TDBCheckBox é um controle alerta a dados (data-aware control), que permite ao usuário selecionar ou de-selecionar um único valor – muito apropriado para campos boolean.

A seguir, configure sua propriedade Visible para False. Altere a propriedade Color do DBCheckBox1 para a mesma do DBGrid (assim se confundirá com a do DBGrid) e remova o Caption. E o mais importante, certifique-se de que o DBCheckBox1 esteja conectado ao DataSource1 e para o campo correto (DataSource = DataSource1, DataField = Winner).

Repare que todos os valores de propriedade do DBCheckBox1, podem ser configurados no evento OnCreate do formulário:

procedure TForm1.FormCreate(Sender: TObject);
 begin
  DBCheckBox1.DataSource := DataSource1;
  DBCheckBox1.DataField := 'Winner';
  DBCheckBox1.Visible := False;
  DBCheckBox1.Color := DBGrid1.Color;
  DBCheckBox1.Caption := '';
  //explicado mais adiante no artigo
  DBCheckBox1.ValueChecked := 'Yes a Winner!'; 
  DBCheckBox1.ValueUnChecked := 'Not this time.'; 
 end;

O que vem a seguir é a parte mais interessante. Ao editarmos o campo boolean no DBGrid, precisamos ter certeza de que o DBCheckBox1 está posicionado acima ("flutuando") da célula do DBGrid que exibe o campo boolean. Para o resto das células (não focalizadas), contendo os campos boolean (na coluna "Winner"), precisamos prover alguma representação ao vivo do valor boolean (True/False).

Isto significa que precisamos pelo menos desenhar duas imagens: uma para o estado marcado (valor True) e outra para o estado desmarcado (valor False). O modo mais fácil de realizar isto, é usar a função DrawFrameControl da Windows API, para desenhar diretamente na tela do DBGrid.

A seguir, o código no manipulador de evento OnDrawColumnCell do DBGrid, que acontece quando o grid precisa pintar uma célula. 

procedure TForm1.DBGrid1DrawColumnCell(
   Sender: TObject; const Rect: TRect; DataCol: 
   Integer; Column: TColumn; State: TGridDrawState);  
 const IsChecked : array[Boolean] of Integer = 
       (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
 var
   DrawState: Integer;
   DrawRect: TRect;
 begin
   if (gdFocused in State) then
   begin
     if (Column.Field.FieldName = DBCheckBox1.DataField) then
     begin
      DBCheckBox1.Left := Rect.Left + DBGrid1.Left + 2;
      DBCheckBox1.Top := Rect.Top + DBGrid1.top + 2;
      DBCheckBox1.Width := Rect.Right - Rect.Left;
      DBCheckBox1.Height := Rect.Bottom - Rect.Top;
      DBCheckBox1.Visible := True;
     end
   end
   else
   begin
     if (Column.Field.FieldName = DBCheckBox1.DataField) then
     begin
       DrawRect:=Rect;
       InflateRect(DrawRect,-1,-1);
       DrawState := ISChecked[Column.Field.AsBoolean];
       DBGrid1.Canvas.FillRect(Rect);
       DrawFrameControl(DBGrid1.Canvas.Handle, DrawRect, 
         DFC_BUTTON, DrawState);
     end;
   end; 
 end;

Para finalizar este passo, precisamos garantir que o DBCheckBox1 esteja invisível quando sairmos da célula:


 procedure TForm1.DBGrid1ColExit(Sender: TObject);
 begin
   if DBGrid1.SelectedField.FieldName = DBCheckBox1.DataField then 
     DBCheckBox1.Visible := False
 end;

Precisamos apenas controlar mais dois eventos. Note que no modo de edição, todas as teclas pressionadas vão para a célula do DBGrid, temos que garantir que serão redirecionadas para o CheckBox. No caso de um CheckBox, estamos principalmente interessados nas teclas [Tab] e [Space]. A tecla [Tab] deveria mover o foco de entrada para a próxima célula e a tecla [Space] deveria alternar o estado do CheckBox.

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
 begin
   if (key = Chr(9)) then 
     Exit;
   if (DBGrid1.SelectedField.FieldName = DBCheckBox1.DataField) then
   begin
     DBCheckBox1.SetFocus;
     SendMessage(DBCheckBox1.Handle, WM_Char, word(Key), 0);
   end;
 end;

E finalmente, o último toque. Seria conveniente que o Caption do checkbox mudasse de acordo com a marcação ou desmarcação do usuário. Note que o DBCheckBox tem duas propriedades (ValueChecked e ValueUnChecked), usadas para especificar o valor do campo representado pelo check box quando for marcado/desmarcado. Minhas propriedades ValueChecked e ValueUnChecked contém 'Yes a Winner!' e 'Not this time', respectivamente.


 procedure TForm1.DBCheckBox1Click(Sender: TObject);
 begin
   if DBCheckBox1.Checked then
      DBCheckBox1.Caption := DBCheckBox1.ValueChecked
   else
      DBCheckBox1.Caption := DBCheckBox1.ValueUnChecked;
 end;

Isto é tudo. Rode o projeto e voila... Checkboxs em toda a coluna do campo Winner.

Se você precisar de qualquer ajuda com o código, envie suas perguntas ao Delphi Programming Forum.