(Resolvido) Mudar a cor do Titulo do Dbgrid

[nilegor]

Eu Gostaria de alterar apenas a cor da descrição de apenas um registro no dbGrid, por exemplo, na linha do item CELULAR, apenas a palavra celular ficar em vermelho, estou usando o código abaixo, porem todos os registros da linha ficam na cor vermelha.

#Código
if (condição...) then
begin
DBGrid1.Canvas.Brush.color := clGradientInactiveCaption;
DBGrid1.Canvas.font.color := clRed;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;


E também por que quando coloco algo no evento OnDrawColumnCell alguns registros da linha ficam alinhados de forma diferente, exemplo, as informações que antes estavam alinhadas a direita ficam alinhadas para a esquerda e tambem os campos de valores, ex(2,00) perdem a virgula ficando apenas o 2 !

[Jhonas]

exemplo

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  // Mudar a cor de fundo do Titulo do Campo da Tabela da 1ª coluna
  DBGrid1.Columns[0].Title.Color := clAqua;  // cor de fundo
  DBGrid1.Columns[0].Title.Font.Color := clBlack; // cor da fonte
end;

ou

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  // Mudar a cor de fundo do Titulo do Campo da Tabela da 1ª coluna
  DBGrid1.Columns[0].Title.Color := clRed;  // cor de fundo
  DBGrid1.Columns[0].Title.Font.Color := clWhite;  // cor da fonte
end;

Obs: voce pode fazer isso diretamente no dbgrid

abraço

[nilegor]

Jhonas, desculpe. Na verdade acabei me atrapalhando no titulo. Preciso mudar a cor de apenas um registro no dbGrid, exemplo, tenho os campos código, descrição, preço.. etc. Gostaria de mudar a cor apenas da descrição, mas de apenas uma linha e apenas na coluna descrição.

[Jhonas]

essa linha é fixa ou não ? o valor do campo repete ou não ?

[nilegor]

sim, pode repetir, por exemplo, na coluna grupo de mercadoria existem varias linhas com o mesmo grupo. Apenas as informações que estão nas linhas ficando em vermelho já é o suficiente, não preciso mudar a cor da linha em si. Isso eu consegui, porem o alinhamento das informações que estão nessa linha com as informações em vermelho ficam desalinhadas, e tambem gostaria de deixar em vermelho apenas algumas colunas dessa linha, exemplo, apenas a nome, valor, quantidade... E não todas as informações da linha.

[Jhonas]

gostaria de deixar em vermelho apenas algumas colunas dessa linha

voce deveria dizer que quer deixar alguns valores das colunas em vermelho e não o titulo...

exemplo: Na coluna SALDO ...se o saldo for menor que zero o valor fica em vermelho

procedure TFCartCons.DBGrid1DrawColumnCell(Sender: TObject;
   const Rect: TRect; DataCol: Integer; Column: TColumn;
   State: TGridDrawState);
begin


   if (Column.FieldName = 'SALDO') then
   begin
      if CDS_Opcoes.FieldByName('SALDO').Value < 0 then
      begin
         DBGrid1.Canvas.Font.Color := clRed;
         DBGrid1.Canvas.FillRect(Rect);
         DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end
      else
      begin
         DBGrid1.Canvas.Font.Color := clBlack;
         DBGrid1.Canvas.FillRect(Rect);
         DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;
   end;

abraço

[nilegor]

Ola Jhonas, deu certo. Porem vou precisar deixar o valor de outra coluna tambem na cor vermelha, exemplo, o valor das colunas SALDO e DESCRICAO, é possivel fazer isso usando a mesma condição que me passou ?

[Jhonas]

voce pode fazer isso para qualquer coluna da sua tabela

procedure TFCartCons.DBGrid1DrawColumnCell(Sender: TObject;
   const Rect: TRect; DataCol: Integer; Column: TColumn;
   State: TGridDrawState);
begin


   if (Column.FieldName = 'SALDO') then
   begin
      if CDS_Opcoes.FieldByName('SALDO').Value < 0 then
      begin
         DBGrid1.Canvas.Font.Color := clRed;
         DBGrid1.Canvas.FillRect(Rect);
         DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end
      else
      begin
         DBGrid1.Canvas.Font.Color := clBlack;
         DBGrid1.Canvas.FillRect(Rect);
         DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;
   end;

   if (Column.FieldName = 'DESCRICAO') then
   begin
      if CDS_Opcoes.FieldByName('DESCRICAO').Value = 'CELULAR ' then
      begin
         DBGrid1.Canvas.Font.Color := clRed;
         DBGrid1.Canvas.FillRect(Rect);
         DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end
      else
      begin
         DBGrid1.Canvas.Font.Color := clBlack;
         DBGrid1.Canvas.FillRect(Rect);
         DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      end;
   end;

end;

abraço

[nilegor]

Ok, é que eu pensei que daria para adicionar a coluna na primeira condição do IF. Obrigado.