troubleshooting Question

TMS DBGrid

Avatar of DigitalNam
DigitalNamFlag for Namibia asked on
Delphi
4 Comments1 Solution2394 ViewsLast Modified:
Is there a way to accomplish this in the TMS DBGrid?


procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DM.iv_query.FieldByName('Doc_Type').AsString = 'Fax' then
  begin
     DBGrid1.Canvas.Brush.Color:=clWebLightPink;

     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Open in new window

ASKER CERTIFIED SOLUTION
Thommy

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 4 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros