4

特にフィールド名「hello」が存在するすべての行を緑色にしたいと思います。私はこれを試しましたcustomdrawcell：

if abstable1.fieldbyname('somename').asstring = 'Hello' then
  cxgrid.canvas.brush.color:=clGreen

しかし、それは機能しません...私はここで何が欠けていますか？

4

5 に答える 5

9

個々の列またはグリッドオブジェクトのいずれかにOnGetContentStyleイベントを使用します。スタイルは、キャンバスをいじるよりもはるかに簡単に操作できます。

于 2011-05-22T02:41:19.957 に答える
6

テーブル内の現在の位置のデータではなく、各ビュー行の内部データを確認する必要があります。また、OnCustomDrawCell（）イベントで提供されるキャンバスを利用します。

procedure TForm1.YourViewCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if(AViewInfo.GridRecord.Values[YourColumn.Index] = 'Hello') then
    ACanvas.Brush.Color := clGreen;
end;
于 2011-05-24T12:14:22.250 に答える
5

グリッドでキャンバスの色を変更しようとしないでください。むしろ、この例のように、ビューのOnDrawCellハンドラーで色を変更します（これは常に正しいと思います）。

procedure T_fmTabSnapList.View1CustomDrawCell(Sender: TcxCustomGridTableView;
  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if abstable1.fieldbyname('somename').asstring = 'Hello' then 
    ACanvas.Brush.Color := clGreen
end;

cxGridは、ビューの単なるコンテナです。ビューは、すべてのペイントが行われる場所です。s

于 2011-05-21T13:09:43.287 に答える
1 
procedure Tfm1.Grid1StylesGetContentStyle(Sender: TcxCustomGridTableView;
  ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
  out AStyle: TcxStyle);
Var
 Style1: TcxStyle;
begin
 if AItem = nil then exit;

 if ARecord.Values[Grid1Med.Index] = true then
   AStyle := cxStyleMed;

 if ARecord.Values[Grid1CP.Index] = true then
   AStyle := cxStyleHost;

 if (ARecord.Values[Grid1Med.Index] = true) and
    (ARecord.Values[Grid1CP.Index] = true) then
   AStyle := cxStyleHostAndCP;

  if not VarIsNull(ARecord.Values[colColor.Index]) then
  begin
    if not Assigned(AStyle) then
      AStyle := TcxStyle.Create(Sender);
    AStyle.Color := ARecord.Values[colColor.Index];
  end;
end;
于 2013-05-29T09:47:56.093 に答える
0

これが私のプログラムからのいくつかの動作するコードで、これは似たようなことをします。

procedure TDoDockets.grDocketsDrawColumnCell(Sender: TObject;
            const Rect: TRect; DataCol: Integer; Column: TColumn;
            State: TGridDrawState);
begin
 with grDockets do
  begin
   if (qDocketsOpenCost.asinteger > 1) and (datacol = 5)
    then canvas.font.color:= clRed;

   if datacol = 9 then // status
    if qDocketsColour.Value <> 0
     then Canvas.font.color:= tcolor (qDocketsColour.Value);

   if datacol = 10 then // attention
    if qDocketsAttention.asinteger = 1
     then canvas.brush.color:= clRed;

   if qDocketsUrgent.asinteger = 1 then canvas.brush.color:= 10092543;
   // light yellow
   DefaultDrawColumnCell (Rect, DataCol, Column, State);
  end
end;

grDocketsはグリッドであり、qDocketsはグリッド内に表示されているクエリです。表示されている値によっては、特定の列が異なる色で描画される場合があり、ある場合（qDocketsUrgent = 1）では、線全体の背景色が変更されます。

于 2011-05-21T03:44:28.777 に答える