Dear José,
Many thanks for your feedback!
Could you provide us an example PRG to reproduce the error ? many thanks
REQUEST HB_CODEPAGE_PTISO
#include "inkey.ch"
PROCEDURE Main()
Set( _SET_CODEPAGE, "PTISO" )
fw_SetTruePixel( .T. )
RunModuleAsThread( { || test_Module() } )
RunModuleAsThread( { || test_Module() } )
hb_ThreadWaitForAll()
RETURN
FUNCTION Test_Module()
LOCAL aCodeList := Array(5), GetList := {}, nCode
Afill( aCodeList, 0 )
// aqui eu aciono uma TELA DO FIVEWIN FOR WINDOWS.
SET KEY K_F9 TO test_browse
@ 0, 0 SAY ""
FOR EACH nCode IN aCodeList
@ Row() + 1, 1 SAY "Code:" GET nCode PICTURE "99999"
NEXT
READ
RETURN Nil
PROCEDURE HB_GTSYS
REQUEST HB_GT_WVG_DEFAULT
RETURN
JoséQuintas wrote:Tenho um aplicativo com centenas de dialogs.
Posso alterar pra fivewin qualquer dialog a qualquer momento.
Não vê vantagem nisso ?
Se fosse só essa vantagem, ela já é muito útil.
I have an application with thousands of dialogs.
I can change any dialog to fivewin at any time.
Do you not see advantage on this ?
If this was the only advantage, it already is usefull.
Tenho um aplicativo com centenas de dialogs.
PROCEDURE Main()
Set( _SET_CODEPAGE, "PTISO" )
SET EXCLUSIVE OFF
fw_SetTruePixel( .T. )
RunModuleAsThread( { || test_Module() } )
RunModuleAsThread( { || test_Module() } )
RunModuleAsThread( { || Test_MBrowse() }, .F. )
RunModuleAsThread( { || Test_MBrowse() }, .F. )
RunModuleAsThread( { || Test_MBrowse() }, .F. )
hb_ThreadWaitForAll()
RETURN
#include "fivewin.ch"
PROCEDURE Test_MBrowse
USE dbproduct
BROWSE()
CLOSE DATABASES
RETURN
FUNCTION RunModuleAsThread( bCode, lIsWVG )
LOCAL pThread
pThread := hb_ThreadStart( { || RunModule( bCode, lIsWVG ) } )
RETURN pThread
FUNCTION RunModule( bCode, lIsWVG )
hb_Default( @lIsWVG, .T. )
hb_gtReload( "WVG" )
IF lIsWVG
SetMode(25,80)
CLS
ENDIF
Eval( bCode )
RETURN Nil
CLOSE DATABASES
karinha wrote:GTWVG?? What is that? I have no idea how to compile this thing. It doesn't even make sense to me, knowing how to program in PURE FIVEWIN, why would I mix something prehistoric with something as modern and powerful as FIVEWIN? I'm sorry, I don't use CONSOLE MODE under any circumstances.
karinha wrote:I can't discuss this with you. When you have a powerful DEMO in FIVEWIN,
#include "fivewin.ch"
PROCEDURE Test_MBrowse
USE dbproduct
BROWSE()
CLOSE DATABASES
RETURN
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot], Horizon and 26 guests