Símbolo de Crescente e Decrescente em Title de um DBGRID

[Marcos C. Costa 0]

Boa tarde

 

 

Estou com uma dúvida simples, mas q nao achei como q faz!!!!!

 

Estou ordenando uma tabela conforme o CLICK do usuario no TITLE do DBGRID!

 

Queria colocar aquele simbolo igual no Windows Explorer, que mostra ordenação "CRESCENTE" ou "DECRESCENTE" no TITLE da coluna! Quando o usuario clica, muda a ordem e o simbolo!!

 

Alguem sabe me dizer?

 

Obrigado!

[Daniel Sanches 0]

a lógica que você deverá usar é da rotina abaixo...

 

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
I: word;
begin
        for I:=0 to DBGrid1.Columns.Count-1 do
        begin
                DBGrid1.Columns.Items[I].Title.Caption:=
                        Trim(AnsiReplaceStr(DBGrid1.Columns.Items[I].Title.Caption,'>>',''));
        end;
        Column.Title.Caption:= Column.Title.Caption + ' >>';
end;

no exemplo acima, utilizei a string >> para representar a ordem, você pode substituir por outra qualquer, ou por algum da tabela ascii... desconheço a possibilidade de utilizar imagens no título ...

 

 

abraços !!!