Mudar cor da Fonte da linha selecionada do grid....

Question

Bom dia..Estava tentado fazer para que quando eu clicava duas vezes na linha do grid a cor da fonte mudaria!Tentei fazer mais ou menos parecido de quando eu mudo a cor no evento drawcell(alguma coisa ...

Du_nirvana · Answer

Ol�, pensei em algo simples, talvez ajude:

Crie uma variavel global:

var
  Form1: TForm1;
  clic2: boolean;

No DrawColumnCell:

 if odd(ClientDataSet1.RecNo) then
    DBGrid1.Canvas.Brush.Color:= clmenubar
  else
    DBGrid1.Canvas.Brush.Color:= clCream;

  TDbGrid(Sender).Canvas.font.Color:= clBlack;

  if gdSelected in State then
    with (Sender as TDBGrid).Canvas do
      begin
        Brush.Color := clmoneygreen;
        FillRect(Rect);
        Font.Style := [fsbold];
        if clic2 = TRUE then
          begin
            Font.Color := clRed;
            clic2      := FALSE;
          end;
      end;

  TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);

Por fim no DblClick:

  clic2 := TRUE;
  DBGrid1.Repaint;

� simples, voc� continua com seu c�digo de pintar as linhas normal, a diferen�a � que voc� o avisa para pintar a linha atual de uma cor diferente caso a variavel clik2 mude de valor.

Robinhocne · Answer

bom fiz exatamente o que vc fez:[code:1:74d63e301a]if odd(DtsCarChe.DataSet.RecNo) then    DbgCarChe.Canvas.Brush.Color:= clmenubar  else    DbgCarChe.Canvas.Brush.Color:= clCream;  TDbGrid(Sender).Canvas.font.Color:= clBlack;  if gdSelected in State then    with (Sender as DbgCarChe).canvas do      begin        Brush.Color := clmoneygreen;        FillRect(Rect);        Font.Style := &#91;fsbold&93;;        if clic2 = TRUE then           begin             Font.Color := clRed;            clic2      := FALSE;          end;      end;   TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns&91;datacol&93;.field, State);[/code:1:74d63e301a]ai ele para o cursor no  (Sender as DbgCarChe).e da um erro:[quote:74d63e301a]Incompatible types: �HDC� and �TRect�[/quote:74d63e301a]ai adaptei mais ou menos assim![code:1:74d63e301a] if odd(DtsCarChe.DataSet.RecNo) then    DbgCarChe.Canvas.Brush.Color:= clmenubar  else    DbgCarChe.Canvas.Brush.Color:= clCream;  TDbGrid(Sender).Canvas.font.Color:= clBlack;  if gdSelected in State then      begin        DbgCarChe.Canvas.Brush.Color := clSkyBlue;        DbgCarChe.Canvas.Font.Style  := DbgCarChe.Canvas.Font.Style + &#91;fsBold&93;;        if clic2 = TRUE then           begin            DbgCarChe.Canvas.Brush.Color := clRed;            clic2      := FALSE;          end;      end;  TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns&91;datacol&93;.field, State);[/code:1:74d63e301a]Ai aparece em vermelho a linha selececionad...

Webjoel · Answer

Ol�!Este t�pico j� foi abordado antes e j� tem solu��o:[url]//forum.clubedelphi.net/viewtopic.php?t=94795&start=0&postdays=0&postorder=asc&highlight=dbgrid&sid=98730bfa591fa4de025ea0dad9513b60[/url]...

Robinhocne · Answer

peguei tudo certo, mais n�o aconteceu nada, ele n�o muda nada!...

Robinhocne · Answer

fiz dessa maneira no evento ondrawcolumncell

...
  if odd(DtsCarChe.DataSet.RecNo) then
    DbgCarChe.Canvas.Brush.Color:= clmenubar
  else
    DbgCarChe.Canvas.Brush.Color:= clCream;

  TDbGrid(Sender).Canvas.font.Color:= clBlack;

  if gdSelected in State then
      begin
        DbgCarChe.Canvas.Brush.Color := clSkyBlue;
        DbgCarChe.Canvas.Font.Style  := DbgCarChe.Canvas.Font.Style + [fsBold];
        if clic2 = TRUE then
            DbgCarChe.Canvas.Brush.Color := clRed;
      end
  else
      DbgCarChe.Canvas.Font.Style  := DbgCarChe.Canvas.Font.Style - [fsBold];

  TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);
end;

no datachange do meu datasource coloquei assim :

clic2 := false;

e no ondlclick do grid:

clic2 := true;

ele mostra a linha inteira em vermelho, mas ai quando eu clico na outra linha ele volta ao normal!

Ser� que tem algu�m capacitado para me ajudar a resolver isso ?

Du_nirvana · Answer

A linha volta ao normal porque o dbgrid foi atualizado e a condi��o que indica a troca de cor j� est� falsa, voc� precisa criar um metodo para identificar a linha clicada, e onde ocorre o teste do click voc� testa com essa nova indica��o. Tente substituir a variavel booleana click por uma outra que indice o registro no ClientDataSet.

Obs.: Quanto ao erro que voc� mencionou � meio estranho, voc� est� usando outro componente que n�o seja o dbGrid?

Em rela��o ao seu desabafo na ultima linha foi meio grosseiro da sua parte no meu ponto de vista, j� que estamos apenas tentando ajuda-lo. O objetivo do forum � auxilialo nas dificuldades demonstrando novas possibilidades e n�o resolver o problema para voc�.

Du_nirvana · Answer

Pensei em algo novamente com base na ideia anterior;

1- Crie um vetor onde voc� seta o tamanho em tempo de execu��o, no caso esse tamanho ser� o total de registros no cds.
2- Dentro do onDrawColumnCell fa�a uma verifica��o onde voc� mant�m as linhas pintadas de vermelho caso o registro atual esteja contido no vetor � s� pintar.
3- Abaixo segue o exemplo, fa�a as altera��es que voc� mencionou antes caso seja necess�rio. Se for o caso voc� s� precisa de mais duas coisas, redimencionar o vetor no caso de novos registros e um tratamento para voltar a cor ao normal.

Segue o c�digo:

Nova declara��o das variaveis

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(clic2, ClientDataSet1.RecordCount);
end;

var
  Form1: TForm1;
  clic2: array of integer;

Dimencione o vetor, no meu exemplo coloquei no forCreate, porque nesse ponto meu cds j� foi aberto, coloque-o onde achar melgor, desde que o cds j� tenha recuperado os registros

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(clic2, ClientDataSet1.RecordCount);
end;

Novo onDrawColumnCell

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i: integer;

begin
  if odd(ClientDataSet1.RecNo) then
    DBGrid1.Canvas.Brush.Color:= clmenubar
  else
    DBGrid1.Canvas.Brush.Color:= clCream;

  TDbGrid(Sender).Canvas.font.Color:= clBlack;

  if gdSelected in State then
    with (Sender as TDBGrid).Canvas do
      begin
        Brush.Color := clmoneygreen;
        FillRect(Rect);
        Font.Style := [fsbold];
      end;
  for i:= 1 to ClientDataSet1.RecordCount do
    begin
      if clic2[i] = ClientDataSet1.RecNo then
        begin
          (Sender as TDBGrid).Canvas.Font.Color := clRed;
        end;
    end;

  TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);
end;

Fiz o c�digo meio na pressa, qualquer coisa posta ai novamente que tentamos ajudar.

Robinhocne · Answer

Consegui resolver com ajuda de uns amigos

ficou assim>

no type do form

type
  THakGrid = class(TCustomGrid);

no private:

  private
        FSelecionados : array of integer;
        function GetIndex(Value : Integer) : Integer;
        procedure SelecionaCheque;

function TFrmCarteiraDeCheque.GetIndex(Value: Integer): Integer;
var
  I : Integer;
begin
  for I := 0 to High(FSelecionados) do
  begin
    if FSelecionados[I] = Value then
    //poderia fazer uma busca indexada pra agilizar
    //mas vai ficar pra proxima.
    begin
      Result := I;
      Exit;
    end;
  end;
  Result := -1;

end;

procedure TFrmCarteiraDeCheque.DbgCarCheDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);

begin
  if GetIndex(QryCarChe.RecNo) > -1 then
    DbgCarChe.Canvas.Brush.Color := clRed;

  DbgCarChe.DefaultDrawDataCell(Rect, Column.Field, State);
END;

procedure TFrmCarteiraDeCheque.SelecionaCheque;
var
  I, I2 : Integer;
begin
  I := GetIndex(QryCarChe.RecNo);
  if I < 0 then
  begin
    I := High(FSelecionados) + 1;
    SetLength(FSelecionados, I + 1);
    FSelecionados[I] := QryCarChe.RecNo;
  end else
  begin
    I2 := High(FSelecionados);
    if I2 > I then
      Move(FSelecionados[I+1], FSelecionados[I], I2-I);

    SetLength(FSelecionados, I2);
  end;
  THakGrid(DbgCarChe).InvalidateRow(THakGrid(DbgCarChe).Row);
end;