Generar Mostrar listado lentamente

[Kenobi]

Hola amigos..
requiero llenar un listbox u otro control con un conjunto de resultados que se iran generando de un ciclo, la idea es simular dicha generacion para hacer mas claro el ejemplo a tal fin estoy utilizando

Código Delphi [-]
sleep(numero)

para conseguir que el proceso no sea tan rapido (por asunto de la simulacion del ejemplo que voy a implementar)
el problema es que el sleep me para el proceso de tal manera que solo veo los resultado al final y no es lo que quiero, quiero que se muestre una linea - pausa - otra linea - pausa y asi hasta el final

Gracias por su ayuda....

[Casimiro Noteví]

¿Y podemos ver tu código?

[ecfisa]

Hola kenobi.

Lo que sucede es que el retardo lo tenes que poner cuando "dibuja" el texto, interceptando el evento OnDrawItem del ListBox.

Asocia este código a dicho evento:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   with ListBox1 do
     Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items[Index]);
   Sleep(50); // o lo que quieras...
end;

Saludos.

[Kenobi]

Hola la solucion de colocar en el ondraw no me funciono
a tal fin coloco el fragmento de codigo ...

Código Delphi [-]
for i := 1 to elNumero do
begin
  if (elNumero mod i = 0) then ListaNumero.Items.Add(IntToStr(i));

  Sleep(2);
end;

[Kenobi]

Código Delphi [-]
for i := 1 to elNumero do
begin
  if (elNumero mod i = 0) then
  Begin
  ListaNumero.Items.Add(IntToStr(i));
  listaNumero.Refresh;
  Sleep(100);
  End;
end;

todo consiste en refrescar el listbox en cada iteraccion

gracias por todo amigos

[ecfisa]

Hola de nuevo.

Perdón,no funciona por que olvidé decirte que pongas la propiedad Style del ListBox a ibOwnerFixedDraw. (nosotros dibujamos)

Es más eficiente que hacer un Refresh por cada iteración, pero para pocos datos, va en gustos...


Saludos.

[*Caro*]

Hola kenovi, puedes colocar Application.ProcessMessage en tu ciclo en ves del Refresh.

Código Delphi [-]
for i := 1 to elNumero do
begin
  Application.ProcessMessages;
  if (elNumero mod i = 0) then
  Begin
    ListaNumero.Items.Add(IntToStr(i));
    Sleep(100);
  End;
end;

Saluditos