![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
He hecho lo que tu dices, proyecto nuevo, 2 button y un progressbar, el codigo y el resultado es el mismo, no llega al 100%.
Si pongo el repaint, si que funciona pero el tiempo se multiplica. Me puedes pasar tu exe compilado, a ver si es problema de compilacion o de procesador o tarjeta grafica. Si puedes mandamelo a esta direccion xxxxxx@xxxxxx.xx 2 botones y y progress bar, esta es la Unit tal cual
Gracias. Última edición por Casimiro Notevi fecha: 25-02-2015 a las 17:36:30. Razón: Las cosas del foro, en los foros :) Mira nuestra guía de estilo. |
#2
|
|||
|
|||
Nuevos datos
Si State = pbsNormal el recorrido (1 pasada) lo hace en menos de 1 segundo pero no repinta bien Si State es pbsError o pbsPaused tarda bastante mas y repinta bien. ¿Cuanto te tarda a ti mas o menos en hacer los 100000 ciclos? |
#3
|
||||
|
||||
Me tarda 28 a 32 segundos sin hacer nada en el bucle.
Tarda de 49 a 52 segundos si hago Repaint o ProcessMessages.
|
#4
|
||||
|
||||
Te dejo el ejemplo que hice aquí: https://www.dropbox.com/s/c376crthg5...uebas.zip?dl=0
Es el código del proyecto y el ejecutable. |
#5
|
||||
|
||||
atani123,
Cita:
![]() Pregunto: ¿Que versión de Delphi y Windows utilizas?, ¿Es Windows de 32 o 64 bits?. Revisa este código: El código anterior en Delphi XE7 sobre Windows 7 Professional x32, Ejemplifica el uso de un TProgressBar en un hilo y como sincronizar este con la aplicación, como se muestra en la siguiente imagen: ![]() Nota: El código del ejemplo, funciona correctamente en Delphi 7 sobre Windows 7 Professional x32. Espero sea útil ![]() Nelson. Última edición por nlsgarcia fecha: 03-03-2015 a las 03:01:03. |
#6
|
|||
|
|||
Cita:
Mira, he puesto tu ejecutable, sin compilar ni tocar nada como podras ver en la fecha de exe es el que tu me has pasado y he hecho un video con los resultados, exactamente los mismo. Asi que debe de ser algo de windows, es muy extraño. (W7 profesional x64) https://dl.dropboxusercontent.com/u/72239104/prueba.zip |
#7
|
||||
|
||||
atani123,
Cita:
![]() Pregunto : ¿Probastes el código sugerido el Msg #9? ![]() Te comento que el código del Msg #9 funciona sin ningún tipo de cambio en Delphi 7 y Delphi XE7 sobre Windows 7 Professional x32 y Delphi XE4 sobre Windows 7 Professional x64, te sugiero probarlo sin ninguna modificación y ver si se mantiene el mismo comportamiento. Espero sea útil ![]() Nelson. |
#8
|
|||
|
|||
Buenos dias de nuevo, nlsgarcia si que probé tu codigo y funciona correctamente pero siceramente se complica demasiado para simplemente utilizar un progressbar.
El objetivo final es que el progressbar vaya incluido dentro del evento OnzipProgress del Tzipmaster por eso el StepIt no me sirve y utilizo el Position. Los nuevos avances son los siguientes, he coseguido que funcione con el codigo original, cambiando dentro de las opciones de aplicacion el Thenes, es decir, "Project/Options/Application/Runtime Themes = None" pero vamos, pierde toda la gracia de windows 7. Tengo que decir que decir tambien que TProgressBar tienes 2 propiedades que son el BarColor y BarBackgroundColor, que por supuesto no funcionan a no ser que se desactive lo de los temas. No se, ¿alguien tiene alguna idea o algo que aportar?, Gracias a todos |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problema TProgressBar e IdFTP | jlrdz | OOP | 1 | 14-06-2011 13:19:21 |
Generar TProgressBar en Forma Dinámica | GerTorresM | OOP | 1 | 12-04-2009 03:02:04 |
TProgressBar cíclico nativo (marquee) (añadida solución 3) | xEsk | Trucos | 11 | 04-12-2008 21:13:58 |
TProgressBar | Delphius | OOP | 2 | 09-12-2004 05:31:46 |
![]() |
|