3 replies to this topic

[nelson8000]

Esse aqui é um desafio lançado por um cara aki da empresa...

Ele quer que:

De acordo com o campo Situação a linha ou Coluna da DbGrid seja de uma cor diferente..
Por Ex:
A vencer = azul
Em Atraso = vermelho
Pagos no Banco = verde
Pagos na Cob1 = amarelo
Pagos na Cob2 = laranja


Alguem sabe como fazer isso??

[proteus_adi]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If odd(Table1.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clGreen;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clWhite;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;
//

este código faz com que as colunas fiqiem zebradas

[proteus_adi]

poxa...
pelo menos fala ai se conseguiu

[nelson8000]

Naum kra ... foi mal!!!

Eu nem tive tempo pra mexer no código ainda....

Eu tive uns problemas com telefonia....

Mas vou fazer o teste e posto a resposta!!!


Abraços

Nelson