Re: RES: [delphi-br] TcxGrid

Fri, 23 Apr 2010 07:58:01 -0700 

 Murilo,

Tempos atrás eu achei esta procedure. Veja se ajuda... 


procedure TForm32.Button1Click(Sender: TObject);

  procedure FillViewWithData(AView: TcxGridTableView; ARecordCount: Integer);
  var
    I, J: Integer;
  begin
    AView.DataController.RecordCount := ARecordCount;
    AView.BeginUpdate;
    try
      for I := 0 to ARecordCount - 1 do
      begin
        //AView.DataController.AppendRecord;
        for J := 0 to AView.ColumnCount - 1 do
          AView.ViewData.Rows[I].Values[J] := Random(100000);
      end;
    finally
      AView.EndUpdate;
    end;
  end;

const
  MasterRecordCount = 200;
  DetailRecordCount = 100;
var
  I: Integer;
begin
  Grid.BeginUpdate;
  try
    FillViewWithData(View1, MasterRecordCount);
    for I := 0 to View1.ViewData.RowCount - 1 do
      
FillViewWithData(TcxGridTableView(View1.ViewData.Rows[I].AsMasterDataRow.ActiveDetailGridView),
        DetailRecordCount);
  finally
    Grid.EndUpdate;
  end;
end;


[]'s
Malomar Alex Seminotti
Erechim - RS


------------- Mensagem Original -------------Data: Sexta-feira, 23 de Abril de 
2010 10:14De: Murilo Cunha  < mcscu...@yahoo.com.br >Para: 
delphi...@yahoogrupos.com.brassunto: Re: RES: [delphi-br] TcxGrid  
Pessoal, 
 
Sera que alguem poderia me passar esta pasta de DEMOS da DevExpress? 
 
Obrigado. 
MuriloCunha 
 
 
 
On 23/04/2010 10:02, Vitor Yahoo wrote: 
> Cara, é muito mais fácil você trabalhar com um TClientDataSet virtual. Tem 
> um exemplo na pasta demo (não tenho certeza) que ensina a trabalhar com o 
> TcxGrid sem DataSource, mas ainda acho que o DataSet virtual resolveria 
mais 
> facilmente a questão, apesar de não saber qual é a questão, hehe. 
> 
> 
> 
>    _____ 
> 
> De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em 
> nome de Murilo Cunha 
> Enviada em: quinta-feira, 22 de abril de 2010 15:27 
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: [delphi-br] TcxGrid 
> 
> 
> 
> 
> 
> Pessoal, 
> 
> Quem manja de mexer com o componente TcxGrid, do pacote da DevExpress?? 
> Nao estou conseguindo inserir dados nele. Nao quero liga-lo a um 
> DataSource, quero inserir dados como se fosse um TStringGrid. 
> Ha como fazer isso via programacao? 
> 
> Se souberem me passe o e-mail para enviar um sisteminha de testes para 
> me ajudar a trabalhar com este componente. 
> 
> Obrigado. 
> MuriloCunha 
> 
> 
> 
> 
> 
> [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 
 
 
 


[As partes desta mensagem que não continham texto foram removidas]

Responder a