delphi cxgrid 的用法和问题

1、选中一行改变行颜色

procedure TFormMain.gridAllRoomsFocusedRecordChanged(
  Sender: TcxCustomGridTableView; APrevFocusedRecord,
  AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
var
 shows : string;
begin
  if AFocusedRecord = nil then
  exit;

  Sender.Styles.Selection := styskyblue;//TcxStyleRepository控件
  exit;

end;

2、单元个改变颜色

procedure TFormMain.clmnWakeStateCustomDrawCell(Sender: TcxCustomGridTableView;
  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
  var ADone: Boolean);
var
  stext : string;
begin
  stext := AViewInfo.DisplayValue;//AViewInfo.GridRecord.DisplayTexts[clmnWakeState.Index];

  if stext = '0' then
  begin
    ACanvas.Font.Color := clBlack;
  end;

end;

3、cxgrid表中的值显示成其它的值或字符串

procedure TFormMain.clmnWakeStateGetDisplayText(
  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
  var AText: string);
begin
  if AText = '1' then
  begin
    AText := '请求成功';
    exit;
  end;

end;