[Amilman]

Всем доброго времени суток.
Мне нужно покрасить ячейки в StringGriad под разные значения которые были заведомо занесены в БД я использую код такого вида:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TCalendar_cadr.AdvStringGrid1DrawCell(Sender: TObject; ACol,   ARow: Integer; Rect: TRect; State: TGridDrawState);   var   txtWidth: Integer;     begin     if AdvStringGrid1.Cells[ACol,ARow] = DataModule1.ADOQuery12.FieldByName('Обозначение').AsString     then  begin     AdvStringGrid1.Canvas.Brush.Color := DataModule1.ADOQuery12.FieldByName('Цвет').AsInteger; AdvStringGrid1.Canvas.FillRect (Rect); AdvStringGrid1.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, AdvStringGrid1.Cells[ACol,ARow]);   with (Sender as TStringGrid) do   begin     txtWidth := Canvas.TextWidth(Cells[ACol, ARow]);     if ColWidths[ACol] < txtWidth then ColWidths[ACol] := txtWidth + 3;   end;     end;     end;

Но этот код позволяет окрашивать только какое то одно значение, в тот момент когда мне нужно несколько разных.

И ещё вопрос.
Как в StringGrid сохранять значения ячеек чтобы открыл программу а там он уже был бы заполнен.

Заранее благодарен.

[icsander]

Когда-то пробовал решить такую проблему. В голову пришло только это - хранить все строки , которые нужно перекрасить, в отдельном списке (в моем случае подошел TStringList) и динамически его обновлять при добавлении, удалении или редактировании вашего грида. А в процедуре отрисовки проверять рисуемую ячейку и список, и в зависимости от этого рисовать нужным цветом.
Возможно не оптимально, но работало.
Как вариант, к каждой ячейке привязять объект, в котором будет св-во "TColor" и плясать от него.

[Amilman]

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

Когда-то пробовал решить такую проблему. В голову пришло только это - хранить все строки , которые нужно перекрасить, в отдельном списке (в моем случае подошел TStringList) и динамически его обновлять при добавлении, удалении или редактировании вашего грида. А в процедуре отрисовки проверять рисуемую ячейку и список, и в зависимости от этого рисовать нужным цветом.
Возможно не оптимально, но работало.
Как вариант, к каждой ячейке привязять объект, в котором будет св-во "TColor" и плясать от него.

А можно примером кода. Я находил пример где привязывается объект, но не получилось разобраться в нём(

[Kailon]

А почему ты используешь при работе StringGrid, а не DBGrid, который сразу отображает тебе твою БД.

[Amilman]

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

А почему ты используешь при работе StringGrid, а не DBGrid, который сразу отображает тебе твою БД.

Я делаю календарь кадровика. И верхний ряд это дни в месяце.

[enslaver]

вот самый простой на мой взгляд способ, без лишней мороки

Код:

1 2 3

ADOQuery.Filtered:=true; ADOQuery.Filter:='ID_MACRO=''' +Cells[ACol,ARow]+ '''';//Фильтруем по нашему значению if (ADOQuery.FieldByName('COLOR').AsString<>'') then Canvas.Brush.Color:=stringtocolor(ADOQuery.FieldByName('COLOR').AsString); //Устанавливаем цвет если он существует

Из этого же элемента у меня программе динамически формируется и панель палитры.