index da coluna dbgrid default

Question

Ola em minha aplicao, tem a posibilidade do usuario cliclar o no titulo da coluna e arrastalo invertento as posicoes das colunas, gostaria de saber se tem alguma funcao do proprio dbgrid onde ele retorna as posi�oes originais no grid, desde ja agrade�o.

Marco Salles · Answer

[quote:59374348ef]Ola em minha aplicao, tem a posibilidade do usuario cliclar o no titulo da coluna e arrastalo invertento as posicoes das colunas, [/quote:59374348ef]isto ja � default .. N�p precisa de nenhuma codifica��o extra[quote:59374348ef]gostaria de saber se tem alguma funcao do proprio dbgrid onde ele retorna as posi�oes originais no grid, desde ja agrade�o[/quote:59374348ef]Pode criar.. Mas acho que fechar e Abri o DataSet ja Resolve...

Digaopachesen · Answer

Marcos nao funcionou, bom minha intecao era o seguinte q simplesmente tivese uma funcao do dbgrid q simplismente ele reoganizace as coluna como default, fechando e abrindo o dataset nao funcionau como vc comentou. se caso exista uma outra posibilidade estarei ai para testa as dicas enviadas. VLW T+.

Marco Salles · Answer

[quote:b07cf42982]Marcos nao funcionou[/quote:b07cf42982]humm .. Sei . Deve ser pq voce tem os Tfields definidos , criados em DesignedPor�m voce pode tentar a fun��o abaixo , que pode ser adicionada aoevento Onclick do Grid . <Este evento n�o existe mas pode ser Adicionado>[code:1:b07cf42982]vari:integer;beginfor i:=0 To SeuDataSet.FieldCount-1 do  SeuDataSet.Fields&#91;i&93;.Index:=SeuDataSet.Fields&91;i&93;.FieldNo-1;[/code:1:b07cf42982]...

Diegotiemann · Answer

Quando tenho uma DbGrid ligada um tclientDataSet atrav�s de um dataSource uso o seguinte comando

meuClientDataSet.IndexName:=�DEFAUL_ORDER�;

Mas pelo que me parece n�o � bem o que voc� prescisa.

Digaopachesen · Answer

Marcos salles, utilizei tua rotina com um wwdbgrid e deu resultado, mas se eu mudar a possic��o de varias coluna tenho q executala mais de uma vez para obter o resultado desejado, vou realizar mais alguns teste para ver o pq disso, vlw pela ajuda,

Tb n�o entendo... :?: :?:
Pq ao Mudar as colunas de Lugar independentemente
da quantidade de vezes o Valor da Propriedade FieldNo fica inalterado.
O que altera � o valor de Index

Mas poste mais resultados de usa experi�ncia..

Fernando · Answer

eu uso o ClientDataSet e funciona normal
segue a fun��o

eu uso o TwwDBGrid do infopower

mas pode usar com qualquer um grid

var
IndexDef : TIndexDef;
IntIndex : integer;
strName : String;
blnDescending : boolean;
begin

blnDescending := False;

strName := �TEMP�+AFieldName;
intIndex := ClientDataSet.IndexDefs.IndexOf(strName);

If ClientDataSet.IndexName = strName then
begin
// ativa indice
IndexDef := ClientDataSet.IndexDefs.Find(strName);
blnDescending := indexDef.DescFields = ��;
end;

If IntIndex >= 0 then
begin
//deleta indice
ClientDataSet.DeleteIndex(strName);
ClientDataSet.IndexDefs.Delete(intIndex);
end;

IndexDef := ClientDataSet.IndexDefs.AddIndexDef;
IndexDef.Name := strName;
IndexDef.Fields := AFieldName;

If blnDescending then
IndexDef.DescFields := AFieldName;

ClientDataSet.IndexName := strName;

Marco Salles · Answer

[quote:f537e857b6]Marcos salles, utilizei tua rotina com um wwdbgrid e deu resultado, mas se eu mudar a possic��o de varias coluna tenho q executala mais de uma vez para obter o resultado desejado, vou realizar mais alguns teste para ver o pq disso, vlw pela ajuda, [/quote:f537e857b6]Tb n�o entendo...  :?:  :?: Pq ao Mudar as colunas de Lugar independentemente da quantidade de vezes o Valor da Propriedade FieldNo fica inalterado.O que altera � o valor de IndexMas poste mais resultados de usa experi�ncia.....

Digaopachesen · Answer

Marcos resolvio utilizando tua rotina com mais alguns detalhes ai funcionou como eu desejava...

var 
  i, f:integer;
begin
  inherited; 
  for i:=0 To DBGrid1.FieldCount-1 do 
  begin
    f:= i;
    while f <= DBGrid1.FieldCount-1 do 
    begin
      if i = DBGrid1.Fields[f].FieldNo-1 then
        DBGrid1.Fields[f].Index:=DBGrid1.Fields[f].FieldNo-1;
      f:= f + 1;
    end;
  end;

um exemplo � o seguinte, vc tem um grid com 10 colunas, ai vc cola a coluna 1 na posi��o 5 a 3 na posicao 9 e a 4 na posicao 1. eu queria reordenalas como elas estavam da coluna 1 a 10, com a tua retoni ela nao os ordenava como default, agora sim, caso eu tenha feito algo de errado ou alguma bobage porfavor me corriga...vlw pela dica T+

F�rum index da coluna dbgrid default #363869