Изменение цвета строки StringGrid

← →
Марат (2004-08-23 09:10) [0]

Здравствуйте, мастера. Нашел в Интернете свойство StringGridDrawCell:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With TStringGrid(Sender),TStringGrid(Sender).Canvas Do
Begin
FillRect(Rect);
Font.Color:=ClBlue; // цвет шрифта
TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
End;
end;
Но мне нужно чтобы это случилось при условии strtodatetime(StringGrid.Cells[1,i])<strtodatetime(StringGrid.Cells[3,i]), а как прописать такое условие в данном случае я не знаю. Помогите, пожалуйста.

← →
Думкин © (2004-08-23 09:17) [1]

if strtodatetime(StringGrid.Cells[1,ARow])<strtodatetime(StringGrid.Cells[3,ARow]) then begin end

← →
Марат (2004-08-23 09:22) [2]

А как исключить ARow=0. Это у меня заголовок.

Да...
if (ARow > 0) and (strtodatetime(StringGrid.Cells[1,ARow])<strtodatetime(StringGrid.Cells[3,ARow])) then begin end

Изменение цвета строки StringGrid Найти похожие ветки