[Amilman]

Доброго времени суток)

У меня есть Таблица в Акцесе там есть три столбца Код, Название, Цвет
Заполняется через форму в Delphi потом мне надо чтобы из столбца Цвет брался цвет и строка с этим цветом в гриде окрашивалась в этот цвет. Как это реализовать?

[Страдалецъ]

Обрабатывайте событие OnDrawDataCell. Примеров в гугле и на форуме полно.

[Amilman]

Сообщение от Страдалецъ

Обрабатывайте событие OnDrawDataCell. Примеров в гугле и на форуме полно.

Почитал. В основном описывается что смена цвета происходит при каком-то действии. А мне надо просто чтоб он из столбца цвет брал...

[Pyro]

в событии ondrawcell каждая клетка рисуется вручную при помощи canvas
Примеров в гугле и на форуме полно.

[Amilman]

А можно переделать какнить этот код?

begin
if (DataModule1.ADOTable2.FieldByName('Цвет').Value=1 2582847) then //что бы брал цвет из ADOTable2.FieldByName('Цвет')
begin
with DBGrid1.Canvas do begin
Brush.Color:=clGreen; //<--- И вставлял сюда
Font.Color:=clWhite;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
end;
end;
end;

[Pyro]

PHP код:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if not Field.Name = 'Цвет' then Exit
  Brush.Color := Field.AsInteger
  ...
end; 


наверно как-то так