bencz
-
Posts
3 -
Joined
-
Last visited
Posts posted by bencz
-
-
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, 212STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENUCAPTION "Sobre o PROGRAMA."FONT 8, "MS Sans Serif"BEGINCONTROL "Button", 1150, "BorBtn", 32768 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 75, 0, 33, 27CONTROL "", -1, "STATIC", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 75, 0, 33, 27CONTROL "", -1, "STATIC", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 1, 28, 181, 39CTEXT "Cobrança", 200, 2, 29, 179, 11CONTROL "", -1, "BorShade", 2 | WS_CHILD | WS_VISIBLE, 1, 41, 181, 1CTEXT "Programa de coisa....", 201, 2, 44, 179, 11CTEXT "Versão X.XX.XXX - DD/MM/AAAA - HH:MM:SS", 100, 2, 57, 179, 9CONTROL "", -1, "STATIC", SS_GRAYFRAME | WS_CHILD | WS_VISIBLE, 1, 68, 181, 31RTEXT "Copyright © 2000 by XXXXXXXXXXXXXXXXXXXX", -1, 4, 73, 175, 8RTEXT "São Paulo - SP", -1, 4, 87, 175, 8CONTROL "", -1, "STATIC", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 1, 100, 181, 90CONTROL "", -1, "STATIC", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 3, 102, 177, 12RTEXT "Número de série do produto: ", -1, 4, 104, 102, 8LTEXT "XXXXXXXXXXX", 101, 111, 103, 68, 8LTEXT "C:\\Dir", 102, 6, 123, 171, 9LTEXT "Windows", 103, 6, 141, 171, 8LTEXT "@inicial", 105, 6, 159, 171, 8LTEXT "ESTAÇÃO", 106, 6, 179, 171, 8LTEXT "Instalado em:", -1, 5, 115, 174, 7LTEXT "Sistema operacional:", -1, 5, 133, 174, 7LTEXT "Usuário operador:", -1, 5, 151, 174, 9LTEXT "Estação de trabalho:", -1, 5, 170, 174, 8PUSHBUTTON "www.&bradesco.com.br", 111, 5, 194, 82, 14PUSHBUTTON "&OK", 112, 131, 194, 43, 14ENDE o local onde ativo a dialog é esse:STATIC FUNCTION MainSobri()LOCAL PULI,PLAO,WT,TABA,OIST,WORK,TABSLocal oDlgI,oFnt,oFnt9,oFntB,oFnt9B,oFnt9I,oFntGBLocal oSay1,oSB1,oSB2,oSB3,oBtLOCAL oSay2,oSay3,oSay4,oSay5,oSay6,oSay7,oSay8Local cDescri := "Versão "+VERSAOPRODUTO+" - "+DTOC(DATAVERSAO)+' - '+HORAVERSAOLocal cNumSer := AllTrim(PUBNUMSER)Local cEstacao := NetName()DO CASECASE 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'ENDCASEDefine Font oFntGB Name "Ms Sans Serif" Size 0, -16 BoldDefine Font oFnt Name "Ms Sans Serif" Size 0, -6Define Font oFnt9 Name "Ms Sans Serif" Size 0, -10Define Font oFnt9B Name "Ms Sans Serif" Size 0, -13Define Font oFnt9I Name "Ms Sans Serif" Size 0, -12 //UnderLineDefine Font oFntB Name "Ms Sans Serif" Size 0, -8 BoldDEFINE DIALOG oDlgI RESOURCE "DSOBRE" FONT oFntREDEFINE SAY oSay1 ID 200 Of oDlgI Font oFntGBREDEFINE SAY oSay2 ID 201 Of oDlgI Font oFnt9REDEFINE 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 oFntBREDEFINE SAY oSay6 Var WT ID 103 Of oDlgI Font oFntBREDEFINE SAY oSay7 Var OPERATOR ID 105 Of oDlgI Font oFntBREDEFINE SAY oSay8 Var cEstacao ID 106 Of oDlgI Font oFntBREDEFINE 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 CENTEREDoFntGB:End()oFnt:End()oFnt9:End()oFnt9B:End()oFnt9I:End()oFntB:End()RETURN NILO Erro:Application===========Size: 2,107,392 bytesCompiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6406)FiveWin Version: FWHX 11.11Windows version: 6.1, Build 7601 Service Pack 1Time from start: 0 hours 0 mins 5 secsError occurred at: 25/07/2014, 09:12:19Error description: Error FiveWin/3 Cannot create Dialog Box:Resource: DSOBREArgs: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 ?
-
é muito simples, veja:
#include "inkey.ch"function main() CTRL_HANDLE_CONSOLE() IF FILE("cliente.dbf") == .F. aDB := { { "Codigo", "N", 3, 0 }, { "Nome", "C", 50, 0 } } DbCreate( "clientes", aDB ) ENDIF USE Clientes EXCLUSIVE NEW while .t. tk := inkey(0,INKEY_ALL) if tk==27 .and. nextkey()==0 minha_funcao() endif endreturn nilfunction minha_funcao() ? "Fechando tudoooo!!!" CLOSE ALL QUITreturn nil#pragma BEGINDUMP#include "hbapi.h"#include "hbinit.h"#include "hbvm.h"#include HB_FUNC_EXTERN( MINHA_FUNCAO ); // define como função externaint WINAPI closeHandler(DWORD Evento){ switch (Evento) { case CTRL_CLOSE_EVENT: MessageBox(NULL, "Vc clicou no X", "Eba Oba!!", MB_OK); HB_FUNC_EXEC( MINHA_FUNCAO ); // chamada da função HARBOUR return 0; } return 1;}HB_FUNC( CTRL_HANDLE_CONSOLE ){ SetConsoleCtrlHandler(closeHandler, 1);}#pragma ENDDUMP
Problemas ao finalizar o processo
in Programação
Posted
Mas ficou a duvida, como utilizo isto ?
{è um override do metodo end ?
Como posso utilizar tal procecimento ?