Форум: "Базы";
Текущий архив: 2003.12.16;
Скачать: [xml.tar.bz2];
ВнизКак раскрасить 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 вся ветка
Форум: "Базы";
Текущий архив: 2003.12.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c