Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Раскраска ячейки в DBGrid   Найти похожие ветки 

← →
Dark Elf   (2004-06-30 18:00) [0]

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

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

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

---

← →
menart ©   (2004-06-30 18:04) [1]

dbgrid1.Canvas.Brush.Color:=clyellow;

---

← →
Соловьев ©   (2004-06-30 18:04) [2]

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

---

← →
Dark Elf   (2004-06-30 18:05) [3]

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

---

← →
menart ©   (2004-06-30 18:06) [4]

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:11) [5]

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

---

← →
Ильш ©   (2004-07-01 07:42) [6]

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

---

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

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.031 c