jcarlos1361303234 Posted December 6, 2006 Report Share Posted December 6, 2006 ola Pessoal Tem Como fazer Bmp Animado em uma Dialog Obrigado João Carlos Clipper 5.3b - Blinker 7.0 FW2.0D Quote Link to comment Share on other sites More sharing options...
jcarlos1361303234 Posted December 6, 2006 Author Report Share Posted December 6, 2006 ola Pessoal Tem Como fazer Bmp Animado em uma Dialog Obrigado João Carlos Clipper 5.3b - Blinker 7.0 FW2.0D Quote Link to comment Share on other sites More sharing options...
betovsp Posted December 6, 2006 Report Share Posted December 6, 2006 citação:ola Pessoal Tem Como fazer Bmp Animado em uma Dialog Obrigado João Carlos Clipper 5.3b - Blinker 7.0 FW2.0D id=quote>id=quote>João, ve se te ajuda: FUNCTION CriaCdx() PRIVATE oBmp PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"} DEFINE FONT oFnt1 NAME "MS Sans Serif" DEFINE FONT oFnt2 NAME "MS Sans Serif" BOLD DEFINE DIALOG oDlgCdx FROM 1,15 TO 354,655 PIXEL STYLE nOr(DS_MODALFRAME) TITLE " Reorganização dos Arquivos" @ 4.5,1 GROUP oGroup1 TO 11,44.7 OF oDlgCdx @ 20,50 BITMAP oBmp RESNAME aBmp SIZE 25,24 OF oDlgCdx PIXEL NOBORDER oBmp:lTransparent:=.T. @ 18,120 SAY "Reorganização dos Arquivos de Sistema" FONT oFnt2 SIZE 150,8 OF oDlgCdx PIXEL @ 28,120 SAY "Aguarde o Término da Reorganização" FONT oFnt2 SIZE 150,8 OF oDlgCdx PIXEL @ 38,120 SAY "Obs.: Todas as Estações devem estar Fora do Sistema" FONT oFnt2 SIZE 180,8 OF oDlgCdx PIXEL @ 84.8,56.5 SAY oTxt1 VAR cTxt1 FONT oFnt1 SIZE 200,6.5 OF oDlgCdx PIXEL ometDbf:=tProgress():New(6.2,9.4,oDlgCdx,,,,,,210,10) @ 112.7,56.5 SAY oTxt2 VAR cTxt2 FONT oFnt1 SIZE 200,6.5 OF oDlgCdx PIXEL ometCdx:=tProgress():New(8.1,9.4,oDlgCdx,,,,,,210,10) oDlgcdx:bStart:={|| ScrolMeter(oDlgcdx),lEsc:=.T.,oDlgcdx:End()} ACTIVATE DIALOG oDlgCdx CENTER ON INIT TimerBmp() VALID lEsc oFnt1:End() ; CursorArrow() ; SysRefresh() RETURN(NIL) STATIC FUNCTION TimerBmp() DEFINE TIMER oTimer INTERVAL 150 ACTION (IF(i>=6,i:=1,(oBmp:Reload(aBmp),i++)),oBmp:Refresh(.F.)) OF oDlgCdx //MudaBmp() oTimer:Activate() RETURN(.T.) id='Arial'>Abraços. Beto Msn: betovsp@hotmail.com Skype: betovsp Alternativo: betovsp@pontobinfo.com CL53B + FW2.0d + @ SAY/GET + BLINKER 7 Ribeirão Preto/SP Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 6, 2006 Report Share Posted December 6, 2006 http://www.fivewin.com.br/exibedicas.asp?id=602 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jcarlos1361303234 Posted December 6, 2006 Author Report Share Posted December 6, 2006 Ajuda sim Beto Baixei tbem a dica que o João me passou, mas eu nao temo o arquivo ANIMABMP.CH Sera que vc poded me enviar Obrigado João Carlos Msn: joaoc.machado@hotmail.com Clipper 5.3 - Blinker 7.0 - Fw 2.0d Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 6, 2006 Report Share Posted December 6, 2006 //--------------------------------------------------------------------------// // ANIMABMP.CH - Comandos para a classe TAnimaBmpmp //--------------------------------------------------------------------------// #ifndef TAnimaBmpMP_CH #define TAnimaBmpMP_CH #xcommand @ , ANIMABMP [ ] ; [ ] ; [ SIZE , ] ; [ GLIPS ] ; [ SPEED ] ; [ ] ; => ; [ := ] TAnimaBmp():New( , , , ,; , , , ) #xcommand REDEFINE ANIMABMP [ ] ; [ ] ; [ ID ] ; [ GLIPS ] ; [ SPEED ] ; [ ] ; => ; [ := ] TAnimaBmp():ReDefine( , , ,; , ) #endif id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jcarlos1361303234 Posted December 6, 2006 Author Report Share Posted December 6, 2006 Esse eo Kara Valeo mesmo João Valeo Beto Fico te devendo mais uma Brigadu... João Carlos Msn: joaoc.machado@hotmail.com Clipper 5.3 - Blinker 7.0 - Fw 2.0d Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted January 16, 2008 Report Share Posted January 16, 2008 Betovsp.... Tá dando um erro neste ScrolMeter... oDlgcdx:bStart:={||ScrolMeter(oDlgcdx),lEsc:=.T.,oDlgcdx:End()} XHarbourAbraço... Gilberto Herminio - Programador Pleno III Marpress Informática Eu Uso:XHB0.99.4(Simplex)+FWH25+BCC55+XDevStudio "A Verdadeira amizade se constroe de pequenos gestos de ajuda multua" Quote Link to comment Share on other sites More sharing options...
aferra Posted January 16, 2008 Report Share Posted January 16, 2008 Olá Gilberto, qual é o erro??? Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Aceita o conselho dos outros, mas nunca desistas da tua própria opinião"id=red> Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted January 16, 2008 Report Share Posted January 16, 2008 ...para ser mais preciso : Unresolved external _HB_FUNC_SCROLMETER referenced from BMANIM.OBJ XHarbourAbraço... Gilberto Herminio - Programador Pleno III Marpress Informática Eu Uso:XHB0.99.4(Simplex)+FWH25+BCC55+XDevStudio "A Verdadeira amizade se constroe de pequenos gestos de ajuda multua" Quote Link to comment Share on other sites More sharing options...
betovsp Posted January 16, 2008 Report Share Posted January 16, 2008 citação:...para ser mais preciso : Unresolved external _HB_FUNC_SCROLMETER referenced from BMANIM.OBJ XHarbourAbraço... Gilberto Herminio - Programador Pleno III Marpress Informática Eu Uso:XHB0.99.4(Simplex)+FWH25+BCC55+XDevStudio "A Verdadeira amizade se constroe de pequenos gestos de ajuda multua" id=quote>id=quote>Falta a função scrolmeter() while .T. oMetDbf:nPosition += 1 IF indexa==1 oTxt1:SetText("Arquivo de Senhas") USE apsen ALIAS Sen NEW EXCLUSIVE VIA "DBFCDX" nTotalCdx:=1 oMetCdx:SetRange( 0, nTotalCdx ) oMetCdx:nPosition:=0 oTxt2:SetText("Indexando o Arquivo Por Código") INDEX ON CODIGO TAG cod TO apsen //1 oMetCdx:nPosition += 1 ; SysRefresh() ; CursorWait() ELSEIF indexa==2 oTxt1:SetText("Arquivo de Estações") USE apimp Alias Imp NEW EXCLUSIVE VIA "DBFCDX" nTotalCdx:=1 oMetCdx:SetRange( 0, nTotalCdx ) oMetCdx:nPosition:=0 oTxt2:SetText("Indexando o Arquivo Por Estação") INDEX ON estacao TAG estacao TO apimp //1 oMetCdx:nPosition += 1 ; SysRefresh() ; CursorWait() END dbCloseArea() IF dAllCdx .AND. indexa <= qTotDbf indexa++ ELSE EXIT END END oDlgCdx:End() ; CursorArrow() RETURN(NIL) id=code>id=code>Abraços. Beto Msn: betovsp@hotmail.com CL53B+FW2.0d+@SAY/GET+BLINKER7 Ribeirão Preto/SP "Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus." Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted January 16, 2008 Report Share Posted January 16, 2008 ...BetoVsp ...só mais este errinho..(rsrsrs) : Dá onde vem a variavel (i) abaixo do aBmp @ 20,50 BITMAP oBmp RESNAME aBmp SIZE 25,24 OF oDlgCdx PIXEL NOBORDER XHarbourAbraço... Gilberto Herminio - Programador Pleno III Marpress Informática Eu Uso:XHB0.99.4(Simplex)+FWH25+BCC55+XDevStudio "A Verdadeira amizade se constroe de pequenos gestos de ajuda multua" Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 16, 2008 Report Share Posted January 16, 2008 aBmp -> Provavelmente de Um ARRAY() de Bitmaps. Exemplo: LOCAL aBmp := ARRAY(5) João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 16/01/2008 14:34:01 Quote Link to comment Share on other sites More sharing options...
betovsp Posted January 17, 2008 Report Share Posted January 17, 2008 citação:aBmp -> Provavelmente de Um ARRAY() de Bitmaps. Exemplo: LOCAL aBmp := ARRAY(5) João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 16/01/2008 14:34:01 id=quote>id=quote>Eita João, correto: PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"} Beto Msn: betovsp@hotmail.com CL53B+FW2.0d+@SAY/GET+BLINKER7 Ribeirão Preto/SP "Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus." Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 17, 2008 Report Share Posted January 17, 2008 citação: citação:aBmp -> Provavelmente de Um ARRAY() de Bitmaps. Exemplo: LOCAL aBmp := ARRAY(5) João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 16/01/2008 14:34:01 id=quote>id=quote>Eita João, correto: PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"} Beto Msn: betovsp@hotmail.com CL53B+FW2.0d+@SAY/GET+BLINKER7 Ribeirão Preto/SP "Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus." id=quote>id=quote>PORQUE PRIVATE -> PRIVATIVAS, BETO??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
betovsp Posted January 17, 2008 Report Share Posted January 17, 2008 citação: citação: citação:aBmp -> Provavelmente de Um ARRAY() de Bitmaps. Exemplo: LOCAL aBmp := ARRAY(5) João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 16/01/2008 14:34:01 id=quote>id=quote>Eita João, correto: PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"} Beto Msn: betovsp@hotmail.com CL53B+FW2.0d+@SAY/GET+BLINKER7 Ribeirão Preto/SP "Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus." id=quote>id=quote>PORQUE PRIVATE -> PRIVATIVAS, BETO??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Estou privando a variável João... ehehehehhehe Só pode ser usada neste prg. Beto Msn: betovsp@hotmail.com CL53B+FW2.0d+@SAY/GET+BLINKER7 Ribeirão Preto/SP "Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus." Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 17, 2008 Report Share Posted January 17, 2008 citação: citação: citação: citação:aBmp -> Provavelmente de Um ARRAY() de Bitmaps. Exemplo: LOCAL aBmp := ARRAY(5) João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 16/01/2008 14:34:01 id=quote>id=quote>Eita João, correto: PRIVATE aBmp:={"Indice1","Indice2","Indice3","Indice4","Indice5"} Beto Msn: betovsp@hotmail.com CL53B+FW2.0d+@SAY/GET+BLINKER7 Ribeirão Preto/SP "Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus." id=quote>id=quote>PORQUE PRIVATE -> PRIVATIVAS, BETO??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Estou privando a variável João... ehehehehhehe Só pode ser usada neste prg. Beto Msn: betovsp@hotmail.com CL53B+FW2.0d+@SAY/GET+BLINKER7 Ribeirão Preto/SP "Ainda que nossos olhos não pudessem ver, nossos ouvidos não existissem, restaria o nosso pensamento para vermos, ouvirmos e falarmos com Deus." id=quote>id=quote>hahahaha. Oras, se LOCAL, também só pode usar no LOCAL. E SE EU DISSER: MEMVAR BETO PRIVATE BETO id=code>id=code>O QUE ACONTECE, BETO? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.