Скачать: CL | DM;

Как раскрасить Dbgrid в несколько цветов?   Найти похожие ветки 

← →
Sanya.   (2003-11-24 14:34) [0]

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

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;

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

---

← →
DenK_vrtz ©   (2003-11-24 14:39) [1]

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

---

← →
Sanya.   (2003-11-24 14:42) [2]

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

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

---

← →
Maxud ©   (2003-11-24 14:44) [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) [4]

if expression then statement

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

---

← →
Stas ©   (2003-11-24 14:45) [5]

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;

---

← →
Sanya.   (2003-11-24 14:53) [6]

Maxud © (24.11.03 14:44) [3]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c