DBCheckbox no DBGrid - De outra maneira...

Question

Bom dia,Estava procurando aqui no f�rum uma forma de colocar o DBCheckBox dentro do DBGrid, e encontrei.Mas a minha quest�o � a seguinte,  no mesmo formul�rio eu tenho 24 DBCheckBox que setam a mesma ...

Raserafim · Answer

douglas, aproveitando, vc pode dizer quais t�picos lhe ajudou a esclarecer como colocar DBCheckBox dentro do DBGrid?...

Douglasf · Answer

Como n�o tenho a pagina irei colocar do jeito que fiz adaptado ao que eu queria, que no caso era s para marcado e n para desmarcado.

Coloquei um ImageList com duas imagens, de desmarcado e marcado.

no Evento OnDrawColumn vem o c�digo:

procedure TfrmCuidados.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var i : integer;
begin
  for i := 0 to DataModule.Query.FieldCount -1 do
  begin
    if Column.Field.Tag <> 0 then
    begin
      if Column.Field.Tag = DataModule.Query.Fields[i].Tag then
      begin
        DBGrid1.Canvas.FillRect(Rect);
        ImageList1.Draw(DBGrid1.canvas, Rect.Left + 10, Rect.Top + 1, 0);

        if dmPE.qryCuidado.Fields[i].AsString= �s� then
          ImageList1.Draw(DBGrid1.canvas, Rect.Left + 10, Rect.Top + 1, 1)
        else
          ImageList1.Draw(DBGrid1.canvas, Rect.Left + 10, Rect.Top + 1, 0);
      end;
    end;
  end;
end;

no caso � s� isso.

para isso funcionar ao clicarmos na coluna coloquei :

 with DataModule do
 begin
   Query.Edit;
   if (Column.Field.Tag > 0) and  (Column.Field.Tag < 25) then
     if Column.Field.AsString = �n� then
       Column.Field.AsString := �s�
     else
       Column.Field.AsString := �n�;
  end;

Douglasf · Answer

Ops.... no c�digo vai aparecer algo como Column.Field.Tag > 0 ou Column.Field.Tag > 25.para diferenciar os campos, que no caso � as horas do dias que vai de 1 a 24....

Douglasf · Answer

Aproveitando este meu t�pico....estou enfrentando um problema... como citado acima estou utilizando esta fun��o para quando clicar na celula o checkbox no grid aparecer selecionado:[code:1:13d8dd7f09] with DataModule do begin   Query.Edit;   if (Column.Field.Tag > 0) and  (Column.Field.Tag < 25) then     if Column.Field.AsString = �n� then       Column.Field.AsString := �s�     else       Column.Field.AsString := �n�;  end; [/code:1:13d8dd7f09]o problema � que ao clicar mais de uma vez em cima do grid, parece que a imagem vai para segundo plano e o que � mostrado � o valor real do campos, que no caso �[color=red:13d8dd7f09] s[/color:13d8dd7f09] para marcado e [color=red:13d8dd7f09]n[/color:13d8dd7f09] para desmarcado. Tem como colocar imagem para aparecer sempre em cima do grid?...

Douglasf · Answer

sobe...

F�rum DBCheckbox no DBGrid - De outra maneira... #279984