cxgrid Highlight (oder Farbe) geändert Zelle auf Formular closequery

Question

Auf closequery der Form habe ich:

if MessageDlg('Close program ?', 
      mtConfirmation, [mbYes,mbCancel],0) <> mrYes then CanClose := False 
else if DataModule2.mytable.State in [dsEdit,dsInsert] then 
       if MessageDlg('Save changes ?', mtConfirmation, 
        [mbYes,mbNo],0) = mrYes then DataModule2.mytable.Post; 

Gibt es eine Möglichkeit I (oder Farbe) eine veränderte Zelle in cxgrid markieren kann, wenn ich meine OnCloseQuery auslösen Veranstaltung ?

Ich muss nicht wissen, was geändert wurde, aber nur um zu wissen, welche Zelle geändert wurde, damit der Benutzer es sehen kann, so kann er leicht Wetter entscheiden, um die Änderungen zu speichern oder nicht.

Answer 1

Es ist einfach, das cxGrid dazu zu bringen, eine Zelle (oder Zeile) zu zeichnen, die auf irgendeine Weise unter Verwendung des cxGrid1DBTableView1CustomDrawCell Ereignisses markiert ist. Und wenn Sie ein Flag haben, das anzeigt, dass das OnCloseQuery-Ereignis in Bearbeitung ist, können Sie seine Aktion auf dieses Ereignis beschränken.

Aktualisieren Der Code, der ursprünglich mit dieser Antwort gepostet wurde, konnte nicht erfolgreich mehr als eine Zelle in der aktuellen Rasterzeile als geändert markieren. Der aktualisierte Code unten kann dies jedoch tun; Beachten Sie die Kommentare in den beiden Verfahren.

type 
    TForm1 = class(TForm) 
    [...] 
    public 
    QueryingClose : Boolean; 
    end; 

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin 
    try 
    QueryingClose := True; 
    //{cxGrid1.Invalidate{True); Do NOT call Invalidate, because it causes the 
    // grid's repainting logic to operate in a way which effectively makes it 
    // impossible to mark more that one cell in the current data row as changed 
    ShowMessage('Close?'); 
    finally 
    QueryingClose := False; 
    end; 
end; 

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(Sender: 
    TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: 
    TcxGridTableDataCellViewInfo; var ADone: Boolean); 
var 
    Field : TField; 
    MarkCell : Boolean; 
    S1, 
    S2 : String; 
    EC : TcxGridTableEditingController; 
begin 
    if QueryingClose and 
    (TcxGridDBTableView(Sender).DataController.DataSet.State in[dsEdit, dsInsert]) then begin 
    Field := TcxGridDBColumn(AViewInfo.Item).DataBinding.Field; 
    S1 := VarToStr(Field.OldValue); 

    // When this event is called, the user may be in the middle of editing a cell's contents 
    // So, the purpose of the following lines is to close the inplace editor being used to do 
    // this amd post the chamged value back to the TField associated with the cell 
    EC := TcxGridDBTableView(Sender).Controller.EditingController; 
    if EC.IsEditing then 
     EC.HideEdit(True); 

    S2 := VarToStr(Field.Value); 
    MarkCell := S1 <> S2; 
    if MarkCell then 
     ACanvas.Brush.Color := clLime; 
    end; 
end; 

Damit dies funktioniert, muss Ihr TDataSet-Nachkomme Typ Rückkehr unterstützen korrekt den ursprünglichen Inhalt der Felder auf ihre Eigenschaft OldValue; TClientDataSet, das ich verwendet habe, um diesen Code zu schreiben/zu testen, tut dies sicherlich, aber ich habe keine Ahnung, welchen tatsächlichen TDataSet-Typ Sie verwenden.

Hoffentlich sollte es offensichtlich sein, dass Sie diese beiden Verfahren zu eine Liste von TFields erstellen können, die Werte geändert haben, einschließlich FieldName OldValue und Value.