Цветные строки в ExpressQuantumGrid

← →
Hadroran (2005-01-07 13:30) [0]

Уважаемые знатоки. Мне необходимо раскрасить строки. Со старыми гридами я делал так:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if DM.Table1Kol.Value=0 then TovarGrid.Canvas.Brush.Color:=clRed; DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State); end;
а вот в ExpressQuantumGrid DefaultDrawColumnCell не проходит.
Приходится делать просто так
procedure TForm1.cxTable1CustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin if DM.Table1Kol.Value=0 then ACanvas.Brush.Color:=clRed; end;
Это окрашивает конечно, но только после "прохождения" по строке.
Помогите советом.

← →
Tornado © (2005-01-08 22:22) [1]

AYellowStyle: TcxStyle; //... procedure TForm1.FormCreate(Sender: TObject); begin AYellowStyle := TcxStyle.Create(Self); AYellowStyle.Color := $0080FFFF; AYellowStyle.TextColor := clMaroon; end; procedure TForm1.tvCountriesStylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); begin if ARecord.Values[tvCountriesPopulation.Index] > 10000000 then // условие при котором строки будут окрашены в желтый цвет, изменить AStyle := AYellowStyle; end;

Цветные строки в ExpressQuantumGrid Найти похожие ветки