Progress además de horizontal en vertical

[fleal]

Sería bueno tener la opción de ponerlo en vertical

Saludos
Fernando

[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

[fleal]

Barbaro,
ustéd siempre trabajando.

Este es mi correo electronico
flealg@prodigy.net.mx

Gracias
Fernando Leal

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

[jose_murugosa]

Antonio,

Muy interesante variante.

Será posible que me la envíes también a mí?

Gracias desde ya.

[Antonio Linares]

Jose,

Lo publicaremos en en build de Mayo.

[lafug]

Antonio,

Perdon la intromisión, pero donde encuentro esta clase?

SALUDOS GRACIAS DE ANTEMANO

[lafug]

encontre la clase

algun ejemplito?

[Antonio Linares]

Luis,

Code: Select all  Expand view  RUN

#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


[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

[fleal]

Solo había que darle doble click al control en el Workshop y agregar en
style | PBS_VERTICAL