Delphi Tips&Tricks News   Tips   .NET Software   VCL Software   Search   Contacts
Ultimate Pack Special Offer!


Share this page

Follow us
LinkedIn Blogspot Twitter Facebook

Related products
Ultimate Pack  hot!
iGrid Plotter  new!
Image Editor
Runtime Fusion
Form Designer
Object Inspector
Print Suite Pro
Commented Image
Delphi Toys
WinDowse
Delphi Bonus
TMS Scripter Studio
Form Designer VB
Form Designer .NET
Print Suite .NET
Gradient Controls .NET  new!

Related links
Win32.hlp online version
MegaDetailed.NET
Delphi to C#

Special
Free Software Promotion
Offers for Resellers

Hobby projects
cdtrrracks.com
books.storrre.com
in3steps.com
sovietphillumeny.com

Create DBGrid with colored cells - Databases - Tips & Tricks - Greatis Delphi Pages

Use OnDrawColumnCell event of DBGrid component with the following code.
This example will paint each cell to green color, if these cells are odd.


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  HoldColor: TColor;
begin
  HoldColor:=DBGrid1.Canvas.Brush.Color; 
  if Column.FieldName='EmpNo' then 
    if (Column.Field.AsInteger mod 2 <> 0) then 
    begin
      DBGrid1.Canvas.Brush.Color:=clGreen;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid1.Canvas.Brush.Color:=HoldColor;
    end;
end;
Related chapters
Components

Related topics
Create DBGrid that shows images
Set colors for DBCtrlGrid's lines
Put bitmap to StringGrid

For more
Delphi Help

Download source