Selected row colour

[pcurtis]

How do I change the selected row colour?

[wp]

Selected Row of a TDBGrid?

Use the OnPrepareCanvas event and try this code:

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
2.   Column: TColumn; AState: TGridDrawState);
3. begin
4.   if ([gdSelected, gdFocused] * AState <> []) then begin
5.     if (DBGrid1.SelectedColumn = Column) then begin
6.       DBGrid1.Canvas.Brush.Color := clRed;
7.       DBGrid1.Canvas.Font.Color := clWhite;
8.     end else
9.     begin
10.       DBGrid1.Canvas.Brush.Color := RgbToColor(255, 128, 128);
11.       DBGrid1.Canvas.Font.Color := clBlack;
12.     end;
13.   end;
14. end;

This is for row-select mode, but you certainly can adapt it to normal single-cell mode easily.

[pcurtis]

Cheers!

[Focus77]

Hello !

But did you notice that if  dgRowselect=True

The left and the right buttons don't work ?