Fórum Colorir grid de forma agrupada #209978
27/01/2004
0
Companheiros, tenho uma tabela onde se fosse possível, separar por
grupos num grid e colorir de duas cores, os itens de cada grupo,
não é grid zebrado tipo SoftDbGrid, é se num grupo de produtos eu
tenho 8 itens, então os 8 viriam de uma cor e se o próximo grupo eu
tivesse 10 itens os 10 de outra cor. É possível? Disseram-me que não,
mas quem me disse não conhece Delphi a fundo. É possível imprimir no
QRPT, sem as cores, mas agrupados e quando terminasse um grupo de pro
dutos e começasse outro, imprimisse uma linha como se tivesse diferen
ciando um grupo de produtos de outro?
grupos num grid e colorir de duas cores, os itens de cada grupo,
não é grid zebrado tipo SoftDbGrid, é se num grupo de produtos eu
tenho 8 itens, então os 8 viriam de uma cor e se o próximo grupo eu
tivesse 10 itens os 10 de outra cor. É possível? Disseram-me que não,
mas quem me disse não conhece Delphi a fundo. É possível imprimir no
QRPT, sem as cores, mas agrupados e quando terminasse um grupo de pro
dutos e começasse outro, imprimisse uma linha como se tivesse diferen
ciando um grupo de produtos de outro?
Paulo
Curtir tópico
+ 0
Responder
Posts
28/01/2004
Fabio.hc
Paulo,
Peguei o seu código do outro tópico e fiz assim.
Ex:
No meu ex. o campo size for maior que 10 a linha fica vermelha, se o campo size for menor que 10 a linha fica azul e se o campo size for igual a 10 não muda de cor matendo a cor padrão do grid.
Peguei o seu código do outro tópico e fiz assim.
Ex:
procedure TForm1.GridDrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
//if Dm.Estoque.FieldByName(´qdvend´).AsFloat > 0 then begin
if Table1.FieldByName(´size´).AsFloat > 10 then
Grid.Canvas.Brush.Color:=clRed
else if Table1.FieldByName(´size´).AsFloat < 10 then
Grid.Canvas.Brush.Color:=clBlue;
Grid.Canvas.Font.Color:=clBtnText;
Grid.Canvas.FillRect(Rect);
Grid.Canvas.TextOut(Rect.Left+2, Rect.Top+2, Field.Text);
end;No meu ex. o campo size for maior que 10 a linha fica vermelha, se o campo size for menor que 10 a linha fica azul e se o campo size for igual a 10 não muda de cor matendo a cor padrão do grid.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)