http://edn.embarcadero.com/article/26945 2009-11-08T02:00:14-08:00 Craven Weasel http://threads.embarcadero.com/threads/threads.exe/userall?commentid=30357 http://threads.embarcadero.com/threads/threads.exe/view?commentid=30357 2001-10-23T08:16:51-07:00 2001-10-23T08:16:51-07:00

Colors in DBGrid

Testing in Delphi 6.I had to prefix the Default ..... function to get it function.i.e.DBGrid1.DefaultDrawColumnCell (.........)RegardsKA Klaus Edelmann http://threads.embarcadero.com/threads/threads.exe/userall?commentid=30334 http://threads.embarcadero.com/threads/threads.exe/view?commentid=30334 2001-10-22T03:43:15-07:00 2001-10-22T03:43:15-07:00

re: Colors in DBGrid

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 0 then TDBGrid(Sender).Canvas.Brush.Color := clWindow else TDBGrid(Sender).Canvas.Brush.Color := clInfoBk; end; DefaultDrawColumnCell(Rect, DataCol, Column, State); end;end; Craven Weasel http://threads.embarcadero.com/threads/threads.exe/userall?commentid=30333 http://threads.embarcadero.com/threads/threads.exe/view?commentid=30333 2001-10-21T23:01:42-07:00 2001-10-21T23:01:42-07:00

Colors in DBGrid

tried this code:(table is TApolloTable in Delhi6) procedure TfPlan.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin with (Sender as TDBGrid).Canvas do begin if (tPlanradSTAT.AsInteger = 1) or (tPlanradSTAT.AsInteger = 2) or (tPlanradSTAT.AsInteger = 8) then begin Brush.Color := clRed; Font.Color := clBlack; end else begin Brush.Color := clWhite; Font.Color := clRed; end; end;end;when DefaultDrawing set to False I can see the rows butwithout contents.What have I been missing?Kurt.Anneborg@swipnet.se Didier Largange http://threads.embarcadero.com/threads/threads.exe/userall?commentid=30188 http://threads.embarcadero.com/threads/threads.exe/view?commentid=30188 2001-10-11T04:52:06-07:00 2001-10-11T04:52:06-07:00

Colors in DBGrid

Ok, but how can it have alternated row colors ? Juergen Schwarze http://threads.embarcadero.com/threads/threads.exe/userall?commentid=30018 http://threads.embarcadero.com/threads/threads.exe/view?commentid=30018 2001-09-26T16:51:37-07:00 2001-09-26T16:51:37-07:00

Colors in DBGrid

You should change the call of DefaultDrawDataCell to DefaultDrawColumnCell.