Colocando cor em um dbgrid

Question

Fala Galeraaaa.Presciso de uma ajuda.Tenho uns cadastro de caixa aqui em meu sistema e tenho um DBgrid que mostra os Status dessas caixa.Campos do DBgrid  CAIXA, DATA, HORA e STATUSent�o nesse meu DB ...

Sistemald · Answer

� simples veja o c�digo de fazer zebrado em dbgrid

if DataSource.DataSet.RecordCount = 0 then
exit;
if (gdSelected in State) then // se a c�lula n�o est� selecionada
begin
 Canvas.Font.Style:=[fsBold];
 Canvas.Font.Color:= FCorFontSelected;
 Canvas.Brush.Color:=FCorSelected; // define uma cor de fundo
 canvas.FillRect(Rect); // pinta a c�lula
 DefaultDrawDataCell(rect,Column.Field,State);
 // Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);//****
end else begin
 if odd(DataSource.Dataset.RecNo) then // se for �mpar
 begin
  Canvas.Brush.Color:=FCor; // define uma cor de fundo
  canvas.FillRect(Rect); // pinta a c�lula
  DefaultDrawDataCell(rect,Column.Field,State); // pinta o texto padr�o
 end;
end;

Nesse c�digo a primeira parte checa se a coluna que esta pintando esta selecionada, no else verifica se a linha � impar, caso seja pinta de uma determinada cor.

No seu caso ao inv�s de verificar se � impar verifica se o caixa � disponivel ou n�o.

Cleiflavio · Answer

Mas em que evento do dbgrid eu coloco ????Clei...

Sistemald · Answer

OnDrawColumncell,aproveitando eu tenho um dbgrid com varios recursos, //desenvolvedor.donato.inf.br, herda do Dbgrid e � opensource...

Cleiflavio · Answer

ent�o esse codigo faz meu dbgrid Zebrado blz, mas n�o � exatamente oq eu quero , eu queria que quando fosse disponivel somente a palavra disponivel ficasse azul e n�o a linha toda.

Isso seria possivel ???

Sistemald · Answer

[code:1:4a15678d42]if DataSource.DataSet.RecordCount = 0 thenexit;if (gdSelected in State) then // se a c�lula n�o est� selecionadabegin   if DataSource.Dataset.FieldByName(�disponivel�) then // checando um campo na tabela begin    Canvas.Font.Style:=&#91;fsBold&93;; //coloca negrito   Canvas.Font.Color:= FCorFontSelected; //defini a cor do texto   Canvas.Brush.Color:=FCorSelected; // define uma cor de fundo   canvas.FillRect(Rect); // pinta a c�lula -> n�o altere aqui    DefaultDrawDataCell(rect,Column.Field,State); //n�o altere aqui end;end;[/code:1:4a15678d42]Seria algo mais ou menos assim, para pintar apenas a celula selecionada...

Cleiflavio · Answer

Isso tbm n�o seria oq eu quero, deixa eu te explicar melhor .

Tenho um DBgrid com os campos CAIXA, DATA, HORA e STATUS

eu tenho varios registro e eu queria que quando abrisse o DBgrid aparecesse no campo STATUS a diferen�a de cor entre DISPONIVEL e INDISPONIVEL que quando for DIsponivel ficasse azul e quando fosse Indisponivel ficasse Vermelho mas eu queria que somente essa campo ficasse assim e o resto fique normal.

Teria como ?

Pestana_ · Answer

tente assim:[code:1:c81bdda731]if Column.Field = seuDataSetSTATUS thenbegin  if AnsiUpperCase(seuDataSetSTATUS.AsString) = �DISPONIVEL� then    dbGrid1.Canvas.Font.Color := clBlue  else    dbGrid1.Canvas.Font.Color := clRed;  dbGrid1.DefaultDrawDataCell(rect, Column.Field, state);end;[/code:1:c81bdda731]troque o nome do seu dataSet e o dbGrid.espero ter ajudado!...

Pestana_ · Answer

:D  j� estava me esquecendo, coloque este c�digo no evento [b:96998120b4]OnDrawColumncell[/b:96998120b4] do dbGrid!...

Cleiflavio · Answer

PEstana_   valeuuu deu certo era isso que eu queria mesmo.Muito Obrigadoooo...

F�rum Colocando cor em um dbgrid #366485