bencz Posted July 25, 2014 Report Share Posted July 25, 2014 Bom dia... estou passando por algumas dificuldades em migrar um antigo-projeto, escrito em Clipper... Fiz a conversão da DLL de resource de 16 para 32 bits..., praticamente todas as janelas abrem com sucesso, menos 2 ou 3 janelas... Essa é uma das janelas que não abrem: DSOBRE DIALOG 90, 14, 183, 212 STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU CAPTION "Sobre o PROGRAMA." FONT 8, "MS Sans Serif" BEGIN CONTROL "Button", 1150, "BorBtn", 32768 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 75, 0, 33, 27 CONTROL "", -1, "STATIC", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 75, 0, 33, 27 CONTROL "", -1, "STATIC", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 1, 28, 181, 39 CTEXT "Cobrança", 200, 2, 29, 179, 11 CONTROL "", -1, "BorShade", 2 | WS_CHILD | WS_VISIBLE, 1, 41, 181, 1 CTEXT "Programa de coisa....", 201, 2, 44, 179, 11 CTEXT "Versão X.XX.XXX - DD/MM/AAAA - HH:MM:SS", 100, 2, 57, 179, 9 CONTROL "", -1, "STATIC", SS_GRAYFRAME | WS_CHILD | WS_VISIBLE, 1, 68, 181, 31 RTEXT "Copyright © 2000 by XXXXXXXXXXXXXXXXXXXX", -1, 4, 73, 175, 8 RTEXT "São Paulo - SP", -1, 4, 87, 175, 8 CONTROL "", -1, "STATIC", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 1, 100, 181, 90 CONTROL "", -1, "STATIC", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 3, 102, 177, 12 RTEXT "Número de série do produto: ", -1, 4, 104, 102, 8 LTEXT "XXXXXXXXXXX", 101, 111, 103, 68, 8 LTEXT "C:\\Dir", 102, 6, 123, 171, 9 LTEXT "Windows", 103, 6, 141, 171, 8 LTEXT "@inicial", 105, 6, 159, 171, 8 LTEXT "ESTAÇÃO", 106, 6, 179, 171, 8 LTEXT "Instalado em:", -1, 5, 115, 174, 7 LTEXT "Sistema operacional:", -1, 5, 133, 174, 7 LTEXT "Usuário operador:", -1, 5, 151, 174, 9 LTEXT "Estação de trabalho:", -1, 5, 170, 174, 8 PUSHBUTTON "www.&bradesco.com.br", 111, 5, 194, 82, 14 PUSHBUTTON "&OK", 112, 131, 194, 43, 14 END E o local onde ativo a dialog é esse: STATIC FUNCTION MainSobri() LOCAL PULI,PLAO,WT,TABA,OIST,WORK,TABS Local oDlgI,oFnt,oFnt9,oFntB,oFnt9B,oFnt9I,oFntGB Local oSay1,oSB1,oSB2,oSB3,oBt LOCAL oSay2,oSay3,oSay4,oSay5,oSay6,oSay7,oSay8 Local cDescri := "Versão "+VERSAOPRODUTO+" - "+DTOC(DATAVERSAO)+' - '+HORAVERSAO Local cNumSer := AllTrim(PUBNUMSER) Local cEstacao := NetName() DO CASE CASE TIPODOSO = 0; WT='Windows 95, 98 ou Me' CASE TIPODOSO = 1; WT='Windows Nt, Xp ou 2000' CASE TIPODOSO = 2; WT='Windows 3.11' CASE TIPODOSO = 3; WT='Windows Desconhecido' ENDCASE Define Font oFntGB Name "Ms Sans Serif" Size 0, -16 Bold Define Font oFnt Name "Ms Sans Serif" Size 0, -6 Define Font oFnt9 Name "Ms Sans Serif" Size 0, -10 Define Font oFnt9B Name "Ms Sans Serif" Size 0, -13 Define Font oFnt9I Name "Ms Sans Serif" Size 0, -12 //UnderLine Define Font oFntB Name "Ms Sans Serif" Size 0, -8 Bold DEFINE DIALOG oDlgI RESOURCE "DSOBRE" FONT oFnt REDEFINE SAY oSay1 ID 200 Of oDlgI Font oFntGB REDEFINE SAY oSay2 ID 201 Of oDlgI Font oFnt9 REDEFINE SAY oSay3 Var cDescri ID 100 Of oDlgI Font oFnt9 Color "B+/W" REDEFINE SAY oSay4 Var cNumSer ID 101 Of oDlgI Font oFnt9B Color "R+/W" REDEFINE SAY oSay5 Var DIRATUAL ID 102 Of oDlgI Font oFntB REDEFINE SAY oSay6 Var WT ID 103 Of oDlgI Font oFntB REDEFINE SAY oSay7 Var OPERATOR ID 105 Of oDlgI Font oFntB REDEFINE SAY oSay8 Var cEstacao ID 106 Of oDlgI Font oFntB REDEFINE BUTTON oSB3 ID 111 OF oDlgI Action VaParaWeb() oSB3:cToolTip:="Vai para home page da empresa" oSB3:SetFont(oFnt9I) REDEFINE BUTTON oBt ID 112 OF oDlgI Action oDlgI:End() oBt:SetFont(oFnt9I) Activate dialog oDlgI CENTERED oFntGB:End() oFnt:End() oFnt9:End() oFnt9B:End() oFnt9I:End() oFntB:End() RETURN NIL O Erro: Application =========== Size: 2,107,392 bytes Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6406) FiveWin Version: FWHX 11.11 Windows version: 6.1, Build 7601 Service Pack 1 Time from start: 0 hours 0 mins 5 secs Error occurred at: 25/07/2014, 09:12:19 Error description: Error FiveWin/3 Cannot create Dialog Box: Resource: DSOBRE Args: Stack Calls =========== Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 535 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 273 ) Called from: TESTECO.PRG => MAINSOBRI( 1108 ) Called from: TESTECO.PRG => (b)MENUPRINCIPAL( 687 ) Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 461 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1043 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3169 ) Called from: => SYSREFRESH( 0 ) Called from: .\source\classes\FOLDER.PRG => SYSWAIT( 448 ) Called from: TESTECO.PRG => ATUALIZACAO( 10279 ) Called from: TESTECO.PRG => LIBERASYS( 971 ) Called from: TESTECO.PRG => VALIDAPSW( 983 ) Called from: TESTECO.PRG => (b)INITSYST( 922 ) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 157 ) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1653 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3169 ) Called from: => SYSREFRESH( 0 ) Called from: .\source\classes\CONTROL.PRG => TBUTTON:KEYCHAR( 801 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1699 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3169 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 990 ) Called from: TESTECO.PRG => TESTECO( 631 ) Alguem sabe o que pode ser ? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 25, 2014 Report Share Posted July 25, 2014 #include "FiveWin.ch" static oWnd function Main() local oBar LOCAL hBorland PRIVATE VERSAOPRODUTO := "1.00", DATAVERSAO := DATE(), HORAVERSAO := TIME() PRIVATE PUBNUMSER := "24242424242424242424" PRIVATE DIRATUAL := "C:\MYAPP" PRIVATE OPERATOR := "kapiaba" PRIVATE cEstacao := "Minha Rede" SET CENTURY ON SET DATE BRITISH SET EPOCH TO YEAR( DATE() ) - 30 hBorland := LoadLibrary('BWCC32.DLL') BWCCRegister( GetResources() ) DEFINE WINDOW oWnd TITLE "3D objects Using Borland" DEFINE BUTTONBAR oBar _3D OF oWnd DEFINE BUTTON OF oBar ACTION MainSobri() SET MESSAGE OF oWnd TO "3D Objects Using Borland" NOINSET CLOCK DATE KEYBOARD ACTIVATE WINDOW oWnd return nil FUNCTION MainSobri() LOCAL PULI,PLAO,WT,TABA,OIST,WORK,TABS Local oDlgI,oFnt,oFnt9,oFntB,oFnt9B,oFnt9I,oFntGB Local oSay1,oSB1,oSB2,oSB3,oBt LOCAL oSay2,oSay3,oSay4,oSay5,oSay6,oSay7,oSay8 Local cDescri := "Versão "+VERSAOPRODUTO+" - "+DTOC(DATAVERSAO)+' - '+HORAVERSAO Local cNumSer := AllTrim(PUBNUMSER) Local cEstacao := NetName() /* // ??? DO CASE CASE TIPODOSO = 0; WT='Windows 95, 98 ou Me' CASE TIPODOSO = 1; WT='Windows Nt, Xp ou 2000' CASE TIPODOSO = 2; WT='Windows 3.11' CASE TIPODOSO = 3; WT='Windows Desconhecido' ENDCASE */ Define Font oFntGB Name "Ms Sans Serif" Size 0, -16 Bold Define Font oFnt Name "Ms Sans Serif" Size 0, -6 Define Font oFnt9 Name "Ms Sans Serif" Size 0, -10 Define Font oFnt9B Name "Ms Sans Serif" Size 0, -13 Define Font oFnt9I Name "Ms Sans Serif" Size 0, -12 //UnderLine Define Font oFntB Name "Ms Sans Serif" Size 0, -8 Bold DEFINE DIALOG oDlgI RESOURCE "DSOBRE" FONT oFnt TRANSPARENT ; COLORS CLR_BLACK, CLR_WHITE REDEFINE SAY oSay1 ID 200 Of oDlgI Font oFntGB REDEFINE SAY oSay2 ID 201 Of oDlgI Font oFnt9 REDEFINE SAY oSay3 Var cDescri ID 100 Of oDlgI Font oFnt9 Color "B+/W" REDEFINE SAY oSay4 Var cNumSer ID 101 Of oDlgI Font oFnt9B Color "R+/W" REDEFINE SAY oSay5 Var DIRATUAL ID 102 Of oDlgI Font oFntB REDEFINE SAY oSay6 Var WT ID 103 Of oDlgI Font oFntB REDEFINE SAY oSay7 Var OPERATOR ID 105 Of oDlgI Font oFntB REDEFINE SAY oSay8 Var cEstacao ID 106 Of oDlgI Font oFntB REDEFINE BUTTON oSB3 ID 111 OF oDlgI //Action VaParaWeb() oSB3:cToolTip:="Vai para home page da empresa" oSB3:SetFont(oFnt9I) REDEFINE BUTTON oBt ID 112 OF oDlgI Action oDlgI:End() oBt:SetFont(oFnt9I) Activate dialog oDlgI CENTERED oFntGB:End() oFnt:End() oFnt9:End() oFnt9B:End() oFnt9I:End() oFntB:End() RETURN NIL DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL" Quote Link to comment Share on other sites More sharing options...
rochinha Posted April 29, 2016 Report Share Posted April 29, 2016 Amiguinhos, Bencz O kapiaba só não te explicou que você deve carregar a BWCC32.DLL, mas olhando o código que ele postou você deve clarear as idéias. kapiaba 1 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.