Campo negativo.

Delphi

02/06/2004

Ola amigos, tenho um campo quantidade na tabela de estoque que mostrado no DbGrid quando se faz uma pesquisa. Gostaria de saber como posso deixa-lo em vermelho quando esta quantidade estiver abaqixo de (10), e se é possivel colocar uma mensagem avisando ao usuário que este campo esta com uma quantidade crítica.
Peninha.


Peninha

Peninha

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

02/06/2004

Consegui no StringGrid:



procedure TfrmModManutencao.sgdAguardandoDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  inherited;
  sgdAguardando.Canvas.Font.Color := clBlack;
  sgdAguardando.Canvas.Font.Style := [];
  With(DMoAuxiliar.cdsAuxiliar)Do
  Begin
   With(sgdAguardando)Do
   Begin
     Close;
     CommandText := ´Select Ana.AnaObservacao,Ana.AnaCodigo ´
                  + ´From Analise_Ana Ana ´
                  + ´Where Ana.AnaCodigo = ´
                  +                        ´(Select Max(Hmnt.AnaCodigo) ´
                  +                        ´From HistManutencao_Hmnt Hmnt ´
                  +                        ´Where Hmnt.Veiculo_Codigo = ´
                  +                                                     ´(Select Veiculo_Codigo ´
                  +                                                     ´From Veiculo_Veic Veic ´
                  +                                                     ´Where Veic.Veiculo_Empresa = ´
                  +                                                     QuotedStr(Cells[ACol,ARow])
                  +                                                     ´))´;
     Open;
     If(RecordCount > 0)Then
     Begin
        Canvas.Font.Color := clGreen;
        Canvas.Font.Style := [fsBold];
        Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
     End;
   End;
  End;
end;



GOSTEI 0
POSTAR