Re: [delphi-br] TcxGrid - DevExpress
Não se se entendi... mas segue... GridDados.DataController.GotoNext; GridDados.DataController.GotoFirst; GridDados.DataController.GotoPrev; GridDados.DataController.GotoLast; Veja se e isso.. abraço Marcos Bernardo Em 23 de junho de 2010 15:22, Murilo Cunha mcscu...@yahoo.com.br escreveu: Pessoal, Como eu faço para subir uma linha em um TcxGridTableView? Gostaria de fazer o seguinte: Linha 1 Produto A R$ 1,25 Linha 2 Produto B R$ 3,50 Linha 3 Produto C R$ 9,50 Subir esta linha ateh o topo (pode ser varias etapas - varios cliques no botao) Linha 4 Produto D R$ 11,80 Linha 1 | Produto C | R$ 9,50 Linha 2 | Produto A | R$ 1,25 Linha 3 | Produto B | R$ 3,50 Linha 4 | Produto D | R$ 11,80 Obrigado MuriloCunha -- Marcos A. de A. Bernardo xmarcos@gmail.com 11 - 9462-2657 / 11- 3205-1499 http://bagusconsultoria.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] TcxGrid - DevExpress
Opa.. Murilo.. estou sem a documentação aqui em casa... Mas no manual da DEv deve ter algo... Se bem que nunca vi... tem que testar mesmo... as opções... abraço Marcos Bernardo Em 23 de junho de 2010 16:41, Murilo Cunha mcscu...@yahoo.com.br escreveu: Marcos, Eh quase isso!! Nestes codigos enviados a informacao nao estah indo junto, apenas sobe ou desce o cursor no grid. Quero que suba o cursor junto com a informacao da linha. Obrigado MuriloCunha On 23/06/2010 15:29, Marcos Bernardo wrote: Não se se entendi... mas segue... GridDados.DataController.GotoNext; GridDados.DataController.GotoFirst; GridDados.DataController.GotoPrev; GridDados.DataController.GotoLast; Veja se e isso.. abraço Marcos Bernardo Em 23 de junho de 2010 15:22, Murilo Cunhamcscu...@yahoo.com.brmcscunha%40yahoo.com.br escreveu: Pessoal, Como eu faço para subir uma linha em um TcxGridTableView? Gostaria de fazer o seguinte: Linha 1 Produto A R$ 1,25 Linha 2 Produto B R$ 3,50 Linha 3 Produto C R$ 9,50 Subir esta linha ateh o topo (pode ser varias etapas - varios cliques no botao) Linha 4 Produto D R$ 11,80 Linha 1 | Produto C | R$ 9,50 Linha 2 | Produto A | R$ 1,25 Linha 3 | Produto B | R$ 3,50 Linha 4 | Produto D | R$ 11,80 Obrigado MuriloCunha -- Marcos A. de A. Bernardo xmarcos@gmail.com 11 - 9462-2657 / 11- 3205-1499 http://bagusconsultoria.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] TcxGrid - DevExpress
Marcos, Achei como é. Vou compartilhar com todos!! type TcxGridDataControllerAccess = class(TcxGridDataController); procedure TfrmVarAnalises.MoveRecord(ARecordIndex: Integer; IsUpDirection: Boolean); var ANewIndex, ASourceRecordIndex: Integer; begin if IsUpDirection then ASourceRecordIndex := ARecordIndex - 1 else ASourceRecordIndex := ARecordIndex + 1; with TcxGridDataControllerAccess(tbvAnalises.DataController) do begin if (ASourceRecordIndex = RecordCount) or (ASourceRecordIndex 0) then Exit; BeginUpdate; try ANewIndex := AppendRecord; CopyRecord(ARecordIndex, ANewIndex); CopyRecord(ASourceRecordIndex, ARecordIndex); CopyRecord(ANewIndex, ASourceRecordIndex); DeleteRecord(ANewIndex); finally FocusedRecordIndex := ASourceRecordIndex; EndUpdate; end; end; end; // Para subir as linhas... cgdAnalises.SetFocus; if tbvAnalises.Controller.FocusedRowIndex -1 then MoveRecord(tbvAnalises.Controller.FocusedRecordIndex, True); // Para descer as linhas... cgdAnalises.SetFocus; if tbvAnalises.Controller.FocusedRowIndex -1 then MoveRecord(tbvAnalises.Controller.FocusedRecordIndex, False); Obrigado Marcos pelas dicas!!! MuriloCunha. On 23/06/2010 15:29, Marcos Bernardo wrote: Não se se entendi... mas segue... GridDados.DataController.GotoNext; GridDados.DataController.GotoFirst; GridDados.DataController.GotoPrev; GridDados.DataController.GotoLast; Veja se e isso.. abraço Marcos Bernardo Em 23 de junho de 2010 15:22, Murilo Cunhamcscu...@yahoo.com.br escreveu: Pessoal, Como eu faço para subir uma linha em um TcxGridTableView? Gostaria de fazer o seguinte: Linha 1 Produto A R$ 1,25 Linha 2 Produto B R$ 3,50 Linha 3 Produto C R$ 9,50 Subir esta linha ateh o topo (pode ser varias etapas - varios cliques no botao) Linha 4 Produto D R$ 11,80 Linha 1 | Produto C | R$ 9,50 Linha 2 | Produto A | R$ 1,25 Linha 3 | Produto B | R$ 3,50 Linha 4 | Produto D | R$ 11,80 Obrigado MuriloCunha