oziel Posted August 1, 2011 Report Share Posted August 1, 2011 Na conversão do mesus programas de FW 2.2 para FWH deparei com dois problemas. Um está relacionado com o Meter e o outro com botões tipo Delphi. (FuncGrh.prg e Cadastro.prg) Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_GETSYSMETRIC' referenced from FUNCGRH.OBJ Error: Unresolved external '_HB_FUN_TDBTNBMP' referenced from CADASTRO.OBJ // ---- Programa de Indexação -> FUNCGRH.PRG ----------------------------- #include "FiveWin.ch" #Include 'Inkey.Ch' #Include "Memo.ch" // ----------------------------------------------------------------------- // Reindexar // ----------------------------------------------------------------------- PROCEDURE Reindexar LOCAL bAction bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) } If MsgYesNo(" Confirma a Reorganizacao ? "," Mensagem: ") = .T. Continue Else MsgRun(" Retornando ao Sistema... "," Mensagem ") Return Endif MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" ) RETURN //------------------------------------------------------------------------ STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd) oText:SetText("Classificando Atendimentos... Arq ") Use ATENDE Alias ATENDE EXCLU oMeter:nTotal := ATENDE->( LastRec()*5 ) INDEX ON NOME TAG ATENDEN TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 1 ............... Return (Nil) //----- Programa Cadastro.prg -------------------------------------------- #include "FiveWin.ch" #include "Report.ch" #include "dbtnBMP.ch" #include "tcbrowse.ch" #include "corget.ch" ... @ 09.5,45.0 SAY obj9 prompt cObj9 of oDlg COLOR CLR_RED FONT oFnt @ 09.6,01.0 SAY 'Pesquisas:' of oDlg COLOR CLR_BLUE FONT oFnt ..... @ 158.9,003.0 DBUTTON "Idade" FILE ".\BMP\PESQ.BMP" SIZE 40,20 GLIP POS 3 ; ACTION( PesqIdade ( .T. ), ; oBrw:Refresh() ) ; TOOLTIP OemToAnsi( "Pesquisar Cadastro por faixa et ria" ) .... ACTIVATE DIALOG oDlg CENTERED RELEASE oFnt RETURN NIL //------------------------------ OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Editado por - oziel on 01/08/2011 15:04:20 Quote Link to comment Share on other sites More sharing options...
oziel Posted August 1, 2011 Author Report Share Posted August 1, 2011 Na conversão do mesus programas de FW 2.2 para FWH deparei com dois problemas. Um está relacionado com o Meter e o outro com botões tipo Delphi. (FuncGrh.prg e Cadastro.prg) Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_GETSYSMETRIC' referenced from FUNCGRH.OBJ Error: Unresolved external '_HB_FUN_TDBTNBMP' referenced from CADASTRO.OBJ // ---- Programa de Indexação -> FUNCGRH.PRG ----------------------------- #include "FiveWin.ch" #Include 'Inkey.Ch' #Include "Memo.ch" // ----------------------------------------------------------------------- // Reindexar // ----------------------------------------------------------------------- PROCEDURE Reindexar LOCAL bAction bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) } If MsgYesNo(" Confirma a Reorganizacao ? "," Mensagem: ") = .T. Continue Else MsgRun(" Retornando ao Sistema... "," Mensagem ") Return Endif MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" ) RETURN //------------------------------------------------------------------------ STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd) oText:SetText("Classificando Atendimentos... Arq ") Use ATENDE Alias ATENDE EXCLU oMeter:nTotal := ATENDE->( LastRec()*5 ) INDEX ON NOME TAG ATENDEN TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 1 ............... Return (Nil) //----- Programa Cadastro.prg -------------------------------------------- #include "FiveWin.ch" #include "Report.ch" #include "dbtnBMP.ch" #include "tcbrowse.ch" #include "corget.ch" ... @ 09.5,45.0 SAY obj9 prompt cObj9 of oDlg COLOR CLR_RED FONT oFnt @ 09.6,01.0 SAY 'Pesquisas:' of oDlg COLOR CLR_BLUE FONT oFnt ..... @ 158.9,003.0 DBUTTON "Idade" FILE ".\BMP\PESQ.BMP" SIZE 40,20 GLIP POS 3 ; ACTION( PesqIdade ( .T. ), ; oBrw:Refresh() ) ; TOOLTIP OemToAnsi( "Pesquisar Cadastro por faixa et ria" ) .... ACTIVATE DIALOG oDlg CENTERED RELEASE oFnt RETURN NIL //------------------------------ OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Editado por - oziel on 01/08/2011 15:04:20 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 1, 2011 Report Share Posted August 1, 2011 Primeira: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=5862&ARCHIVE= João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 1, 2011 Report Share Posted August 1, 2011 Segunda: TDBTNBMP Você está incorporando a TDBTNBMP de 16 Bits, tens que incorporar as 32 bits. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 1, 2011 Report Share Posted August 1, 2011 Terceira: http://www.fivewin.com.br/exibedicas.asp?id=555 http://www.fivewin.com.br/exibedicas.asp?id=318 João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
oziel Posted August 1, 2011 Author Report Share Posted August 1, 2011 Ok.. Obrigado. Vou fazer as alterações... Em breve dou o retorno... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
oziel Posted August 3, 2011 Author Report Share Posted August 3, 2011 A 1ª dica deu certo, incorporei as alterações no inicio do prog. FUNCGRH.PRG A 2ª que refere-se ao DBUTTONS - incorporei a DBTNBMP.CH e o erro continuou peguei o prog. DBTNBMP.PRG (DBUTONS32->SOURCE->DBTNBMP.PRG) e incorporei ao sistema, na criação do .OBJ surgiu a mensagem abaixo - ref. a função PINTA() E DRAWDBTNBMP() que não foram encontradas. Retirei as linhas para o sistema compilar, houve a compilção mas não saiu as imagens dos botões. Vejam a mensagem: Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_PINTA' referenced from DBTNBMP.OBJ Error: Unresolved external '_HB_FUN_DRAWDBTNBMP' referenced from DBTNBMP.OBJ ................... * IF !::lNoBorder * Pinta( ::hWnd,; * if(::lIsSwitch,::lSwitch,::lPressed),; * (::lGainFocus .OR. ::lFocused) .AND. !::lBar,; * if(::lIsSwitch .AND. ::lSwitch, GetSysColor(COLOR_HIGHLIGHTTEXT) ,::nClrPane),; * ::hDC ) * ENDIF ::lGainFocus := .F. * IF ::hBitmap != 0 * IF lPaintBmp * DrawDBtnBmp(::hDc, ::nPosBmpY, ::nPosBmpX,; * ::nBmpWidth/::nClips , ::nBmpHeight , ABS(::aClipPos[::nActClip])-1,; * ::hBitmap, ::hPalette, If(!::lFill,::nFillType,0), ::hWnd,; * if(::lIsSwitch .AND. ::lSwitch, GetSysColor(COLOR_HIGHLIGHTTEXT) ,::nClrPane),; * if(::aClipPos[5]<0,!::lActive,.F.) ) * ENDIF * ::lFill:= .T. * ENDIF OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
vagner Posted August 3, 2011 Report Share Posted August 3, 2011 Olá, Com certeza, não irá nem pintar o botão, e nem desenhas a imagem, vc retirou as rotinas que fazem isso Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
oziel Posted August 3, 2011 Author Report Share Posted August 3, 2011 Pois é... Não consegui achar essas duas rotinas nos fontes, retirei para o sistema funcionar. Vc. sabe onde encontra-la ??? OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
vagner Posted August 3, 2011 Report Share Posted August 3, 2011 Olá, Creio ser mais fácil vc usar outro tipo de botão Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
oziel Posted August 3, 2011 Author Report Share Posted August 3, 2011 Já estou pensando em fazer isso, para continuar com o projeto. Obrigado. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 4, 2011 Report Share Posted August 4, 2011 Eu acho que no forum internacional, tem a DBUTTONS de 32 bits, na área de downloads... Ou peça para alguém lá... João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 4, 2011 Report Share Posted August 4, 2011 Se o problema é nos botões, vc. pode usar o Tsbutton.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | FaceBook FiveWin 9.04 [x]Harbour PellesC Bcc Ws Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 4, 2011 Report Share Posted August 4, 2011 Luiz, não se pode usar o ALT+LETRA com TsButton?? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 4, 2011 Report Share Posted August 4, 2011 citação:Luiz, não se pode usar o ALT+LETRA com TsButton?? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Sim Normal.. Porque ?? Redefine sButton obtn Prompt "A&bid=red>rir" ; ID 4003 Of oDlg Action oDlg:End(),BuscaFaz(Prop,Faz)id=code>id=code>Luiz Arruda Corumbá-MS ico.corumba@gmail.com | FaceBook FiveWin 9.04 [x]Harbour PellesC Bcc Ws Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 4, 2011 Report Share Posted August 4, 2011 citação: citação:Luiz, não se pode usar o ALT+LETRA com TsButton?? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Sim Normal.. Porque ?? Redefine sButton obtn Prompt "A&bid=red>rir" ; ID 4003 Of oDlg Action oDlg:End(),BuscaFaz(Prop,Faz)id=code>id=code>Luiz Arruda Corumbá-MS ico.corumba@gmail.com | FaceBook FiveWin 9.04 [x]Harbour PellesC Bcc Ws id=quote>id=quote>E a imagem? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 4, 2011 Report Share Posted August 4, 2011 Normal Também Veja o botão pretinho no outro não mostra pq. tá pressionado com o mouse p/mostrar a cor em foco.. É isso ??????? Luiz Arruda Corumbá-MS ico.corumba@gmail.com | FaceBook FiveWin 9.04 [x]Harbour PellesC Bcc Ws Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 4, 2011 Report Share Posted August 4, 2011 Isso, gracias friend. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
oziel Posted August 8, 2011 Author Report Share Posted August 8, 2011 Ico ou outro colega. Vc. me informou que era para usar o TsButton - Uso a TcBrowse Não consegui prosseguir, veja como eu utilizava em DButton, dá para vc me informar como escrever corretamente? @ 180.9,003.0 DBUTTON "Area." FILE ".\BMP\PESQ.BMP" SIZE 40,20 GLIP POS 3 ; ACTION( PesqArea( .T. ), ; oBrw:Refresh() ) ; TOOLTIP OemToAnsi( "Pesquisar por Area de Interesse" ) Grato. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
oziel Posted August 8, 2011 Author Report Share Posted August 8, 2011 Achei nas dicas que baixei, nas está danto um erro na localização. Erro: Error: Unresolved external '_HB_FUN_TSBUTTON' referenced from CADASTRO.OBJ Será que é problemas de Versão da TsButton ? Sintaxe: @ 210, 30 SBUTTON oBtn PROMPT "Exit" OF oDlg ; SIZE 50, 20 PIXEL ROUND ; COLORS CLR_WHITE, { CLR_BLACK, CLR_HBLUE, 3 } ; ACTION oDlg:End() Obrigado. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 8, 2011 Report Share Posted August 8, 2011 Inclui o Tsbutton.prg no projeto ?? Colocou o #include "Tsbutton.ch" no PRG ?? ou Crie uma LIB com os arquivos do .\source\classes mais o bPaint.OBJ da pasta function e compile junto com a aplicação Se não conseguir gero a LIB pra vc. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | FaceBook FiveWin 9.04 [x]Harbour PellesC Bcc Ws Quote Link to comment Share on other sites More sharing options...
oziel Posted August 9, 2011 Author Report Share Posted August 9, 2011 Veja as configurações: Opções do projeto no xDev DESTINO DOS *.OBJ C:\Proj_FWH\grh PATH DE PESQUISA *.CH C:\FWH\INCLUDE PATH DE PESQUISA *.LIB C:\FWH\LIB PATH DE PESQUISA *.OBJ C:\Proj_FWH\grh Utilizo a TSBUTTON 5.0 DE MANOEL MERCADO ........................ No fonte do Cadastro #include "FiveWin.ch" #include "Report.ch" #include "TsButton.ch" #include "Tcbrowse.ch" #include "Corget.ch" ..... Apos a colocação do Bpaint.obj no projeto. BPAINT.OBJ EM \PROJ_FWH\GRH Retorno do xDev dando um erro. Executando: ILINK32 @B32.BC Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Fatal: Unsupported 16-bit segment(s) in module bpaint.c Se vc puder gerar uma LIB para mim agradeço. Att. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 9, 2011 Report Share Posted August 9, 2011 Resposta: Fatal: Unsupported 16-bit segment(s) in module bpaint.c Esta TSBUTTON é de 16 Bits, você precisa da de 32 Bits. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
oziel Posted August 9, 2011 Author Report Share Posted August 9, 2011 Verdade. Mais não sei como achar... a de 32 bits. Qdo refere-se aos tópicos da DButton encontrei em meus arq. uma Lib de 16 e outra de 32 bits, incorporei ao projeto, está funcionando perfeito, os erros que davam se foram. Mais queria ver se podia fazer novo incremento, com a TsButton. Vou continuar pesquisando. Para todos obrigado... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 9, 2011 Report Share Posted August 9, 2011 http://www.fivewin.com.br/exibedicas.asp?id=555 João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR 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.