Checkbox in Datenbank

[blawen]

Die aktuelle (freigegebene) JVCL-Version 3.34 findest Du hier: JVCL

Möglicher Ansatz:

Delphi-Quellcode:

procedure TForm2.JvDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
                                         DataCol: Integer; Column: TColumn;
                                         State: TGridDrawState);
begin
  ColorGrid(jvDBGrid1, DMMain.ZQuery_read, Rect, DataCol, Column, State);
end;


procedure TForm2.ColorGrid(dbgIn: TjvDBGrid; qryIn: TZQuery; const Rect: TRect;
                           DataCol: Integer; Column: TColumn;
                           State: TGridDrawState);
var
  bValue: boolean;

begin
  { Feststellen ob die anzuzeigende Nachricht noch nicht gelesen wurde }
  if (NOT DMMain.ZQuery_read.IsEmpty) AND (Column.Index = 0) THEN
    if qryIn.FieldByName('lesen').AsString = '1'
      then DMMain.ImageList1.draw(jvDBGrid1.Canvas , rect.left+0,rect.top+2,0)
      else DMMain.ImageList1.draw(jvDBGrid1.Canvas , rect.left+0,rect.top+2,1);
end;