How to use multi-colored lines in a grid

Sometimes we need to differentiate the records in a table based on a certain condition of a field.

In this example we use the employee table (in dbDemos), and make a division 3 salary groups. Also we will put the cursor in the 3[sup]rd[/sup] column.


Needed: a form, a table or query, dbgrid etc.

1)Set the DefaultDrawing of the DBGrid to false

2)Use the OnDrawColumnCell event and type in:


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Table1.FieldByName('Salary').Value > 35000 then
DBGrid1.Canvas.Font.Color := clRed
else
if Table1.FieldByName('Salary').Value > 25000 then
DBGrid1.Canvas.Font.Color := clGreen;
[color blue]// Draw condition [/color]
DBGrid1.DefaultDrawDataCell(Rect,dbgrid1.Columns[datacol].Field, State);

Dbgrid1.SelectedIndex := 2;
[color blue]// Put cursor in the 3[sup]rd[/sup] column [/color]
end;


Best Regards