DbGrid x Query!!

14/05/2003

1

Eu sei que essa vcs vão me ajudar!! É sabido que para mudar uma cor de fonte de um determinado registro dentro de um grid linkado em uma tabela basta colocar alguns codigos dentro da propriedade OnDrawColumnCell do Grid. Porém utilizando o mesmo código para a realização da mesma coisa em um dbgrid que está linkado em uma Query NÃO funciona e todos os registros ficam coloridos. Preciso colorir este registro, e tão somente ele, para que possa diferenciar dos outros. REPITO o dbGrid está linkado na query e não na tabela!!!

Quem se habilita???

Abraços,

Que a força estaja com vcs!!

Rodrigo Costa


Responder

Posts

14/05/2003

Okama

Desculpe, mas não faz diferença uma Table ou Query, pode haver algum problema no critério usado para colorir as linhas.

with DBGrid1.Canvas do
begin
CaseQuery1.FieldByName(´Classificacao´).AsInteger of
  1:Brush.Color := clMoneyGreen;
  2:Brush.Color := RGB(255,255,160);
  3:Brush.Color := RGB(255,100,100);
end;

if gdSelected in State then begin
   Font.Color := clBlue;
end;

FillRect(Rect);
TextOut (Rect.Left + 2, Rect.Top + 2, Column.Field.AsString);
end;


Obs. [b:c025f45b43]gdSelected[/b:c025f45b43] é o Registro atual Selecionado.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira