procedure TFrmTest.cyDBAdvGrid_HistoCellClick(Column: TColumn); begin if cyDBAdvGrid_Histo.SelectedField.FieldName = 'Avec_PRG' then begin cyDBAdvGrid_Histo.DataSource.DataSet.Edit; if cyDBAdvGrid_Histo.DataSource.DataSet.FieldByName('Avec_PRG').Value = 0 then cyDBAdvGrid_Histo.DataSource.DataSet.FieldByName('Avec_PRG').Value := 1 else cyDBAdvGrid_Histo.DataSource.DataSet.FieldByName('Avec_PRG').Value := 0; end; end; procedure TFrmTest.cyDBAdvGrid_HistoDrawCheckBox(Sender: TObject; const Rect: TRect; Checked: Boolean); begin if TcyDBAdvGrid(Sender).DataSource.DataSet.FieldByName('Avec_PRG').Value = 1 then TcyDBAdvGrid(Sender).DefaultDrawCheckBox(Rect, true) else TcyDBAdvGrid(Sender).DefaultDrawCheckBox(Rect, false); end; procedure TFrmTest.cyDBAdvGrid_HistoBeforeDrawColumnCell(Sender: TObject; ACol, ARow: Integer; ARect: TRect; Column: TColumn; var AState: TGridDrawState; Highlight: Boolean; var DrawBackground, DrawFieldValue: Boolean); begin if Column.FieldName = 'Avec_PRG' then DrawFieldValue := false; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question