Como colorir as linhas dentro de uma coluna especifica da grid?

19/03/2021

0

Opa, preciso colorir as linhas de uma colina especifica da grid de acordo com sua situação, quero deixar as linhas em vermelho, azul e verde por exemplo, mas so dentro de uma coluna especifica, so consegui ou colorir toda a linha ou so a coluna com uma unica cor, alguem consegue me ajudar?
Ramboli

Ramboli

Responder

Post mais votado

19/03/2021

sempre que possível publique as tentativas já efetuadas.

tente assim, utilizando o evento OnDrawColumnCell:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
	if DataCol = *ColunaDesejada* then
	begin
		if *CondicaoParaCorVerde* then
			TDBGrid(Sender).Canvas.Brush.Color := clGreen
		else
		if *CondicaoParaCorAzul* then
			TDBGrid(Sender).Canvas.Brush.Color := clBlue
		else
		if *CondicaoParaCorVermelha* then
			TDBGrid(Sender).Canvas.Brush.Color := clRed
		else
			TDBGrid(Sender).Canvas.Brush.Color := clWhite;
	end;
	TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Emerson Nascimento

Emerson Nascimento
Responder

Mais Posts

26/03/2021

Ramboli

sempre que possível publique as tentativas já efetuadas.

tente assim, utilizando o evento OnDrawColumnCell:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
	if DataCol = *ColunaDesejada* then
	begin
		if *CondicaoParaCorVerde* then
			TDBGrid(Sender).Canvas.Brush.Color := clGreen
		else
		if *CondicaoParaCorAzul* then
			TDBGrid(Sender).Canvas.Brush.Color := clBlue
		else
		if *CondicaoParaCorVermelha* then
			TDBGrid(Sender).Canvas.Brush.Color := clRed
		else
			TDBGrid(Sender).Canvas.Brush.Color := clWhite;
	end;
	TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;



Cara, exatamente isso, so modifiquei algumas coisas pra se encaixar na minha situação, muito obrigado, o senhor sempre m ajudando kk
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar