trocar o fundo parcial do label

[JoséQuintas]

Tem como trocar parcialmente a cor de fundo do label ?
Queria fazer uma barra de progresso com texto.

[Nascimento]

Sim , só vc usar o SetProperty ( "main","label1","BackColor",RED) // não testei mais acredito que funcione

[JoséQuintas]

Parcial, não total.

[JoséQuintas]

Solução simples, se um label não vai, usamos dois, ou três.

Minha barra de progresso, que gosto muito, com estimativa de tempo

Apenas teste em minigui

test2.png (7.11 KiB) Exibido 3853 vezes

Código: Selecionar todos

#include "hmg.ch"
#include "i_altsyntax.ch"

PROCEDURE Main

   SET WINDOW MAIN OFF

   DEFINE WINDOW Test ;
         ROW 0 ;
         COL 0 ;
         WIDTH 1024 ;
         HEIGHT 768

      DEFINE LABEL Lab1
         PARENT test
         ROW 5
         COL 5
         WIDTH 500
         HEIGHT 20
         VALUE "Elapsed:  Remaining:"
      END LABEL

      DEFINE LABEL Lab2
         PARENT test
         ROW 25
         COL 5
         WIDTH 500
         HEIGHT 20
         VALUE "test"
         BORDER .T.
      END LABEL

      DEFINE LABEL Lab3
         PARENT test
         ROW 25
         COL 5
         WIDTH 100
         HEIGHT 20
         VALUE "test"
         BACKCOLOR { 190, 190, 255 }
      END LABEL

   END WINDOW

   CENTER WINDOW Test
   ACTIVATE WINDOW test

[Nascimento]

WIDTH 500 , vc tem que aumentar o width tbm...., mais porque não usar o progressBar?

[JoséQuintas]

o width é justamente por onde vai controlar o andamento do processo.
A progressbar é limitada.

[Nascimento]

faça o seguinte teste tire o WIDTH , e coloque simplismente AUTOSIZE e bote espaços no test+space(i) para ver se vai dar o resultado que vc quer

[JoséQuintas]

Esse autosize vai ser bom, elimina necessidade de width aonde não precisar de border.

[ivanil]

A progressbar é limitada.

Se procura por algo mais avançado tem o progresswhell;

Código: Selecionar todos

DEFINE PROGRESSWHEEL 
[ PARENT <ParentWindowName> ]
COL <nCol>
ROW <nRow>
[ RANGEMIN <nRangeMin> ]
[ RANGEMAX <nRangeMax> ]
[ VALUE <nValue> ] 
[ WIDTH <nWidth> ]
[ HEIGHT <nHeight> ] 
[ <ShowText : SHOWTEXT> ] ;
[ STARTANGLE <StartAngle> ] ;
[ INNERSIZE <InnerSize> ] ;
[ GRADIENTMODE <GradientMode> ] ;
[ COLORDONEMIN <ColorDoneMin> ] ;
[ COLORDONEMAX <ColorDoneMax> ] ;
[ COLORREMAIN <ColorRemain> ] ;
[ COLORINNER <ColorInner> ]

END PROGRESSWHEEL 

[JoséQuintas]

Criei essa que calcula tempo usando a WINDOW PANEL

Dá pra fazer muita coisa com ela.
É quase um controle de usuário pra fazer o que quiser.

Provavelmente com bostaurus dê pra brincar muito mais.

Estou mais é lançando a idéia de que WINDOW PANEL pode ser melhorada pra ser muito mais do que já é.
Talvez possa ser criado algo mais específico pra criar controles fácil.