[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; 


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

[NumLock]

Код:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);

  function ColorToBorderColor(AColor: TColor): TColor;
  type
    TColorQuad = record
      Red,
      Green,
      Blue,
      Alpha: Byte;
    end;
  begin
    if (TColorQuad(AColor).Red > $c0) or
       (TColorQuad(AColor).Green > $c0) or
       (TColorQuad(AColor).Blue > $c0) then
      Result := clBlack
    else
      Result := clWhite;
  end;

begin
  if not ClientDataSet1.FieldByName('Color').IsNull and not (gdSelected in State) then
  begin
    DBGrid1.Canvas.Brush.Color:=ClientDataSet1.FieldByName('Color').AsInteger;
    DBGrid1.Canvas.Font.Color:=ColorToBorderColor(DBGrid1.Canvas.Brush.Color);
  end;
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

http://data.cod.ru/124672

[Amilman]

NumLock с этим кодом все записи становятся чёрными(

[NumLock]

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

NumLock с этим кодом все записи становятся чёрными(

о_О ты скриншота не видишь? где ж они черные то? в архиве готовый exe - его трудно запустить? единственное, что для этого примера midas.dll нужен.

[M.A.D.M.A.N.]

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

NumLock с этим кодом все записи становятся чёрными(

Delphi XE feat Windows 7? В 7-й винде есть такая бида.

[NumLock]

Сообщение от M.A.D.M.A.N.

Delphi XE feat Windows 7? В 7-й винде есть такая бида.

ну вот не указал ТС свою версию Delphi... проверил exe в Windows XP и в Windows 7 все Okay.

[M.A.D.M.A.N.]

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

ну вот не указал ТС свою версию Delphi... проверил exe в Windows XP и в Windows 7 все Okay.

С темкой "Aero Glass"?

[Amilman]

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

ну вот не указал ТС свою версию Delphi... проверил exe в Windows XP и в Windows 7 все Okay.

Embarcadero RAD Studio XE
Windows 7 64 bit
Использую базы акцесса

[NumLock]

Сообщение от M.A.D.M.A.N.

С темкой "Aero Glass"?

да, естественно:

[Amilman]

С самой программой всё нормально...
Но вот если всё сделать под мою программу тогда все записи становятся чёрными.