Jump to content
Fivewin Brasil

Erro ao criar DIALOG


Recommended Posts

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 ?

Link to comment
Share on other sites

#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"

Link to comment
Share on other sites

  • 1 year later...

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...
×
×
  • Create New...