Tiempo de proceso excesivo

[Neftali [Germán.Estévez]]

El problema es que los procedimientos de redibujado estarán ocupando todo el tiempo y además es exponencial a medida que vas incrementenado el número de componentes.

Lo primero que se me ocurre es que crees los componentes antes de visualizar el form. A ver si así evitas que se lancen procedimientos de pintado.
¿Dónde llamas actualmente a este procedimiento? ¿En el OnShow? ¿Después del OnShow?

Otra opción es probar, por ejemplo a crearlos dentro de un frame o contenedor con este oculto, y una vez creados todos visualizarlos...

Código Delphi [-]
  panel1.Visible := False;
  try
    edt := TEdit.Create(Self);
    edt.ParentWindow := Panel1.Handle;
    edt.Top := 10;
    edt.Left := 10;
    ....
    Creación de componentes.....
    ...
  finally
    Panel1.Visible := true;
  end;

A ver si esto mejora el tiempo.

[elguille]

Llamaba en el evento oncreate...
He probado lo que me dices, he puesto todo en un panel con visible false y en onshow panel.visible:=true... hasta llegar a la linea panel.visible:=true ha sido inmediato y al ejecutar la linea dicha hace exactamente lo mismo que antes de modificar nada!!!, luego es evidente que es el dibujado y no la creación. habria que encontrar la manera que solo lo dibujara una vez al final y no componente por componente pero no se me ocurre nada aparte de lo que ya hemos probado ¿alguna idea?

Gracias

[Neftali [Germán.Estévez]]

Lo siguiente que se me ocurre es intentar acceder a los eventos WMPAINT de los componentes e intentar que no se lancen hasta que acabe la creación.
Algo así como el DisableControls de los componentes de Base de Datos.

Habría que revisar la VCL y ver los mensajes que se están lanzando para pensar en alguna opción...

[Neftali [Germán.Estévez]]

No la he probado nunca, así que no te se decir si va a servir de algo, pero por probar que no quede.
Revisa información sobre la API LockWindowUpdate.

Échale un vistazo también este mensaje de los foros de EMB.

[elguille]

Empezado por Neftali

No la he probado nunca, así que no te se decir si va a servir de algo, pero por probar que no quede.
Revisa información sobre la API LockWindowUpdate.

Échale un vistazo también este mensaje de los foros de EMB.

Gracias Neftali voy a revisarlo y si consigo algo que funcione lo posteo...

[elguille]

Empezado por elguille

Gracias Neftali voy a revisarlo y si consigo algo que funcione lo posteo...

Lo único que consigo con LockWindowUpdate es retrasar el tiempo de espera hasta la linea LockWindowUpdate(0), creo que al final el problema estará en los botones con formas poliedricas (jan buttons) que empleo necesitan ese tiempo para dibujarse... y eso es irresoluble... voy ha realizar pruebas en ordenadores viejos a ver como va el tiempo...


Saludos..

[Neftali [Germán.Estévez]]

Bueno, yo hace tiempo para cosas similares a esta utilicé el componente TSimpleGraph de DelphiArea.

Para que te hagas una idea, aquí puedes ver algunas imágenes y hacerte a la idea del número de objetos con los que se trabajaba.
Cada objeto es independiente y tiene sus propiedades, se puede seleccionar, arrastrar,...

Cambiar ahora todo el diseño puede ser complejo y costoso, pero al menos tienes una alternativa.

Sería bueno, que utilizaras un Profiler, para ver dónde se está "perdiendo" ese tiempo exactamente.

[elguille]

Empezado por Neftali

Lo siguiente que se me ocurre es intentar acceder a los eventos WMPAINT de los componentes e intentar que no se lancen hasta que acabe la creación.
Algo así como el DisableControls de los componentes de Base de Datos.

Habría que revisar la VCL y ver los mensajes que se están lanzando para pensar en alguna opción...

Lo busqué pero no lo encontré..