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

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

Раскраска ячейки в DBGrid [D7, dBase, FoxPro]

Dark Elf ©   (2004-06-30 18:00:00) 

Уважаемые мастера!

Как мне раскрасить определённую ячейку в DBGrid?

Заранее благодарен за ответ

---

Ильш   (2004-07-01 07:42:00) [1]

флейм...
хотя конечно поиском воспользоваться было бы куда быстрее

---

Dark Elf   (2004-06-30 18:11:00) [2]

Ещё раз спасибо! :)

---

menart   (2004-06-30 18:06:00) [3]

procedure TFMain.DBGDrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if TMainfVolFackt.Value=TMainfVolPlan.Value then
begin
 dbg.Canvas.Brush.Color:=clgreen;
 dbg.Canvas.FillRect(Rect);
 dbg.Canvas.TextOut(Rect.Left,Rect.Top,Column.Field.Text)
end;
if TMainfVolFackt.Value>TMainfVolPlan.Value then
begin
 dbg.Canvas.Brush.Color:=clyellow;
 dbg.Canvas.FillRect(Rect);
 dbg.Canvas.Font.Color:=clblue;
 dbg.Canvas.TextOut(Rect.Left,Rect.Top,Column.Field.Text)
end;
if TMainfVolFackt.Value<TMainfVolPlan.Value then
begin
 dbg.Canvas.Brush.Color:=clred;
 dbg.Canvas.FillRect(Rect);
//  dbg.Canvas.Font.Color:=clblue;
 dbg.Canvas.TextOut(Rect.Left,Rect.Top,Column.Field.Text)
end;
end;

---

Dark Elf   (2004-06-30 18:05:00) [4]

Спасибо!
Вы мне очень помогли!

---

menart   (2004-06-30 18:04:00) [5]

dbgrid1.Canvas.Brush.Color:=clyellow;

---

Соловьев   (2004-06-30 18:04:00) [6]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168

---

Наверх