Página 1 de 1
Barra progressiva (padrão windows) ?
Enviado: 21 Jun 2012 00:25
por 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
Barra progressiva (padrão windows) ?
Enviado: 21 Jun 2012 02:04
por Imatech
Veja os exemplos em WVG para Harbour:
\Harbour\contrib\gtwvg\tests
Ou use WVW com o xH
Barra progressiva (padrão windows) ?
Enviado: 21 Jun 2012 20:08
por 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,
Barra progressiva (padrão windows) ?
Enviado: 21 Jun 2012 21:08
por 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
Barra progressiva (padrão windows) ?
Enviado: 22 Jun 2012 20:55
por 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,
Barra progressiva (padrão windows) ?
Enviado: 22 Jun 2012 22:25
por 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ç...
Barra progressiva (padrão windows) ?
Enviado: 23 Jun 2012 11:23
por lugab
Agora, sim, Jovemxxx, compilou redondo
E muito obrigado, por que era exatamente algo assim que eu tava buscando..
Grato mesmo !!!
Gabriel
Barra progressiva (padrão windows) ?
Enviado: 23 Jun 2012 11:52
por Imatech
Blz...
Baixe tambem o manual da WVW:
download/file.php?id=380
Abç...