Selecionar a linha toda em um DbGrid sem usar RowSelect

Question

Amigos,Necessito selecionar (pintar) toda a linha ativa de um dbGrid sem utilizar o comando RowSelect porque ele impede a navega��o entre as colunasSe alguem suber como impedir o travamento da navega�...

J�der Medeiros · Answer

[quote:4a29a21c39=�J�der�]Sua pontua��o est� meio confusa para determinar qual exatamente � sua d�vida, mas coloque este c�digo no evento OnDrawColumnCell que acho que resolve seu problema:

   if DBGrid1.DataSource.DataSet.State in [dsEdit, dsInsert, dsBrowse] then //Cor da linha selecionada
      if Rect.Top = TStringGrid(DBGrid1).CellRect(0,TStringGrid(DBGrid1).Row).Top then begin
         DBGrid1.Canvas.FillRect(Rect);
         DBGrid1.Canvas.Brush.Color := TColor($F0CAA6);
         DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State)
      end;
   if gdSelected in State then begin //Cor da c�lula selecionada
      DBGrid1.Canvas.Brush.Color := TColor($808000);
      DBGrid1.Canvas.FillRect(Rect);
      DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State)
   end

[/quote:4a29a21c39]

Citei este texto no t�pico 88876 [url]http://forum.devmedia.com.br/viewtopic.php?t=88876[/url].

Aasn · Answer

A solu��o apresentada pelo J�der � perfeita!!!...

Aasn · Answer

S� uma pequena dica:mudar deif Rect.Top = TStringGrid(DBGrid1).CellRect( 0 ,TStringGrid(DBGrid1).Row).Top thenparaif Rect.Top = TStringGrid(DBGrid1).CellRect( DataCol ,TStringGrid(DBGrid1).Row).Top thenassim, quando houver muitas colunas fora da �rea vis�vel do grid, ao rolar essas colunas e mudar a linha o destaque continuar� ok.[]�sAASN...

Webjoel · Answer

Muito bom mesmo!Tinha encontrado outra solu��o, mas essa matou, valeu J�der!!!!...

Danielrsanches · Answer

eu sei que isto � velho, mas precisei hoje e encontrei este post que n�o deu 100% certo...a forma perfeita do c�digo � a seguinte:if Rect.Top = TStringGrid(DBGrid1).CellRect( 0 ,TStringGrid(DBGrid1).Row).Top thenpois se substituir o 0 pelo DataCol, a� sim quando tiver muitas colunas n�o vai funcionar......

F�rum Selecionar a linha toda em um DbGrid sem usar RowSelect #348546