cxgrid 하이라이트 (또는 색상) 내가 가지고있는 형태의 closequery에 폼 closequery

Question

에 셀을 변경 사건?

변경된 내용을 알 필요는 없지만 사용자가 볼 수 있도록 변경된 셀을 알기 만하면 날씨를 쉽게 결정하여 변경 사항을 저장할지 여부를 결정할 수 있습니다.

Answer 1

cxGrid1DBTableView1CustomDrawCell 이벤트를 사용하여 어떤 방식 으로든 강조 표시된 셀 (또는 행)을 그릴 수있는 cxGrid를 얻는 것은 간단합니다. OnCloseQuery 이벤트가 진행 중임을 나타내는 플래그를 지정하면 해당 이벤트를 해당 이벤트 내부로 제한 할 수 있습니다.

업데이트이 답변으로 처음 게시 한 코드는 현재 그리드 행에 둘 이상의 셀을 변경된 것으로 표시 할 수 없습니다. 그러나 아래의 업데이트 된 코드는이를 수행 할 수 있습니다. 두 절차의 주석을 기록하십시오.

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; 

이렇게하려면 TDataSet-descendant 유형이 필드의 원래 내용을 OldValue 속성에 올바르게 반환해야합니다. 이 코드를 작성/테스트하는 데 사용 된 TClientDataSet은 실제로이 작업을 수행하지만 실제 TDataSet 유형을 사용하고 있는지 전혀 알지 못합니다.

필드 이름 OldValue 및 값을 포함하여 값이 변경된 TField 목록을 작성하려면이 두 절차를 사용할 수 있습니다.