unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Graphics,
   Forms, Dialogs,   
  cxGraphics,  cxCustomData, cxFilter, cxEdit, cxStyles,
  cxControls, cxData, cxDataStorage, cxDBData, cxGridLevel, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGrid, cxLookAndFeels, cxLookAndFeelPainters, DB, DBClient, StdCtrls,
  Classes, Controls;

type
  TForm2 = class(TForm)
    ds1: TClientDataSet;
    ds2: TDataSource;
    fldds1field1: TIntegerField;
    fldds1field2: TIntegerField;
    fldds1field3: TIntegerField;
    xgrdGrid1DBTableView1: TcxGridDBTableView;
    xgrdGrid1Level1: TcxGridLevel;
    xgrd1: TcxGrid;
    xgrd2: TcxGrid;
    xgrdGrid2DBTableView2: TcxGridDBTableView;
    xgrd3: TcxGridLevel;
    xgrcGrid1DBTableView1field1: TcxGridDBColumn;
    xgrcGrid1DBTableView1field2: TcxGridDBColumn;
    xgrcGrid1DBTableView1field3: TcxGridDBColumn;
    xgrcxgrd2field1: TcxGridDBColumn;
    xgrcxgrd2field2: TcxGridDBColumn;
    xgrcxgrd2field3: TcxGridDBColumn;
    chk1: TCheckBox;
    chk2: TCheckBox;
    cds2: TClientDataSet;
    cds2field1: TIntegerField;
    cds2field2: TIntegerField;
    cds2field3: TIntegerField;
    procedure FormCreate(Sender: TObject);
    procedure xgrdGrid1DBTableView1CustomDrawCell(
      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure chk2Click(Sender: TObject);
    procedure chk1Click(Sender: TObject);
    procedure xgrdGrid2DBTableView2CustomDrawCell(
      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
  private
    procedure ToggleGrid(const ck: TObject; const view: TcxGridDBTableView);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses cxGridDBDataDefinitions;

{$R *.dfm}

procedure TForm2.ToggleGrid(const ck: TObject; const view: TcxGridDBTableView);
var ds: TDatasource;
begin
    ds := nil;
    if (ck as TCheckBox).Checked then ds := ds2;

    view.DataController.DataSource := ds;
end;

procedure TForm2.chk1Click(Sender: TObject);
begin
   ToggleGrid(Sender, xgrdGrid1DBTableView1);
end;

procedure TForm2.chk2Click(Sender: TObject);
begin
   ToggleGrid(Sender, xgrdGrid2DBTableView2);
end;

procedure TForm2.FormCreate(Sender: TObject);
var i: integer;
begin
  ds1.CreateDataSet;

  for i:= 0 to 100 do
      ds1.AppendRecord([i,Random(100)-50,Random(100)-50]);

  cds2.CloneCursor(ds1,false);
  cds2.IndexFieldNames:='field1';

  with TForm.Create(Self) do begin
       FormStyle := fsStayOnTop;
       BorderStyle := bsSingle;
       BorderIcons := [];
       Caption := 'drag me over grids';
       Visible := true;
  end;
end;

procedure TForm2.xgrdGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var v: integer; //b: TBookmarkStr;
begin
{  ds1.DisableControls;
  try
    b := ds1.Bookmark;
    ds1.FindKey([AViewInfo.GridRecord.Values[0]]);
    v := (aviewinfo.item.DataBinding as TcxGridItemDBDataBinding).Field.AsInteger;
    ds1.Bookmark := b;
  finally
    ds1.EnableControls;
  end;}
  Assert(cds2.FindKey([AViewInfo.GridRecord.Values[0]]));
  v:=cds2.Fields[aviewinfo.Item.Index].AsInteger;

  with ACanvas.font do
    if v > 0 then Color := clGreen else
    if v < 0 then Color := clRed else
                  Color := clBlack;

end;

procedure TForm2.xgrdGrid2DBTableView2CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var v: integer;
begin
  v := AViewInfo.GridRecord.Values[AViewInfo.item.Index];

  with ACanvas.font do
    if v > 0 then Color := clGreen else
    if v < 0 then Color := clRed else
                  Color := clBlack;
end;

end.