[Electronic_Arts]

Ребята всем привет
уже который день мучаюсь не могу понять как заставить этот компонент поменять цвет строки в зависимости от значения в ячейке

у компонента нету события DrawColumnCell но есть DrawCell
весь интернет обошел но не нашел метод как можно поменять цвет строки

для события DrawColumnCell код выглядел так

Код:

1 2 3

if (Sender as TDBGrid).DataSource.DataSet.FieldByName('fZero').AsInteger=1 then   Canvas.Brush.Color:=clRed; DefaultDrawColumnCell(Rect, DataCol, Column, State);

но как у компонента TDBAdvGrid справится с такой проблемой??

[Alegun]

Сообщение от Electronic_Arts

...у компонента нету события DrawColumnCell но есть DrawCell...

Что, реально как у обычной стрингсетки события что-ли? Проприетарной поделки этой не видел, поэтому точно не знаю, извнт, но раз такое дело, может прокатит вариант как для StringGrid, вот пример из drkb:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TfrmMain.StringGrid1DrawCell(Sender: TObject; ACol, ARow: integer;  Rect: TRect; State: TGridDrawState); Const   //здесь определяем цвета. clPaleGreen = TColor($CCFFCC); clPaleRed =   TColor($CCCCFF); begin //Если ячейка получает фокус, то закрасить её другими цветами if (gdFocused in State) then begin   StringGrid1.Canvas.Brush.Color := clBlack;   StringGrid1.Canvas.Font.Color := clWhite; end else //Если же ячейка теряет фокус, то закрашиваем её красным и зелёным   if StringGrid1.Cells[ACol, ARow] = '2' then StringGrid1.Canvas.Brush.color := clPalered else StringGrid1.canvas.brush.Color := clwhite;   //Теперь закрасим ячейки, но только, если ячейка не Title- Row/Column //Естевственно это завит от того, есть у Вас title-Row/Columns или нет. If (ACol > 0) and (ARow>0) then begin      //Закрашиваем бэкграунд    StringGrid1.canvas.fillRect(Rect);     //Закрашиваем текст (Text). Также здесь можно добавить выравнивание и т.д..    StringGrid1.canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]); end; end;

З.Ы. Тут на одном форуме подсказали что у DBAdvGrid за это отвечает событие OnGetCellColor и в нём должно быть такое

Код:

1 2 3 4 5 6

... with (Sender as TDBAdvGrid) do if Cells[ACol,ARow] = '1' then ABrush.Color:= clYellow else ABrush.Color:= clGreen; ...

жаль что проверить не могу

[Electronic_Arts]

Спасибо заработал

Код:

1 2 3 4 5 6

with (Sender as TDBAdvGrid) do if Cells[12,ARow] = '0' then If (ARow>0) then ABrush.Color:= clYellow else ABrush.Color:= clwhite;