Alterar cor do selecionado da c�lula

Question

como fa�o para que ao selecionar uma c�lula, o destaque de sele��o seja a cor que eu especificar?Aqui no meu pc a c�lula selecionada fica sempre em azul, quero mudar pra outra cor....

Wbb · Answer

Em primeiro lugar, voc� est� se referindo a c�lula de que componente?wbb...

Raserafim · Answer

foi mal,do DBGrid...

Massuda · Answer

N�o testei isso... no evento OnDrawColumnCell do seu dbgrid, fa�a algo assim:

procedure TSeuForm.SeuGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
var
  Grid: TDBGrid;
begin
  Grid := Sender as TDBGrid;
  if gdSelected in State then begin
    Grid.Canvas.Brush.Color := ...a cor desejada...;
  end;
  Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Wbb · Answer

Tamb�m n�o testei o c�digo do Massuda, mas o que eu uso � praticamente igual ao dele e funciona.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with (Sender as TDBGrid) do begin
    if gdSelected in State then begin
      Canvas.Brush.Color := clRed;
      Canvas.Font.Color := clWhite;
    end;

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

T+
wbb

F�rum Alterar cor do selecionado da c�lula #268732