Colorir grid de forma agrupada

Delphi

27/01/2004

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?


Paulo

Paulo

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

27/01/2004

Paulo,

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.


GOSTEI 0
POSTAR