Evento DrawColumnCell del DBGrid
Código Delphi
[-]
if Column.Field = 'Mover' then
begin
Grilla.Canvas.FillRect(Rect);
ImageList1.Draw(Grilla.Canvas,
(Rect.Right - Rect.Left) div 2,
Rect.Top+1,
0);
if Base.MovimientosMover.AsBoolean then
ImageList1.Draw(Grilla.Canvas,Rect.Left+10,Rect.Top+1,2);
end;
Evento CellClick del DBGrid
Código Delphi
[-]
if (Column.FieldName = 'Mover') then
begin
Base.Movimientos.Edit;
Base.MovimientosMover.AsBoolean:= not(Base.MovimientosMover.AsBoolean);
Base.Movimientos.Post;
end;
Las imagenes q dibujo ...