Помогите, пожалуйста, узнать цвет фона ячейки в TStringGrid.

← →
Andrey007 (2003-09-02 16:30) [0]

Я по событию OnDrawCell раскрашиваю ячейки TStringGrid. В TStringGrid лежат данные на разные дни - в одной строке данные на один день. При этом на один день может быть несколько строк.
Так вот, мне надо чтобы строки на один день были закрашены одинаковым цветом, а на следующий день другим, и так далее. То есть, надо чтобы чередовались цвета строк в TStringGrid. Для этого мне надо узнать каким цветом раскрашена строчка сверху (TStringGrid.Canvas.Brush.Color). Как это сделать?

← →
MBo © (2003-09-02 16:33) [1]

ты же раскрашиваешь их по какому-то условию, вот и проще всего будет его же и проверить

← →
Skier © (2003-09-02 16:35) [2]

[1] или запоминай в св-ве Objects[...]

если у тебя даты в нулевом столбце, то
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if Int(StrToDate(StringGrid1.Cells[0,ARow])) div 2 = 0 then
// закрашивай красным
else
// закрашивай белым
end;

Помогите, пожалуйста, узнать цвет фона ячейки в TStringGrid. Найти похожие ветки