правка данных в DBGrid

[Марк Охман]

Привет) очень нужна помощь. у меня через adoconnection с dbgrid связана база. в одной из таблиц (которая собственно и отображается на dbgrid) число столбцов не фиксировано, т.е. они могут добавляться в зависимости от соответствующей команды. первые пять столбцов стабильны, т.е они существуют всегда. а вот в шестом к примеры (6 и другие до конца). в ячейке находится цифра и две буквы(10 ТД). Так таблица выглядит в оригинале. Но мне нужно чтобы во всех столбцах начиная с 6-го текст в ячейке окрашивался в цвет, соответствующий двум буквам после цифры (напр. если ТД - зеленый, РК - красный, ЗО - желтый и т.д.) Я не могу понять как их перебирать. Подскажите плиз! Заранее спасибо.

[mihali4]

Поиск по форуму для кого сделан ?
http://www.programmersforum.ru/showthread.php?t=61862

[Марк Охман]

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

[mihali4]

Будем использовать событие "ondrawcolumncell". Следующий пример раскрашивает ячейки колонки "status" когда значение не равно "a".

procedure tform1.dbgrid1drawcolumncell(sender: tobject; const rect: trect; 
datacol: integer; column: tcolumn; 
state: tgriddrawstate); 
const 
clpalegreen = tcolor($ccffcc); 
clpalered = tcolor($ccccff); 
begin 

if column.fieldname = 'status' then //Удалите эту линию, если хотете закрасить целую линию 

if column.field.dataset.fieldbyname('status').asstring <> 'a' 
then 
if (gdfocused in state) //имеет ли ячейка фокус? 
then dbgrid1.canvas.brush.color := clblack //имеет фокус
else dbgrid1.canvas.brush.color := clpalegreen; //не имеет фокуса

//Теперь давайте закрасим ячейку используя стандартный метод: 
dbgrid1.defaultdrawcolumncell(rect,datacol,column,state) 
end;

Вот и всё.

[Марк Охман]

почему то только первую ячейку записи окрашивает, а остальные нет. ???

[mihali4]

Увы, кроме покупки аппарата "VipryamitelRuk" я уже ничего посоветовать не могу.
Код абсолютно рабочий...

[Марк Охман]

обязательно поищу такой)))

вот мой код:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
AdoQuery1.First;
for i:=5 to AdoQuery1.FieldCount do
   for j:=1 to AdoQuery1.RecordCount do
    begin
      if column.fieldname = DBGrid1.Columns.Items[i].DisplayName then
       begin
       s:=AdoQuery1.Fields.FieldByNumber(i).AsString;
        if (s[1]='Р') then
         if (gdfocused in state) 
            then dbgrid1.canvas.brush.color := clblack 
            else dbgrid1.canvas.brush.color := clgreen;
        dbgrid1.defaultdrawcolumncell(rect,datacol,column,state);
        end;
    AdoQuery1.Next;
    end;

выдает ошибку,что
EListError with message 'List index out of bounds (6)'
в чем может быть дело??
в той таблице, кстати 6 солбцов.

[_SERGEYX_]

Что-то несуразное ты написал... Причем здесь циклы?
Михалыч же написал правильный код.

[Марк Охман]

просто у меня он проверяет все ячейки таблицы. названия столбцов неизвестны, т.е. нужно перебрать значения всех ячеек во всех столбцах и окрасить их (ячейки) в соответствующий цвет.
простите если я не догоняю)))

[_SERGEYX_]

Давай по порядку... У тебя кроме букв в ячейке еще и цифры.
После цифр перед буквами стоит пробел. За это и зацепимся...
Принцип такой...

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DataCol > 5 then  //начинаем окрашивать с 6-го столбца
  begin
    with DBGrid1.Canvas do
    begin
{Если в ячейке есть пробел и за ним большими буквами ТД, 
то окрашиваем в зеленый и т.д.}
    if Pos(' ТД',Column.Field.Text) > 0  then  Brush.Color := clGreen;
    if Pos(' РК',Column.Field.Text) > 0  then  Brush.Color := clRed;
    if Pos(' ЗО',Column.Field.Text) > 0  then  Brush.Color := clYellow;
    end;
    DBGrid1.Defaultdrawcolumncell(Rect,Datacol,Column,State)
  end;
end;