Mudar cor de qrlabel somente de uma banda

Question

Oi pessoal, alguem sabe como posso fazer um looping
pra mudar a cor dos qrlabels somente de uma banda.
Eu preciso disso porque quando o acontece uma determinada situa��o
eu quero que a banda toda fique com uma determinada cor, atualmente
eu mudo um por um. Se alguem puder ajudar desde j� agrade�o.

Fabio.hc · Answer

Tente assim:Coloque os qrlabels da banda com a propriedade parentfont:=true e trocar a propiedade font.color da banda;...

Nigro · Answer

if component is tLabel then color := clRed...

Osvaldo · Answer

Obrigado pela aten��o Fabio, mas assim n�o d� certo, eu j� tentei, eu preciso que quando eu ponho a cor cinza na banda por exemplo, os qrlabels n�o fiquem com o fundo branco e sim com o fundo cinza tamb�m.
E isso eu s� consigo mudando a propriedade color do qrlabel e n�o da fonte. Como eu disse estou fazendo um a um. Ex. DetailBand1.color:=clGray, qrLabel1.color:=clGray, e assim por diante.

Tente assim: Coloque os qrlabels da banda com a propriedade parentfont:=true e trocar a propiedade font.color da banda;

Osvaldo · Answer

Obrigado pela aten��o Nigro, mas como eu fa�o pra pegar somente os qrLabels que pertencem a uma determinada banda, n�o quero alterar os outros QrLabels.

if component is tLabel then color := clRed

Nigro · Answer

mude as tags...

Osvaldo · Answer

Obrigado mais uma vez Nigro e desculpe a minha ignorancia, mas eu n�o entend�, como assim mudar as tags?[quote:accfe08e59=�Nigro�]mude as tags[/quote:accfe08e59]...

Nigro · Answer

Sem problemas... estamos todos aqui para aprender...

for i := 0 to ComponentCount -1 do
if Components[i].Tag = �0� is TLabel then
Components[i].Color := clRed
Acho que d� certo, se n�o der me avise.

Osvaldo · Answer

Obrigado pela ajuda Nigro realmente resolveu o meu problema,
abaixo segue a rotina que precisei fazer para que meu relat�rio saisse zebrado, para quem precisar.

procedure TfrmRelContas.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
i:integer;
begin

if not odd(dmSql.Query1.RecNo) then // se for impar imprime a linha toda cinza.
begin
detailBand1.Color:=clSilver;
for i := 0 to ComponentCount -1 do
begin
if TQRLabel(Components[i]).Tag = 1 then
TQRLabel(Components[i]).Color := clSilver;
end;
end
else
begin
detailBand1.Color:=clWhite;
for i := 0 to ComponentCount -1 do
begin
if TQRLabel(Components[i]).Tag = 1 then
TQRLabel(Components[i]).Color := clWhite;
end;
end;

end;

Sem problemas... estamos todos aqui para aprender... for i := 0 to ComponentCount -1 do if Components[i].Tag = �0� is TLabel then Components[i].Color := clRed Acho que d� certo, se n�o der me avise.

Fabio.hc · Answer

Para imprimir zebrado eu tenho esta rotina:

- Colocar todos os objetos da banda com a propriedade transparent=true e no BeforePrint da banda o codigo abaixo:

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   if odd(IBQuery1.RecNo) then
      DetailBand1.Color:=clSilver
   else
      DetailBand1.Color:=clWhite;
end;

Osvaldo · Answer

Obrigado Fabio. Ja testei e funcionou.E obrigado a todos pela colabora��o, com isso aprendemos um pouco mais com a experiencia de todos.[quote:09e5910a7e=�Fabio.HC�]Para imprimir zebrado eu tenho esta rotina:- Colocar todos os objetos da banda com a propriedade transparent=true e no BeforePrint da banda o codigo abaixo:[code:1:09e5910a7e]procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;  var PrintBand: Boolean);begin   if odd(IBQuery1.RecNo) then      DetailBand1.Color:=clSilver   else      DetailBand1.Color:=clWhite;end;[/code:1:09e5910a7e][/quote:09e5910a7e]...

Imoreira · Answer

N�o � mais f�cil setar a propriedade [color=red:cf59e6afd4][b:cf59e6afd4]transparent[/b:cf59e6afd4][/color:cf59e6afd4] do qrlabel
para [b:cf59e6afd4][color=red:cf59e6afd4]true[/color:cf59e6afd4][/b:cf59e6afd4]?

Osvaldo · Answer

Obrigado pela aten��o, realmente � mais f�cil mesmo, foi exatamente o exemplo acima que o F�bio enviou.

N�o � mais f�cil setar a propriedade [color=red:0ed4c8191d][b:0ed4c8191d]transparent[/b:0ed4c8191d][/color:0ed4c8191d] do qrlabel para [b:0ed4c8191d][color=red:0ed4c8191d]true[/color:0ed4c8191d][/b:0ed4c8191d]?

F�rum Mudar cor de qrlabel somente de uma banda #206327