Start Free Trial

asked on 5/17/2011

TMS DBGrid

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

Last Comment

5/17/2011

5/17/2011

If you are referring to TntDBGrid that in the TMS package then yes that's very possible:

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

Open in new window

5/17/2011

ASKER

JimyX: I am using the DBAdvGrid from TMS but the problem is it doesn't have the DrawColumnCell event and no DefaultDrawColumnCell property.

ASKER CERTIFIED SOLUTION

5/17/2011

Blurred text

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

5/17/2011

ASKER

Thank you Thommy. Changed it to:
if DBAdvGrid1.Cells[6,ARow] = 'Fax' then ABrush.Color := clWebLightPink;

Now it works.

Delphi

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.

60K

Questions

--

Followers

--

Top Experts

Get a personalized solution from industry experts

Ask the experts

"Invaluable tool for our organization"
Josh Regalski
"This is the best money I have ever spent."
@rwheeler23
"Your help has saved me hundreds of hours of internet surfing."
@fblack61
"Just a dang good service!"
@golferski
"Worth every penny."
Steve Hougom
"It’s been a life saver."
Maria Halt
"Best support site I’ve seen!"
Bob Schneider
"I would be lost without them."
@fblack61
"Saved my job multiple times."
Walt Forbes
"I love this site."
Maria Duwe
"Friendly respectful help."
Andrew Kowtalo
"Such top-notch experts."
@magento
"The best money I have ever spent."
@rwheeler23
"Beyond any comprehensible value"
George Morris
"Invaluable tool for our organization"
Josh Regalski
"This is the best money I have ever spent."
@rwheeler23

Read over 600 more reviews

TRUSTED BY