Раскраска ячейки в 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]

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

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

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