DBGrid

← →
HanIP (2003-04-15 09:58) [0]

Есть поле в таблице Flag:boolean как сделать так что если оно false то строка грида должна окраситься в красный или любой другой цвет.

← →
evvcom © (2003-04-15 10:09) [1]

OnDrawColumnCell

← →
HanIP (2003-04-15 10:21) [2]

пишу так
DBGrid1.Canvas.brush.Color:=clRed;
if Main.FieldbyName("Flag").AsBoolean then
DBGrid1.Canvas.FillRect(Rect);
и текста не видно

← →
MBo © (2003-04-15 10:25) [3]

или сам выводи TrxtOut или DefaltDrawing вызывай
пример в хелпе на TCustomDBGrid.OnDrawDataCell

А Canvas.TextOut кто делать будет?

Вот кусок, который красит выбранную строку грида в синий (стандартный), если сам грид в фокусе, и серый, если нет. Фон грида "баксовый" независимо от того, в фокусе грид или нет.
Тебе же надо перед определением цвета проверять содержимое соотв.поля - флажка.

Св-во Option включает dgAlwaysShowSelection, dgRowSelect

procedure TForm1.grSuperDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); { !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! Выражаю огромную благодарность Леночке Филипповой за ее превосходную ! ! статью в "Королевстве Дельфи" "ПОЛОСТАЫЙ ГРИД" от 12 апреля 2000 г. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! } var BkgColor: TColor; begin if not (gdSelected in State) then BkgColor := clMoneyGreen // Для не текущей строки else if TDBGrid(Sender).Focused then BkgColor := clDefault // Черный для текущей строки else BkgColor := clMedGray; // Серый для текущей строки TDBGrid(Sender).Canvas.Brush.Color:=BkgColor; TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State); end;

DBGrid Найти похожие ветки