Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá, parece meio confuso mas vamos lá,
Tenho que montar uma tela de conferência de dados, listo esses dados em uma grid, e vou conferindo os dados linha a linha, após conferir os dados da primeira linha, passarei para a segunda, e a linha de cima muda de cor para constatar que foi lido. Até aí tudo bem, eu conseguir fazer isso colocando um campo chamado LIDO na tabela QueryMovto, e implantei o código.
procedure TFormConfereFilme.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If Dados.QueryMovtoLIDO.Value = 'True' then
Dbgrid1.Canvas.Font.Color:= clGreen;
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
Ou seja, quando QueryMovtoLIDO.Value = 'True' a linha fica verde
Até aí estou conseguindo fazer mudar de cor, mas toda hora que passar na coluna LIDO, tenho que escrever True.
Será que tem algum modo de fazer automático, sem ter que ficar escrevendo True toda hora ?
Obrigado desde já.
Carregando comentários...