Cores no Registros do DBGRid

Delphi

12/03/2004

Oi !!!

Estou com o seguinte problema:

Gostaria de mudar a cor de um determinado campo no DBGrid, mas só de alguns registros, por exemplo:

Alunos com idade superior a 18 anos, ficaasse na cor azul
Alunos com idade inferior a 18 anos, na cor vermelho.

Um DbGrid com todos os alunos mas com esta diferenciação de cores.

Antecipadamente Agradeço !!!

Muito Obrigado
Eduardo Costa


Eduardo Costa

Eduardo Costa

Curtidas 0

Respostas

Marco Salles

Marco Salles

12/03/2004

No Evento OnDrawColumnCell Da Grid Escreva o Código
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
begin 
  if (Column.Field= Table1.FieldByName(´Nome Do Campo´))then 
    begin 
       if Table1.FieldByName(´Nome Do Campo´).AsInteger > 18 Then
            DBGrid1.Canvas.Font.Color:=ClBlue
       Else
         if Table1.FieldByName(´Nome Do Campo´).AsInteger < 18 Then
            DBGrid1.Canvas.Font.Color:=ClRed; 
     end;         
 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end;


P:S Coloquei Table1.FieldByName(´Nome Do Campo´).[color=red:ac5d330502] AsInteger[/color:ac5d330502] Supos Ser o Seu Camp Inteiro

obs: Para Alunos Com Idade = 18 Anos Fica a Cor Padrão Definida...


GOSTEI 0
POSTAR