Fórum código para corrigir #146643

Meus amigos estou tentando usar os codigos abaixo mas nada acontece. :!: :?:

O primeiro código é para ordenar o Dbgrid conforme a coluna clicada, mas eu clico e não acontece nada. Será que tenho que definir algum índice na minha tabela com o nome das colunas do DBGrid?

procedure Tfmcc.DBGrid1TitleClick(Column: TColumn);
var
campo:string;
begin
campo:=column.fieldname;
application.processmessages;
qraccount.sql.clear;
qraccount.sql.add(´Select * from Account order by ´ + campo);
if not qraccount.prepared then
qraccount.prepare;
qraccount.open;
end;
----------------------------------------------------------------------------------------------------------

O segundo código é para mudar a cor da linha de um dbgrid, ou seja , se um determinado valor é negativo a linha fica vermelha ou se for positiva fica verde. Também não acontece nada.

procedure Tfmcc.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if dmDados.tbAccount.FieldByName(´Acc_ValorPago´).Value < 0 then
DBGrid1.Canvas.Brush.Color := clRed
else
begin
DBGrid1.Canvas.Brush.Color := clGreen;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(Rect,Field,State);
end;
end;

----------------------------------------------------------------------------------------------------------------------------------


Alguém pode dar uma olhadinha nestes códigos e me dizer o que pode estar errado.


Obrigado.


dli