Cor do foco para o DBGrid

Question

pessoalgostaria de utilizar o Gray como cor d foco nos dbgrid do meu sistema, j� que se o cara utiliza o Xp e muda de skins as vezes � azul, outras � cinza ou verde, isso prejudica o visual no dbgrid ...

Marcio.theis · Answer

De uma olhadinha neste post:[url]//forum.clubedelphi.net/viewtopic.php?t=70619[/url]...

Diogoalles · Answer

o problema � que essa fun��o abaixo s� seleciona a coluna em q est� o foco e muda cor para ela... preciso mudar a cor para a linha toda indepente da coluna em q o usuario esteja navegando, e preciso ter a navegabilidade entre as colunas, coisa que a propriedade RowSelect n�o oferece:

if (gdSelected in State) or (gdFocused in State) tehn // est� focada ou selecionada
then TDBGrid(Sender).Canvas.Brush.Color := $0082FFFF
else TDBGrid(Sender).Canvas.Brush.Color := $00FFF8F0;

TDBGrid(Sender).DefaultDrawColumnCell(Rect, Datacol, Column, State);

Edilcimar · Answer

v� na propriedade do dbgrid, em op��es e coloque dgrowselect = true, v� em color e coloque clgray...

Diogoalles · Answer

conforme havia colocado n�o posso utlizar o RowSelect porque ele seleciona a linha toda mas impede a navega��o entre as colunas, ent�o a principio deveria pintar toda linha selecionada e n�o s� a coluna conforme codigo acima.

obrigado

Diogo

Marco Salles · Answer

Talvez lhe sirva.. N�o testei exaustivamente mas primeiros resultados s�o satisfatorios:

var 
numero:Integer;

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
numero:=Table1.RecNo;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if table1.RecNo = numero Then
  begin
     DbGrid1.Canvas.Font.Color:=clWindowText;
     DBGrid1.Canvas.Brush.Color:=clInfoBk;
  end
else
  begin
    DbGrid1.Canvas.Font.Color:=clWindowText;
    DBGrid1.Canvas.Brush.Color:=clInactiveCaptionText;
  end;
DbGrid1.DefaultDrawDataCell(rect,Column.Field,State);
end;

Altere a cor a gosto

Gigatel · Answer

Blz Marco Salles esta fun��o serviu direitinho no meu componente Infopower..ficou 10...t+inclusive acho que postei algo parecido m�s num tive resposta agora ficou blz....t+...

Diogoalles · Answer

Grande Marcoquase isso, s� que se vc tem um mouse com rolagem e rolar, vai se perder tudo nas cores.. uso o Jedi DBGridsen�o usar a rolagem funciona perfeito.abra�oDiogo...