Orlando FMC Posted December 7, 2011 Report Share Posted December 7, 2011 Senhores, Estou iniciando agora no xHarbour. Antes usava o FW2.1, agora o FWH 11.10 - Windows 7, e deparei com um problema: estou fazendo um programa só para testes, e, ao usar o Workshop, depois de colocar no programa apenas 2 dialogs, com pouquissimos recursos, o programa não aceita que acrescente mais recursos em nenhuma dialog. O workshop aceita, mas dá erro no programa. Isso para qualquer recurso (botão, texto, listbox, etc) que eu acrescento em qualquer dialog, o progarama apresenta erro quando entro em qualquer dialog. A seguir o ERROR.LOG: Application =========== Path and name: C:\APLIC\Dvd_11\DVD.exe (32 bits) Size: 2,087,936 bytes Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715) FiveWin Version: FWHX 11.10 Windows version: 6.1, Build 7600 Time from start: 0 hours 0 mins 19 secs Error occurred at: 07/12/2011, 14:53:57 Error description: Error FiveWin/3 Cannot create Dialog Box: Resource: BJ_CLIPPER Stack Calls =========== Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 563 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 ) Called from: DVD.prg => BJ( 580 ) Called from: DVD.prg => BOTOES1( 896 ) Called from: DVD.prg => (b)BOTOES( 956 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 466 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 663 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1713 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1458 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3440 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1000 ) Called from: DVD.prg => MAIN( 522 ) System ====== CPU type: Genuine Intel® CPU T1400 @ 1.73GHz 1733 Mhz Hardware memory: 594 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Windows total applications running: 20 1 DVD - v. 11.12.07-14.53 ============================================== - hoje informatica - 3412.2556, C:\APLIC\Dvd_11\DVD.exe 2 , C:\Program Files\AVG Secure Search\vprot.exe 3 , C:\Program Files\Med4 - Dvd\med.exe 4 , C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE 5 , C:\Program Files\Windows Live\Mesh\WLSync.exe 6 , C:\Program Files\Windows Live\Messenger\msnmsgr.exe 7 , C:\Program Files\Windows Sidebar\sidebar.exe 8 , C:\Windows\Explorer.EXE 9 , C:\Windows\System32\hkcmd.exe 10 CiceroUIWndFrame, C:\Windows\system32\taskhost.exe 11 DWM Notification Window, C:\Windows\system32\Dwm.exe 12 MCI command handling window, C:\Program Files\AVG\AVG2012\avgtray.exe 13 MOE, C:\Program Files\Windows Live\Mesh\MOE.exe 14 MSCTFIME UI, C:\Windows\system32\conhost.exe 15 PersistWndName, C:\Windows\System32\igfxpers.exe 16 PresenceSignIn, C:\Program Files\Windows Live\Contacts\wlcomm.exe 17 Prompt de Comando - c, C:\Windows\system32\cmd.exe 18 Resource Workshop - dvd32.dll, C:\Windows\system32\ntvdm.exe 19 SysFader, C:\Program Files\Internet Explorer\iexplore.exe 20 igfxtrayWindow, C:\Windows\System32\igfxtray.exe Variables in use ================ Procedure Type Value ========================== CREATEDLGERROR Param 1: O Class: TDIALOG Local 1: C "BJ_CLIPPER" Local 2: C " " TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .F. Param 5: U Param 6: L .T. Param 7: U Param 8: U Param 9: U Param 10: L .F. Param 11: L .F. Local 1: O Class: TDIALOG Local 2: N 395962 Local 3: U Local 4: U BJ Local 1: O Class: TDIALOG Local 2: O Class: TBUTTON Local 3: O Class: TBUTTON Local 4: U BOTOES1 Param 1: C "BJ" Param 2: L .T. Param 3: C "0" Local 1: U (b)BOTOES Param 1: O Class: TBTNBMP TBTNBMP:CLICK Local 1: O Class: TBTNBMP TBTNBMP:LBUTTONUP Param 1: N 52 Param 2: N 45 Param 3: O Class: TBTNBMP Local 1: U Local 2: L .T. TCONTROL:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 3407917 Local 1: O Class: TBTNBMP Local 2: U TBTNBMP:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 3407917 Local 1: O Class: TBTNBMP _FWH Param 1: N 3407917 Param 2: N 514 Param 3: N 0 Param 4: N 3407917 Param 5: N 10 Local 1: O Class: TBTNBMP WINRUN Param 1: N 395962 TWINDOW:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: B {|| ... } Param 4: U Param 5: U Param 6: U Param 7: U Param 8: B {|| ... } Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: U Param 18: U Param 19: U Local 1: O Class: TWINDOW Local 2: U Local 3: U MAIN Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX DataBases in use ================ 1: DISCOS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 3 .F. .F. Indexes in use TagName => NUMERO____ DISCOS1 DONO______ DISCOS2 Relations in use 2: FILMES RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 203 .F. .F. Indexes in use TagName => NUMERO____+SEQUENCIA_ FILMES1 UPPER(CarEsp(NOME______)) FILMES2 Relations in use 3: ARTISTAS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 15 80 .F. .F. Indexes in use TagName => UPPER(CarEsp(NOME______)) ARTISTAS1 Relations in use 40: ENGLISH RddName: DBFNTX ============================== RecNo RecCount BOF EOF 15185 15185 .F. .F. Indexes in use TagName => UPPER(PALAVRA___) ENGLISH1 Relations in use 42: CLIPPER_FUNCOES RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 317 .F. .F. Indexes in use TagName => FUNCAO____ CLIPPER_FU VER_TAMB__ CLIPPER_FU Relations in use 43: => CLIPPER_PROCEDI RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 123 .F. .F. Indexes in use TagName => PROCEDIM__ CLIPPER_PR VER_TAMB__ CLIPPER_PR Relations in use 80: FERIADOS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 17 20 .F. .F. Indexes in use TagName => RIGHT(DIA_MES___,2)+LEFT(DIA_MES___FERIADOS1 CATEGORIA_ FERIADOS2 DESCRICAO_ FERIADOS3 Relations in use 90: MENU RddName: DBFNTX ============================== RecNo RecCount BOF EOF 22 200 .F. .F. Indexes in use TagName => STRTRAN(JANELA____,'_','') MENU1 SUBUNIDAD_ MENU2 Relations in use 91: SETUP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use 92: LOGFILE RddName: DBFNTX ============================== RecNo RecCount BOF EOF 6862 6862 .F. .F. Indexes in use TagName => DTOS(DATA______)+HORA______+TRAN(RELOGFILE1 USUARIO___ LOGFILE2 LEFT(UPPER(HISTORICO_),50) LOGFILE3 Relations in use Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TSKINBUTTON 6 TWINDOW 7 TDIALOG 8 TBRUSH 9 TCONTROL 10 TBUTTON 11 TFONT 12 TICON 13 TRECT 14 TSAY 15 TMETER 16 TMENU 17 TMENUITEM 18 TMSGBAR 19 TMSGITEM 20 TTIMER 21 TLISTBOX 22 TBAR 23 TBTNBMP 24 TCOMBOBOX 25 TWBROWSE 26 TCBROWSE 27 TCCOLUMN 28 TSCROLLBAR 29 TREG32 Memory Analysis =============== 355 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Editado por - orlandof on 13/12/2011 10:44:03 Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted December 7, 2011 Author Report Share Posted December 7, 2011 Senhores, Estou iniciando agora no xHarbour. Antes usava o FW2.1, agora o FWH 11.10 - Windows 7, e deparei com um problema: estou fazendo um programa só para testes, e, ao usar o Workshop, depois de colocar no programa apenas 2 dialogs, com pouquissimos recursos, o programa não aceita que acrescente mais recursos em nenhuma dialog. O workshop aceita, mas dá erro no programa. Isso para qualquer recurso (botão, texto, listbox, etc) que eu acrescento em qualquer dialog, o progarama apresenta erro quando entro em qualquer dialog. A seguir o ERROR.LOG: Application =========== Path and name: C:\APLIC\Dvd_11\DVD.exe (32 bits) Size: 2,087,936 bytes Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715) FiveWin Version: FWHX 11.10 Windows version: 6.1, Build 7600 Time from start: 0 hours 0 mins 19 secs Error occurred at: 07/12/2011, 14:53:57 Error description: Error FiveWin/3 Cannot create Dialog Box: Resource: BJ_CLIPPER Stack Calls =========== Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 563 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 ) Called from: DVD.prg => BJ( 580 ) Called from: DVD.prg => BOTOES1( 896 ) Called from: DVD.prg => (b)BOTOES( 956 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 466 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 663 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1713 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1458 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3440 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1000 ) Called from: DVD.prg => MAIN( 522 ) System ====== CPU type: Genuine Intel® CPU T1400 @ 1.73GHz 1733 Mhz Hardware memory: 594 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Windows total applications running: 20 1 DVD - v. 11.12.07-14.53 ============================================== - hoje informatica - 3412.2556, C:\APLIC\Dvd_11\DVD.exe 2 , C:\Program Files\AVG Secure Search\vprot.exe 3 , C:\Program Files\Med4 - Dvd\med.exe 4 , C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE 5 , C:\Program Files\Windows Live\Mesh\WLSync.exe 6 , C:\Program Files\Windows Live\Messenger\msnmsgr.exe 7 , C:\Program Files\Windows Sidebar\sidebar.exe 8 , C:\Windows\Explorer.EXE 9 , C:\Windows\System32\hkcmd.exe 10 CiceroUIWndFrame, C:\Windows\system32\taskhost.exe 11 DWM Notification Window, C:\Windows\system32\Dwm.exe 12 MCI command handling window, C:\Program Files\AVG\AVG2012\avgtray.exe 13 MOE, C:\Program Files\Windows Live\Mesh\MOE.exe 14 MSCTFIME UI, C:\Windows\system32\conhost.exe 15 PersistWndName, C:\Windows\System32\igfxpers.exe 16 PresenceSignIn, C:\Program Files\Windows Live\Contacts\wlcomm.exe 17 Prompt de Comando - c, C:\Windows\system32\cmd.exe 18 Resource Workshop - dvd32.dll, C:\Windows\system32\ntvdm.exe 19 SysFader, C:\Program Files\Internet Explorer\iexplore.exe 20 igfxtrayWindow, C:\Windows\System32\igfxtray.exe Variables in use ================ Procedure Type Value ========================== CREATEDLGERROR Param 1: O Class: TDIALOG Local 1: C "BJ_CLIPPER" Local 2: C " " TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .F. Param 5: U Param 6: L .T. Param 7: U Param 8: U Param 9: U Param 10: L .F. Param 11: L .F. Local 1: O Class: TDIALOG Local 2: N 395962 Local 3: U Local 4: U BJ Local 1: O Class: TDIALOG Local 2: O Class: TBUTTON Local 3: O Class: TBUTTON Local 4: U BOTOES1 Param 1: C "BJ" Param 2: L .T. Param 3: C "0" Local 1: U (b)BOTOES Param 1: O Class: TBTNBMP TBTNBMP:CLICK Local 1: O Class: TBTNBMP TBTNBMP:LBUTTONUP Param 1: N 52 Param 2: N 45 Param 3: O Class: TBTNBMP Local 1: U Local 2: L .T. TCONTROL:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 3407917 Local 1: O Class: TBTNBMP Local 2: U TBTNBMP:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 3407917 Local 1: O Class: TBTNBMP _FWH Param 1: N 3407917 Param 2: N 514 Param 3: N 0 Param 4: N 3407917 Param 5: N 10 Local 1: O Class: TBTNBMP WINRUN Param 1: N 395962 TWINDOW:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: B {|| ... } Param 4: U Param 5: U Param 6: U Param 7: U Param 8: B {|| ... } Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: U Param 18: U Param 19: U Local 1: O Class: TWINDOW Local 2: U Local 3: U MAIN Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX DataBases in use ================ 1: DISCOS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 3 .F. .F. Indexes in use TagName => NUMERO____ DISCOS1 DONO______ DISCOS2 Relations in use 2: FILMES RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 203 .F. .F. Indexes in use TagName => NUMERO____+SEQUENCIA_ FILMES1 UPPER(CarEsp(NOME______)) FILMES2 Relations in use 3: ARTISTAS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 15 80 .F. .F. Indexes in use TagName => UPPER(CarEsp(NOME______)) ARTISTAS1 Relations in use 40: ENGLISH RddName: DBFNTX ============================== RecNo RecCount BOF EOF 15185 15185 .F. .F. Indexes in use TagName => UPPER(PALAVRA___) ENGLISH1 Relations in use 42: CLIPPER_FUNCOES RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 317 .F. .F. Indexes in use TagName => FUNCAO____ CLIPPER_FU VER_TAMB__ CLIPPER_FU Relations in use 43: => CLIPPER_PROCEDI RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 123 .F. .F. Indexes in use TagName => PROCEDIM__ CLIPPER_PR VER_TAMB__ CLIPPER_PR Relations in use 80: FERIADOS RddName: DBFNTX ============================== RecNo RecCount BOF EOF 17 20 .F. .F. Indexes in use TagName => RIGHT(DIA_MES___,2)+LEFT(DIA_MES___FERIADOS1 CATEGORIA_ FERIADOS2 DESCRICAO_ FERIADOS3 Relations in use 90: MENU RddName: DBFNTX ============================== RecNo RecCount BOF EOF 22 200 .F. .F. Indexes in use TagName => STRTRAN(JANELA____,'_','') MENU1 SUBUNIDAD_ MENU2 Relations in use 91: SETUP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use 92: LOGFILE RddName: DBFNTX ============================== RecNo RecCount BOF EOF 6862 6862 .F. .F. Indexes in use TagName => DTOS(DATA______)+HORA______+TRAN(RELOGFILE1 USUARIO___ LOGFILE2 LEFT(UPPER(HISTORICO_),50) LOGFILE3 Relations in use Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TSKINBUTTON 6 TWINDOW 7 TDIALOG 8 TBRUSH 9 TCONTROL 10 TBUTTON 11 TFONT 12 TICON 13 TRECT 14 TSAY 15 TMETER 16 TMENU 17 TMENUITEM 18 TMSGBAR 19 TMSGITEM 20 TTIMER 21 TLISTBOX 22 TBAR 23 TBTNBMP 24 TCOMBOBOX 25 TWBROWSE 26 TCBROWSE 27 TCCOLUMN 28 TSCROLLBAR 29 TREG32 Memory Analysis =============== 355 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Editado por - orlandof on 13/12/2011 10:44:03 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted December 7, 2011 Report Share Posted December 7, 2011 Esse erro não é do WorkShop e sim da sua aplicação certo? Se o RC é pequeno como vc diz posta ele para avaliarmos se tem algum problema. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Editado por - Kbelo on 07/12/2011 16:55:18 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 7, 2011 Report Share Posted December 7, 2011 Veja se não está adicionando um recurso borland ou uma listbox que não é compativel com o dialogo. Um dos recursos pode estar faltando uma classe ou a dll da borland. Procure na pagina principal por: Cannot create Dialog Box Veja as respostas que voce mata. 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 Editado por - kapiaba on 07/12/2011 17:13:12 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted December 7, 2011 Report Share Posted December 7, 2011 citação:Veja se não está adicionando um recurso borland ou uma listbox que não é compativel com o dialogo. Um dos recursos pode estar faltando uma classe ou a dll da borland. Procure na pagina principal por: Cannot create Dialog Box Veja as respostas que voce mata. 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 Editado por - kapiaba on 07/12/2011 17:13:12 id=quote>id=quote>o Fato de eu pedir para voce postar seu RC era justamente para analisar isso que o João comentou. Se não for possivel postar pode me chamar no msn para analisarmos. celo.michels@hotmail.com ou marcelo@folksistemas.com.br Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted December 8, 2011 Author Report Share Posted December 8, 2011 Kbelo e Kapiaba, Estou verificando, e retorno assim que terminar. Obrigado pela atenção. -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted December 8, 2011 Report Share Posted December 8, 2011 Ola Orlando Já tentou usar RES ao invés de RC ? Não quero intrometer, mas você já poderia ir mudando para PellesC que é bem fácil de manejar tanto quanto o WS só que com mas recursos Vefificou se está usando hBorland:= LoadLibrary("BWCC32.DLL") BWCCRegister( GetResources() ) DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL" id=blue> Para controles Borland ? Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 08/12/2011 15:32:16 Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted December 8, 2011 Author Report Share Posted December 8, 2011 Vou tentar isso aÃ, Luiz. Quanto ao PellesC, se tem mais recursos, me interessa. Como consegui-lo? Obrigado pela dica. Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5 Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted December 8, 2011 Author Report Share Posted December 8, 2011 /* O programa funciona normal. Depois de inserir mais alguns recursos (à s vezes só 1) em qualquer das dialogs da DLL (pode ser até uma dialog que não está sendo utilizada), ao rodar o programa, e ao tentar entrar em uma das rotinas que utiliza a DLL, dá a mensagem de erro: "DVD32.DLL (este é o nome da DLL) não foi criado para ser executado no Windows ou contem um erro. Tente instalar o programa novamente usando a midia de instalação original ou contate o administrador de sistemas ou o fornecedor do software para obter suporte." Os recursos que estou inderindo são os normais que sempre utilizo nas dialogs: botão, rádio, checkbox, etc. Isto está acontecendo depois que instalei o Windows 7 e o FWH 11.10. Antes era Windows XP e FW 2.1, quando não acontecia nada disso. */ *********************** TESTE.PRG ********************************************************************* #include "fivewin.ch" static oWnd, DLL_, ofDialog Static oRow, oCol function main() DLL_:="DVD32.DLL" SkinButtons() #define COLOR_BTNFACE 15 SetBalloon( .t. ) // tooltip tipo baloon hBorland:= LoadLibrary("BWCC32.DLL") * BWCCRegister( GetResources() ) DEFINE FONT ofDialog NAME "Ms Sans Serif" SIZE 0, -10 // windows // para FW 11.10 sele 42 USE Clipper_Funcoes sele 43 USE Clipper_Procedimentos DEFINE WINDOW oWnd TITLE "TESTE FWH 11.10" MENU BuildMenu() ACTIVATE WINDOW oWnd return nil Function BuildMenu() Local oMenu MENU oMenu MENUITEM "Menu" MENU MENUITEM "Dialog 01" ACTION BD() MENUITEM "Dialog 02" ACTION BJ() MENUITEM "Sair" ACTION oWnd:END ENDMENU ENDMENU Return oMenu Function Acc32 ( ) ? "Quien dirÃa que esto es la función acc32()" Return nil #Include "B.PRG" *********************************** B.PRG ******************************************************************** #include "FiveWin.ch" #include "TCBrowse.ch" PROCEDURE BD // LOCAL dBD, obSair, ob22, ofCour11, dBJ, ob980 MemVar oBrw1 BEGIN SEQUENCE SET RESOURCES TO DLL_ // , "BWCC.DLL" DEFINE FONT ofCOUR11 NAME "Courier New" SIZE 00,-12 // bold // UNDERLINE DEFINE DIALOG dBD NAME "BD_TESTES" FONT ofDialog COLOR 0, GetSysColor( COLOR_BTNFACE ) // COLOR "B/W" REDEFINE SAY OS10 PROMPT "TESTE" ID 10 OF dBD *sele 42 SELE Clipper_Funcoes REDEFINE BROWSE oBrw1 ID 100 OF dBJ UPDATE oBrw1:SetFont(ofCour11) oBrw1:lCellStyle := .t. // muda o tipo de selecao de "linhas" para "campos". oBrw1:nClrForeHead := CLR_WHITE // | cores para o oBrw1:nClrBackHead := CLR_RED // | cabecalho oBrw1:bKeyDown :={|nkey|bjEdit1(nKey,oBrw1,dBj)} oBrw1:blDblClick:={| |bjEdit1(13 ,oBrw1,dBj)} ADD COLUMN TO oBrw1 SIZE 10 ADD COLUMN TO oBrw1 DATA TRAN(42->(RECNO()),"####") SIZE 33 HEADER "Recno()" COLOR IIF(MOD(RECNO(),2)=0 ,"R/BG","R/W") ADD COLUMN TO oBrw1 DATA 42->FUNCAO____ SIZE 140 HEADER "Função" ADD COLUMN TO oBrw1 DATA 42->DESCRICAO_ SIZE 300 HEADER "Descrição" ADD COLUMN TO oBrw1 DATA 42->SINTAXE___ SIZE 300 HEADER "Sintaxe" ADD COLUMN TO oBrw1 DATA 42->VER_TAMB__ SIZE 300 HEADER "Ver também" ADD COLUMN TO oBrw1 SIZE 1 oBrw1:nColAct := 3 // Coluna em que o cursor Vai Iniciar. BJ_CliqueOrder(oBrw1, 1 , 3 ) // (obrw, indice, coluna) -> para setar o indice e colorir a coluna oBrw1:aActions := {{|| .T. } ,; {|| .T. } ,; {|| BJ_CliqueOrder(oBrw1,1,3) } ,; {|| .T. } ,; {|| .T. } ,; {|| BJ_CliqueOrder(oBrw1,2,6) } } REDEFINE BUTTON oB980 ID 980 OF dBd ACTION (BROWSE()) oB980:ctooltip:="Mostra lista com todos os"+chr(10)+chr(13)+"Arquivos Abertos da aplicação" REDEFINE BUTTON oBSair ID 990 OF dBd ACTION dBd:end() oBSair:ctooltip:="Fechar esta " + Chr( 13 ) + Chr( 10 ) + "janela" ACTIVATE DIALOG dBD ENDSEQUENCE SET RESOURCES TO SYSREFRESH() RETURN PROCEDURE BJ // LOCAL ofCour11, dBJ, obSair, ob980 MemVar oBrw1 BEGIN SEQUENCE DEFINE FONT ofCOUR11 NAME "Courier New" SIZE 00,-12 // bold // UNDERLINE SET RESOURCES TO DLL_ // , "BWCC.DLL" DEFINE DIALOG dBJ NAME "BJ_CLIPPER" FONT ofDialog COLOR 0, GetSysColor( COLOR_BTNFACE ) // COLOR "B/W" dBJ:LHELPICON := .F. *sele 43 SELE Clipper_Procedimentos REDEFINE BROWSE oBrw1 ID 100 OF dBJ UPDATE oBrw1:SetFont(ofCour11) oBrw1:lCellStyle := .t. // muda o tipo de selecao de "linhas" para "campos". oBrw1:nClrForeHead := CLR_WHITE // | cores para o oBrw1:nClrBackHead := CLR_RED // | cabecalho oBrw1:bKeyDown :={|nkey|bjEdit1(nKey,oBrw1,dBj)} oBrw1:blDblClick:={| |bjEdit1(13 ,oBrw1,dBj)} ADD COLUMN TO oBrw1 SIZE 10 ADD COLUMN TO oBrw1 DATA TRAN(43->(RECNO()),"####") SIZE 33 HEADER "Recno()" COLOR IIF(MOD(RECNO(),2)=0 ,"R/BG","R/W") ADD COLUMN TO oBrw1 DATA 43->PROCEDIM__ SIZE 140 HEADER "Função" ADD COLUMN TO oBrw1 DATA 43->DESCRICAO_ SIZE 300 HEADER "Descrição" ADD COLUMN TO oBrw1 DATA 43->SINTAXE___ SIZE 300 HEADER "Sintaxe" ADD COLUMN TO oBrw1 DATA 43->VER_TAMB__ SIZE 300 HEADER "Ver também" ADD COLUMN TO oBrw1 SIZE 1 oBrw1:nColAct := 3 // Coluna onde o cursor vai iniciar. BJ_CliqueOrder(oBrw1, 1 , 3 ) // (obrw, indice, coluna) -> para setar o indice e colorir a coluna oBrw1:aActions := {{|| .T. } ,; {|| .T. } ,; {|| BJ_CliqueOrder(oBrw1,1,3) } ,; {|| .T. } ,; {|| .T. } ,; {|| BJ_CliqueOrder(oBrw1,2,6) } } REDEFINE BUTTON oB980 ID 980 OF dBJ ACTION (BROWSE()) oB980:ctooltip:="Mostra lista com todos os"+chr(10)+chr(13)+"Arquivos Abertos da aplicação" REDEFINE BUTTON oBSair ID 990 OF dBJ ACTION dBJ:end() oBSair:ctooltip:="Fechar esta " + Chr( 13 ) + Chr( 10 ) + "janela" ACTIVATE DIALOG dBJ ENDSEQUENCE SET RESOURCES TO SYSREFRESH() RETURN STATIC FUNCTION BJ_CliqueOrder(oBrw1,nOrd,nCol) 43->(OrdSetFocus(nOrd)) oBrw1:nColOrder := nCol oBrw1:nOClrBackHead := CLR_HBLUE // Aqui muda a cor da coluna qdo clicada oBrw1:nColAct := nCol // Coloca o cursor na coluna selecionada oBrw1:Refresh() RETURN(.T.) FUNCTION BJEdit1(nKey,oBrw1,dBj) Local xField, cField, nCol SELE 42 // CLIPPER_FUNCOES IF nKey= 27 ; dBJ:END() ; ENDIF IF nKey<>13 ; RETURN .T. ; ENDIF BEGIN SEQUENCE nCol=oBrw1:nColAct // coluna atual do Objeto Browse ??? oLbx? *IF nCol=7 ; BREAK ; ENDIF // não editáveis RLOCK() DO CASE CASE nCol= 3 ; cField:="FUNCAO____" ; xField=cField CASE nCol= 4 ; cField:="DESCRICAO_" ; xField=cField CASE nCol= 5 ; cField:="SINTAXE___" ; xField=cField CASE nCol= 6 ; cField:="VER_TAMB__" ; xField=cField ENDCASE xField:=&cField oBrw1:leditcol( nCol, @xField , , ) FIELDPUT( FIELDPOS(cField) ,xField) ENDSEQUENCE oBrw1:REFRESH(.n.) oBrw1:SetFocus() RETURN .T. //--------------------------------------------------------------------------- -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 9, 2011 Report Share Posted December 9, 2011 // desligue *hBorland:= LoadLibrary("BWCC32.DLL") // ligue BWCCRegister( GetResources() ) 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 December 9, 2011 Report Share Posted December 9, 2011 Ao final do modulo ponha isto DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL" 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...
Orlando FMC Posted December 9, 2011 Author Report Share Posted December 9, 2011 Ok, Kapiaba, fiz isso, mas o problema persiste. -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Editado por - orlandof on 09/12/2011 15:06:29 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 9, 2011 Report Share Posted December 9, 2011 citação:Ok, Kapiaba, fiz isso, mas o problema persiste. -------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop orlandofmc@yahoo.com.br Belo Horizonte - MG -------------------------------- Editado por - orlandof on 09/12/2011 15:06:29 id=quote>id=quote>Entaõ o problemas esta no arquivo de recursos. Envie no meu email: joao@pleno.com.br que eu olho. 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 December 12, 2011 Report Share Posted December 12, 2011 Olá Orlando, Neste Recurso, Resource: BJ_CLIPPER Você está CHAMANDO uma TCBROWSE, e Recursos BORLAND. Verifique se vai mesmo usar TCBROWSE, se sim, diga ao o programa para chamar também: TCBROWSE.CH e No diretório de TRABALHO, copie a BWCC32.DLL de c:\fwh\samples. Veja também que voce tem CHECKBOX y RADIO nele, tem que fazer a chamada internamente no progama ou retire os recursos que não vai usar. Se colocou recursos, tem que "chamá-los" internamente. REDEFINE RADIO oRadio... REDEFINE CHECKBOX oCheck... Etc. Abs 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 December 12, 2011 Report Share Posted December 12, 2011 //-> PS: Tinha corrupcao nesta TCBROWSE, modifiquei e agora o Workshop.exe //-> Abre sem nenhum problema como arquivo.rc, exclua a sua e importe esta //-> Para o seu arquivo de recursos: DVD32.DLL, prefira usar *.RES ou .RC //-> Use *.RES e mantenha sempre uma copia como *.RC. id=code>id=code> BJ_CLIPPER DIALOG 0, -12, 645, 433 STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU CAPTION "DIALOG_5" FONT 8, "MS Sans Serif" { PUSHBUTTON "Arquivos", 980, 510, 406, 50, 14 DEFPUSHBUTTON "SAIR", 990, 583, 406, 50, 14 PUSHBUTTON "Help", 9, 587, 5, 50, 14 CONTROL "", -1, "STATIC", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 197, 312, 109, 18 EDITTEXT 10, 298, 357, 70, 12, WS_BORDER | WS_TABSTOP CONTROL "", -1, "STATIC", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 143, 352, 95, 39 LTEXT "Text", -1, 28, 304, 63, 35 CONTROL "Text", -1, "BorStatic", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 25, 351, 73, 58 CONTROL "Check", 11, "BorCheck", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 354, 310, 34, 10 AUTORADIOBUTTON "Radio", 12, 354, 327, 60, 12 CONTROL "", 100, "TCBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 15, 28, 624, 259 } 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 Editado por - kapiaba on 12/12/2011 09:50:33 Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted December 13, 2011 Author Report Share Posted December 13, 2011 Obrigado, João. Eu estava incluindo no WS recursos sem os definir no PRG, para testar. Eu fazia isso quando usava o FW 2.1, e não tinha problemas. Mas parece que no xHarbour esta restrição é mais acentuada. Mais uma vez, obrigado. Abraço. ---------------------------------------- Orlando F Marins da Costa FWH 11.10 - Windows 7 - Workshop/PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG ---------------------------------------- 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.