Цветные строки в ExpressQuantumGrid [D6, WinXP]
Hadroran © (2005-01-07 13:30:00)
Уважаемые знатоки. Мне необходимо раскрасить строки. Со
старыми гридами я делал так:
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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
