| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

StringGrid [D5, D6, Win95/98, WinXP]

irmantukas ©   (2002-10-03 04:29:00) 

Ребята помогите! Как менят цвет в cell StringGrid"а?

---

Dimich1978   (2002-10-03 09:51:00) [1]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var op,i:integer;
begin
if cona=0 then
for i:=0 to stringgrid1.rowcount-1 do
if (ACol=0)and( stringgrid1.Cells[1,i]<>"") then begin
StringGrid1.Canvas.Brush.Color:=clred;
StringGrid1.Canvas.FillRect(Rect);
end;
if cona=1 then begin
for i:=0 to stringgrid1.rowcount do begin
if mas[i]=1 then
if (acol=0)and(arow=i)and( stringgrid1.Cells[1,i]<>"") then begin
StringGrid1.Canvas.Brush.Color:=clgreen;
StringGrid1.Canvas.FillRect(Rect);
end;
if mas[i]=0 then
if (acol=0)and(arow=i)and(stringgrid1.Cells[1,i]<>"") then begin
StringGrid1.Canvas.Brush.Color:=clred;
StringGrid1.Canvas.FillRect(Rect);
end;
end;
end;
end;

---

MBo   (2002-10-03 06:18:00) [2]

в OnDrawCell

---

Наверх