Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Вниз

Изменение цвета строки 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. Это у меня заголовок.

---

← →
Рамиль ©   (2004-08-23 09:24) [3]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.045 c