Barra progressiva (padrão windows) ?

[lugab]

Ola amigos...

Será q alguns de vcs poderiam fazer "transferência de tecnologia em modo free" para mim ?

Eu uso , ha tempos, uma barra progressiva do clipper que acho "quase horrorosa" e hoje eu gostaria de exibir algo mais light, menorzinha, tipo aquleas barras do windows...

Eu uso o xharbour

Ah, sim, eu ja andei fuçando aqui no fórum e vi muitas na seção clipper, mas ,provavelmente, é algo parecido com o que já tenho..


Grato ae

Gabriel

[Imatech]

Veja os exemplos em WVG para Harbour:

\Harbour\contrib\gtwvg\tests

Ou use WVW com o xH

[lugab]

Value a idéia,.jovemxxx, mas ante de criar esse tpc eu fucei aqui no fórum e tb dei uma varrida nas minhas contribs (gtwvw, wvwtools , vlib, xharbour) e não encontrei nada a respeito...]

Encontrei muita coisa foi de código de barras, mas nada de barra progressiva..

Então, eu continuo na expectativa de alguém postar alguma coisa

Grato,

[Imatech]

wvw_pgcreate()

Código: Selecionar todos

FUNCTION IndexBar
PARAM mfile, mkey, mrow, showcount
PRIVATE ret_val:=.f.,mpg
mkey = IF(PCOUNT() < 2, mfile, mkey)
IF ! TYPE(mkey) $ "UE"
 mpg=wvw_pgcreate(,17,22,17,67,,,rgb(112,112,250),.t.)
 SET INDEX TO
 IF LASTREC() > 0
   if substr(dtos(date()),7,2)="01" .or. substr(dtos(date()),7,2)="15"
    pack
   endif
   mfile = UPPER(mfile) + IF(! "CDX" $ UPPER(mfile), ".CDX", "")
   GO TOP
   INDEX ON &mkey TO (mfile) EVAL {||GFShowbar()} every reccount()/100
   SET INDEX TO
   SET INDEX TO (mfile)
   ret_val = .t.
 ELSE
   INDEX ON &mkey TO (mfile)
 ENDIF
 wvw_pgdestroy(,mpg)
ENDIF
RETURN ret_val


FUNCTION GFShowBar
local mpos
IF RECNO() <= RECCOUNT()
 IF RECNO() <> RECCOUNT()
   mpos=wvw_pggetpos(,mpg)
   wvw_pgsetpos(,mpg,mpos+1)
 ENDIF
ENDIF
RETURN .t.

por Luciano Bonfim » 12 Nov 2007 22:19

[lugab]

Obrigado, Jovemxxx...

Mas me ajude um pouco mais e diga em que .CH eu encontro esse "EVERY" da função...

Por conta dele eu ainda não consegui compilar sua dica no meu xharbour..

Grato,

[Imatech]

std.ch

Na prática: Não aconselho utilizar isto na criação de índices... só um exemplo base...

Código: Selecionar todos

#command INDEX ON <key> [TAG <(tag)>] TO <(bag)> ;
               [FOR <for>] [WHILE <while>] [NEXT <next>] ;
               [RECORD <rec>] [<rest:REST>] [<all:ALL>] ;
               [EVAL <eval>] [EVERY <every>] [<unique: UNIQUE>] ;
               [<ascend: ASCENDING>] [<descend: DESCENDING>] ;
               [<add: ADDITIVE>] [<cur: USECURRENT>] [<cust: CUSTOM>] ;
               [<noopt: NOOPTIMIZE>] [<mem: MEMORY, TEMPORARY>] ;
               [<filter: USEFILTER>] [<ex: EXCLUSIVE>] => ;
         ordCondSet( <"for">, <{for}>, [<.all.>], <{while}>, ;
                     <{eval}>, <every>, RECNO(), <next>, <rec>, ;
                     [<.rest.>], [<.descend.>],, ;
                     [<.add.>], [<.cur.>], [<.cust.>], [<.noopt.>], ;
                     <"while">, [<.mem.>], [<.filter.>], [<.ex.>] ) ;;
         ordCreate( <(bag)>, <(tag)>, <"key">, <{key}>, [<.unique.>] )

#command INDEX ON <key> TAG <(tag)> [TO <(bag)>] ;
               [FOR <for>] [WHILE <while>] [NEXT <next>] ;
               [RECORD <rec>] [<rest:REST>] [<all:ALL>] ;
               [EVAL <eval>] [EVERY <every>] [<unique: UNIQUE>] ;
               [<ascend: ASCENDING>] [<descend: DESCENDING>] ;
               [<add: ADDITIVE>] [<cur: USECURRENT>] [<cust: CUSTOM>] ;
               [<noopt: NOOPTIMIZE>] [<mem: MEMORY, TEMPORARY>] ;
               [<filter: USEFILTER>] [<ex: EXCLUSIVE>] => ;
         ordCondSet( <"for">, <{for}>, [<.all.>], <{while}>, ;
                     <{eval}>, <every>, RECNO(), <next>, <rec>, ;
                     [<.rest.>], [<.descend.>],, ;
                     [<.add.>], [<.cur.>], [<.cust.>], [<.noopt.>], ;
                     <"while">, [<.mem.>], [<.filter.>], [<.ex.>] ) ;;
         ordCreate( <(bag)>, <(tag)>, <"key">, <{key}>, [<.unique.>] )

Abç...

[lugab]

Agora, sim, Jovemxxx, compilou redondo

E muito obrigado, por que era exatamente algo assim que eu tava buscando..

Grato mesmo !!!

Gabriel

[Imatech]

Blz...

Baixe tambem o manual da WVW:

download/file.php?id=380


Abç...