Page 1 of 1
Progress además de horizontal en vertical
Posted: Thu Apr 13, 2006 7:17 pm
by fleal
Sería bueno tener la opción de ponerlo en vertical
Saludos
Fernando
Posted: Thu Apr 13, 2006 9:59 pm
by Antonio Linares
Fernando,
Implementado. Te lo enviamos por email para que lo pruebes. A que email te lo enviamos ?
Aqui puedes ver como queda:
Desde código fuente se usa la nueva cláusula VERTICAL, y desde recurso hay que especificar el estilo #define PBS_VERTICAL 4
A este mail
Posted: Thu Apr 13, 2006 11:43 pm
by fleal
Barbaro,
ustéd siempre trabajando.
Este es mi correo electronico
flealg@prodigy.net.mxGracias
Fernando Leal
Antonio Linares wrote:Fernando,
Implementado. Te lo enviamos por email para que lo pruebes. A que email te lo enviamos ?
Aqui puedes ver como queda:
Desde código fuente se usa la nueva cláusula VERTICAL, y desde recurso hay que especificar el estilo #define PBS_VERTICAL 4
Posted: Fri Apr 14, 2006 3:48 am
by jose_murugosa
Antonio,
Muy interesante variante.
Será posible que me la envíes también a mí?
Gracias desde ya.
Posted: Fri Apr 14, 2006 7:28 am
by Antonio Linares
Jose,
Lo publicaremos en en build de Mayo.
Posted: Fri Apr 14, 2006 3:03 pm
by lafug
Antonio,
Perdon la intromisión, pero donde encuentro esta clase?
SALUDOS GRACIAS DE ANTEMANO
Posted: Fri Apr 14, 2006 3:38 pm
by lafug
encontre la clase
algun ejemplito?
Posted: Fri Apr 14, 2006 6:30 pm
by Antonio Linares
Luis,
Code: Select all | Expand
#include "FiveWin.ch"
function Main()
local oDlg, oProg, nValue := 30, oProg2, nValue2 := 20
DEFINE DIALOG oDlg TITLE "Progress Bars"
@ 1, 1 PROGRESS oProg POSITION nValue SIZE 80, 12
@ 1, 20 PROGRESS oProg2 POSITION nValue2 SIZE 12, 50 VERTICAL
@ 3, 9 BUTTON "Ok" ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTER ;
ON INIT ( oProg:nPosition := nValue,;
oProg2:nPosition := 50 )
return nil
Gracias, funciona muy bien en código.
Posted: Fri Apr 21, 2006 4:38 pm
by fleal
¿Cómo lo pinto en el Workshop?
he intentando solo arrastrarlo y compactarlo hasta dejarlo vertical pero el meter sigue apareciendo en horizontal.
Esto fué lo que hice:
1) Cambiar mi fivewin.ch por el nuevo fivewin.ch
2) Recompilar el tprogres.prg y agregar el obj resultante a mi compilación
3) Editar mi archivo RC y al principio agregar #define PBS_VERTICAL 4
Entonces en el PRG para usarlo hago
REDEFINE PROGRESS oProgress ID 331 OF oDlg VERTICAL
Al compilar me aparece un
warning W0001 Ambiguous reference: 'VERTICAL'
Pregunta. ¿En que la he regado?
Gracias
Ya funciona en recursos
Posted: Fri Apr 21, 2006 4:59 pm
by fleal
Solo había que darle doble click al control en el Workshop y agregar en
style | PBS_VERTICAL