Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Вниз

Цветные строки в 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;



---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.038 c