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

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

Как раскрасить Dbgrid в несколько цветов? [D7, Paradox]

Sanya. ©   (2003-11-24 14:34:00) 

у меня есть код:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (table1.FieldByName("Vid").Value="???? ?????") then begin
with dbgrid1.Canvas do begin
{brush.color:=clred; }
font.Color:=clred;
FillRect(rect);
Textout(rect.Left+2,rect.Top+2, column.Field.Text);
end;
end;
end;

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

---

Sanya.   (2003-11-24 14:53:00) [1]

Maxud © (24.11.03 14:44) [3]

Спасибо получилось...

---

Stas   (2003-11-24 14:45:00) [2]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (table1.FieldByName("Vid").Value="???? ?????") then begin
with dbgrid1.Canvas do begin
{brush.color:=clred; }
font.Color:=clred;

end;
end
else
begin
with dbgrid1.Canvas do begin
{brush.color:=clred; }
font.Color:=clYellow;

end
end;

TDBGrideh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

---

Maxud   (2003-11-24 14:44:00) [3]


procedure TfmFaultsInfo.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if not dmData.tabFaults.FieldByName("Fault_Date").IsNull then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;


---

Polevi   (2003-11-24 14:44:00) [4]

if expression then statement

where expression returns a Boolean value. If expression is True, then statement is executed; otherwise it is not

---

Sanya.   (2003-11-24 14:42:00) [5]

>DenK_vrtz © (24.11.03 14:39) [1]

Код взят оттуда, но дело в том что он может изменить цвет только по одному условию, а мне надо по нескольким условиям и чтобы в разные цвета....

---

DenK_vrtz   (2003-11-24 14:39:00) [6]

бумага+фломастер+www.delphikingdom.com/helloworld/dbgridcolor.htm

---

Наверх