Colorir linha selecionada na DBGrid

Question

Ol� pessoal!O t�pico parece bobo, mas eis que j� varri a internet em busca da solu��o e ainda naum encontrei.Problema:Possuo uma DBGrid onde cadastro os itens do pedido, com isso ela est� com a propri...

Daniel Alves Qualhato · Accepted Answer

Muito Obrigado Pessoal, Estava precisando. estou desenvolvendo em delphi xe8 e windos 10. Quando a Aplica��o era executada no Windows 7 n�o mostrava a sele��o, apenas duas linhas bem apagadas. Pois estava usando o gdSelected = true.

Agora com esse C�digo ficou 100%

Webjoel · Answer

Ol� Pessoal!Resolvi o problema, Deus Salve o Google! Basta ser insistente...heheEis o c�digo:[code:1:4181cebd1c]THackDBGrid = class(TDBGrid); //declarar essa linha no Typeprocedure TPedidoForm.DBGrid1CellClick(Column: TColumn);var  Row, ACol: integer;begin  Row  := THackDBGrid(DBGrid1).Row;  ACol := 1;  while ACol <= Pred(THackDBGrid(DBGrid1).ColCount) do  begin    DBGrid1DrawColumnCell(DBGrid1, THackDBGrid(DBGrid1).CellRect(ACol, Row), (ACol - 1), DBGrid1.Columns.Items&#91;(ACol - 1)&93;, &91;gdSelected, gdFocused&93;);    Inc(ACol);  end;end;procedure TPedidoForm.DBGrid1DrawColumnCell(Sender: TObject;  const Rect: TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState);begin  With dbGrid1 do  begin    if (gdSelected in State) then    begin      Canvas.Font.Style := Canvas.Font.Style +&91;fsBold&93;;      Canvas.Font.Color := clblue;    end;    DefaultDrawDataCell(Rect, Columns&#91;DataCol&93;.Field, State);  end;end;[/code:1:4181cebd1c]...

Webjoel · Answer

Ol� pessoal!Descartem meu post anterior, esse procedimento anterior resolveu para um lado e piorou para outro, quando edita um valor ele d� problemas.Eis outra solu��o, essa encontrada aqui no F�rum postada pelo J�der,Evento DrawColumnCell da DBGrid[code:1:0b82ce5304]if DBGrid1.DataSource.DataSet.State in &#91;dsEdit, dsInsert, dsBrowse&93; then    begin      //Cor da linha selecionada      if Rect.Top = TStringGrid(DBGrid1).CellRect(DataCol,TStringGrid(DBGrid1).Row).Top then      begin         Canvas.FillRect(Rect);         Canvas.Font.Style := Canvas.Font.Style + &91;fsBold&93;;         Canvas.Font.Color := clblue;         DefaultDrawDataCell(Rect,Column.Field,State)      end;      if gdSelected in State then      begin        //Cor da c�lula selecionada        Canvas.Font.Style := Canvas.Font.Style + &91;fsBold&93;;        Canvas.Font.Color := clblue;        Canvas.FillRect(Rect);        DefaultDrawDataCell(Rect,Column.Field,State)      end;    end;[/code:1:0b82ce5304]Tem muita gente ai com o mesmo problema! T� resolvido, foi o que trouxe o resultado perfeito! Valeu....

Marco Salles · Answer

bem . ja conhecia o codigo , mas so n�o entendo o pq de usar dois If
com as mesmas instru��es

with DbGrid1 do
   begin
    if  DataSource.DataSet.State in [dsEdit, dsInsert, dsBrowse] then //Cor da linha selecionada
        if (Rect.Top = TStringGrid(DBGrid1).CellRect( DataCol ,TStringGrid(DbGrid1).Row).Top)
          or( gdSelected in State)  then
         begin
           Canvas.FillRect(Rect);
           Canvas.Brush.Color := clblue;
           DefaultDrawDataCell(Rect,Column.Field,State)
        end;
   end;

F�rum Colorir linha selecionada na DBGrid #357569