DBgrid con checks como ?

[Coco_jac]

Hola amigos del foro como podria mostrar check en una columna del DBGrid de manera que podria activarlo o no..........
Acabo e ver post relacionados , pero a diferencia de esto no tengo campos booleanos , sino que deseo tener check en una columna de manera que al seleccionrlos me permitiria borrar el registro o registros, se que e puede hacer de otra manara mas facil pero me lo solicitan asi.

Espero sus comentarios...........

[Delfino]

intenta esto, teniendo una imagelist con dos bitmaps, una para el estado cheked y otra para el unchecked, el evento es el OnDrawColumnCell:

if Column.Field = campo then
begin
DBGrid1.Canvas.FillRect(Rect);
if campo.value = 0 then //unchecked condition
ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,0)
else //checked condition
ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,1);
end;

[Casimiro Notevi]

Añade un campo calculado y que sea éste el que conviertas en un checkbox, como te indica Delfino

[el_barto]

este problema me aquejo hace ya un tiempo, y esta explicado aqui:

http://www.clubdelphi.com/foros/showthread.php?t=12672&page=1&pp=20&highlight=dbgrid+check

ademas agregaria esto :

dbgrid1.SelectedIndex:=cualquiera;

para que el efecto del click sea mas original aun.

[amadis]

Alguien probò esto de los bitmaps?

Parece simple y muy estetico pero no pude hacerlo funcionar.


if Column.Field = campo then
begin
DBGrid1.Canvas.FillRect(Rect);
if campo.value = 0 then //unchecked condition
ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,0)
else //checked condition
ImageList1.Draw(DBGrid1.Canvas,Rect.Left+10,Rect.Top+1,1);
end;

[amadis]

Nadie lo ha probado?

Neftali no estas por ahi con tu sabidurìa como para dar opinión al respecto?

Saludos a todos

[Casimiro Notevi]

¿Te refieres a pintar los checkbox cargando una pequeña imagen?. sí, es algo habitual, lo hago normalmente así:

procedure TFempresas.grUsuaDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin // pintar los checkbox
if AnsiLowerCase(Column.Field.FieldName) = _acceso_ then
begin
(Sender As TDBGrid).Canvas.FillRect( Rect );
imglst2.Draw((Sender As TDBGrid).Canvas,Rect.Left+10,Rect.Top+1,0);
if Column.Field.Value=1 then
imglst2.Draw((Sender As TDBGrid).Canvas,Rect.Left+10,Rect.Top+1,2)
else
imglst2.Draw((Sender As TDBGrid).Canvas,Rect.Left+10,Rect.Top+1,0{1}); // 0.en blanco 1.no 2.si
end;
end;

[ecfisa]

Hola.

Yo utilizo algo parecido a:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
B: TBitmap;
R: TRect;
begin
if Column.FieldName = 'CampoDelBitmap' then
begin
TDBGrid(Sender).Canvas.FillRect(Rect);
B:= TBitmap.Create;
try
ImageList1.GetBitMap(TDBGrid(Sender).DataSource.DataSet.FieldByName('Opcion').AsInteger + 1, B);
B.Width:= Rect.Right - Rect.Left;
B.Height:=Rect.Bottom - Rect.Top;
DBGrid1.Canvas.StretchDraw(Rect, B);
finally
B.Free;
end;
R:= Rect;
R.Left := R.Left + R.Bottom - R.Top;
DBGrid1.DefaultDrawColumnCell(R, DataCol, Column, State);
end;
end;

Permite el usar varias imágenes para distintos valores, pero el código de Casimiro realmente es mucho más simple... (y ya me lo copié :))

Saludos.

[Casimiro Notevi]

(y ya me lo copié :))
¿Y mis derechos de autor?, espera que recuerde... ah, no, si yo también lo copié :D

[olbeup]

Yo también lo hacia cómo ecfisa pero el tuyo casimiro notevi, es más corto y no hay que crear ni destruir ningún Objecto, no te acostaras sin saber algo más.

Perdón pero yo también me lo he copiado. :D:D

Un saludo.

[Casimiro Notevi]

Perdón pero yo también me lo he copiado.

¡Copiad, malditos! (http://www.rtve.es/alacarta/videos/el-documental/copiad-copiad-malditos-codecmaster-web-169/1075737/) :)

[amadis]

Justamente buscaba lograr eso...

Copio a casimiro.