Jump to content
Fivewin Brasil

Erro ao compilar - FWH

oziel

By oziel
in Programação

 Share

Recommended Posts

oziel Newbie

oziel

Posted
Posted

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

//------------------------------

?cid=c7aa5a53b531c1ae&sc=photos

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

Link to comment
Share on other sites
oziel Newbie

oziel

Posted
  • Author
Posted

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

//------------------------------

?cid=c7aa5a53b531c1ae&sc=photos

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

Link to comment
Share on other sites
oziel Newbie

oziel

Posted
  • Author
Posted

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

?cid=c7aa5a53b531c1ae&sc=photos

OZIEL LOPES

FW 22c - Clipper 5.3b - Workshop 4.0

FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

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

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites
Luiz Arruda (ICO) Newbie

Luiz Arruda (ICO)

Posted
Posted

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

dentinho.jpg?rnd=0.830315402649066

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


21182795.png


FiveWin 9.04


[x]Harbour


PellesC


Bcc Ws



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




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


dentinho.jpg?rnd=0.830315402649066




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


21182795.png


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


dentinho.jpg?rnd=0.830315402649066



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		oziel
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


oziel
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

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.


?cid=c7aa5a53b531c1ae&sc=photos


OZIEL LOPES


FW 22c - Clipper 5.3b - Workshop 4.0


FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		oziel
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


oziel
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

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.


?cid=c7aa5a53b531c1ae&sc=photos


OZIEL LOPES


FW 22c - Clipper 5.3b - Workshop 4.0


FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Luiz Arruda (ICO)
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Luiz Arruda (ICO)
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

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


21182795.png


FiveWin 9.04


[x]Harbour


PellesC


Bcc Ws



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		oziel
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


oziel
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

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.


?cid=c7aa5a53b531c1ae&sc=photos


OZIEL LOPES


FW 22c - Clipper 5.3b - Workshop 4.0


FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

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


dentinho.jpg?rnd=0.830315402649066



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		oziel
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


oziel
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

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...


?cid=c7aa5a53b531c1ae&sc=photos


OZIEL LOPES


FW 22c - Clipper 5.3b - Workshop 4.0


FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				
			
			



		

	


	
		

			


	
	

		

	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •