DBGrid mudar a cor da fonte qdo abrir o form

Question

Tenho uma tabela vinculada a q estou apresentando no dbgrid, e eu queria tipo trocar a cor da fonte na linha qdo a tabela vinculada com aquele c�digo for <> 0, tentei fazer o seguinte: if TbIten...

Janete · Answer

sobe...

R�mulo Barros · Answer

Ok. Seu problema � simples, mas n�o vou postar. he he he

Aqui no f�rum, existe uma op��o de PESQUISAAAAAAAAA e, antes de cliclar no bot�o, escreva no edit de pesquisa o valor �DBGrid�;

Pronto, vc sabera�o que quer mais r�pido poss�vel....

Janete · Answer

[quote:8428f85f62=�Undeclared Identifier�]Ok. Seu problema � simples, mas n�o vou postar. he he he

Aqui no f�rum, existe uma op��o de PESQUISAAAAAAAAA e, antes de cliclar no bot�o, escreva no edit de pesquisa o valor �DBGrid�;

Pronto, vc sabera�o que quer mais r�pido poss�vel....[/quote:8428f85f62]

Ok meu querido, � claro q eu PESQUISEI ANTES, sempre fa�o isso, e fa�o tb at� pra quem me pede ajuda, mas infelizmente n�o consegui encontrar pois tem uma qtde muito grande de itens dois mil...... e n�o consegui olhar todos, ent�o derrepente vc podia ter me ajudado melhor j� q vc sabe onde est�, mas tudo bem!

Bacalhau · Answer

Janete, segue um procedure que coloca uma grid em branco/cinzento linha sim/linha n�o. N�o � o que procuras mas a base � essa e � activado no OnDrawColumnCell

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

var HoldColor : TColor;

begin
HoldColor := DBGrid1.canvas.Brush.color; // guarda original
if table2.recno mod 2 = 0 then
begin
DBGrid1.Canvas.Brush.color := clsilver;
dbgrid1.DefaultDrawcolumnCell(Rect,Datacol,Column,state);
dbgrid1.canvas.Brush.color := holdcolor;
end;
end;

abra�o
bacalhau

Rafael.valler · Answer

Janete, Tente assim:
:idea:
Procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Table1.FieldByName(�Campo1�).Value <> � � then
DBGrid1.Canvas.Font.Color := clGreen
else
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(Rect,Field,State);
end;

Fer_nanda · Answer

Ol� Janete, fiz alguma coisa parecida, n�o est� funcionando perfeitamente, mas dah uma olhada, numa dessa vc consegue mudar

on DrawColumnCell

  if ClientDataSet1codigo_usuario.AsInteger = 2 then  // sua condi��o (um exemplo)
  begin
    for i := 0 to 4 do// contador para seu numero de colunas
    begin
        DBGrid1.Columns[i].Font.Color  := clred;
    end;
  end
  else
  begin
    for i := 1 to 4 do// contador para seu numero de colunas
    begin
        DBGrid1.Columns[i].Font.Color  := clBlack;
    end;
  end;

Janete · Answer

tentei todas as op��es mas ainda n�o deu certo, � q teria q acontecer isso logo no form show do formul�rio pra j� trazer cada um com sua cor conforme o if q fiz tipo de aquele item q vai aparecer no dbgrid tiver itens agrupados nele por outra tabela a fonte da linha daquele item fica vermelha se n�o fica preta, e se eu usar o DrawColumnCell s� muda se clicar nos itens, e o DrawDataCell n�o faz nada n�o sei por q mas nem passa por ele. :?:

F�rum DBGrid mudar a cor da fonte qdo abrir o form #229587