devGrid中，在表格编辑中如何调用自画事件，分不够再加

[itperson]

procedure TfrmEmployee.cxGridEmployeeDBTableViewCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
AViewInfo.Style.Color := clRed;
end;


procedure TfrmEmployee.cxGridEmployeeDBTableViewEditValueChanged(
Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem);
begin
//在这儿调用上面的事件，请问如何调用
end;

[JonnySun]

安裝完devExpress後,
C:\Program Files\Developer Express Inc\ExpressQuantumGrid 5\Delphi 7\Demos
下就有演示代碼!

[itperson]

谁会呀，解答对的再开200分送！

[itperson]

要求是：编辑后的单元格里的内容自动变成红色

[JonnySun]

离結果還差一點點，下班了．繼續關注本貼.....


procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
ARec: TRect;
ATextToDraw, val: string;
AIsVertical: Boolean;
begin

ARec := AViewInfo.EditBounds;

if cxGrid1DBTableView1.Columns[AViewInfo.Item.Index].DataBinding.Field.OldValue <>
cxGrid1DBTableView1.Columns[AViewInfo.Item.Index].DataBinding.Field.NewValue then
begin
ACanvas.Canvas.Brush.Color := clBlue;
ACanvas.Canvas.Font.Color := clGreen;
end
else
begin
ACanvas.Canvas.Font.Color := clRed;
ACanvas.Canvas.Brush.Style := bsSolid;
end;
ACanvas.Canvas.FillRect(ARec);

end;