FiveTech Software tech support forums

by **Antonio Linares** » Wed Dec 14, 2016 5:37 pm

Luis,

Se lo he comentado a Rao para saber su opinión.

Centrándonos ahora en el asunto de las imágenes:

Por favor muéstrame como creas esos botones. Algo que nos dé una pista de que pueda estar sucediéndote.

Aqui las aplicaciones funcionan bien

by **nageswaragunupudi** » Thu Dec 15, 2016 1:44 pm

Algo muy importante

Con base de datos grandes y medianas es mas rapido el manejo de MySql con ODBC que con la nueva clase de Fw para manejo directo de MySql

Ejemplo: simplemente pueden comparar y tomar tiempos, ODBC es mas de 3 veces rapido

We maintain a Million rows table by name `custbig` on our localhost for the purpose of benchmarking and performance checking during our development. This table is derived from customer.dbf by copying 2000 times.

We prepared this test program to compare the speeds of reading 1,000,000 rows from this table by ODBC (using TOdbc and TOdbcDirect classes of FWH), ADO (superior than ODBC) and FWHMYSQL.

Code: Select all Expand view: #include "fivewin.ch" REQUEST DBFCDX //----------------------------------------------------------------------------// function Main() local oODBC, oADO, oFWH local oQry, oRsADO, oRsFWH local nSecs, nODBCSecs, nADOSecs, nFWHSecs local cTable := "custbig" RDDSETDEFAULT( "DBFCDX" ) SET DELETED ON SET DATE ITALIAN SET CENTURY ON FWNumFormat( "A", .t. ) ? "Connecting" oODBC := TOdbc():New( "MYSQLANSI", "gnrao", "secret" ) oADO := FW_OpenAdoConnection( "MYSQL,localhost,fwh,gnrao,secret", .t. ) FWCONNECT oFWH HOST "localhost" USER "gnrao" PASSWORD "secret" DATABASE "fwh" nSecs := Seconds() MsgRun( "Reading table", "ODBC", { || ; oQry := oOdbc:Query( "SELECT * FROM custbig" ), ; oQry:Open(), ; oQry:RecCount() } ) nODBCSecs := Seconds() - nSecs nSecs := Seconds() MsgRun( "Reading Table", "ADO", { || oRsADO := FW_OpenRecordSet( oAdo, cTable ) } ) nAdoSecs := Seconds() - nSecs MsgRun( "Reading table", "FWH-MARIADB", { || oRsFWH := oFwh:RowSet( cTable ) } ) nFwhSecs := oRsFwh:nReadSecs XBROWSER oQry FASTEDIT SHOW SLNUM ; TITLE "Million Rows Read in " + cValToChar( nODBCSecs ) + " by ODBC" NOMODAL XBROWSER oRsADO FASTEDIT SHOW SLNUM ; TITLE "Million Rows Read in " + cValToChar( nADOSecs ) + " by ADO" NOMODAL XBROWSER oRsFWH FASTEDIT SHOW SLNUM ; TITLE "Million Rows Read in " + cValToChar( nFWHSecs ) + " by FWH-MARIADB" oODBC:End() oAdo:Close() oFwh:Close() return nil

We can see the times taken on the Titles of the Browses.
This sample can be tried by any one on their system by changing login parameters and table name, without any additional libraries.

Summary:

Time taken for reading 1,000,000 records of custbig table from localhost.

Code: Select all Expand view: ODBC 138.17 seconds ( 2 minutes 18 seconds ) ADO 14.58 seconds FWHMYSQL 3.78 seconds

We see that ADO took about 4 times and ODBC took 36.5 times more than FWMYSQL to read the same table.

It is pertinent to mention that TDolphin and TMySql are faster than FWHMYSQL and they take around 2.5 seconds. The difference is due to the different approach adopted by FWH and that is a conscious decision. In most cases the difference is negligible.

In case you have found out any ODBC implementation which can read the 1,000,000 row table in one second or less then kindly let us know its source and we try to learn from that.

by **luisduque** » Sat Dec 17, 2016 6:08 am

Maestro Antonio

Para ir descartando sustituí FiveHC32.Lib por la de la versión 11.05 y me salia un error de una funcion en C y la cree (GDIP_DRAWTEXT) y sirvió excelente
ahora revisando la function se agregó en gdipfwh.cpp, comparando hubo cambios en el .cpp con respecto a la version 11.05.

La idea es comparar para saber de esa librería cual el el error pero para ustedes es mas facil saber que el error está por la winapi

Gracias.

by **Antonio Linares** » Sat Dec 17, 2016 9:15 am

Estamos revisándolo

gracias

by **Antonio Linares** » Sat Dec 17, 2016 10:30 am

Luis,

Aparte de tus PRGs y de FWH, estás enlazando algo más ?

Visual Studio te da algún aviso de símbolo duplicado al enlazar ?

by **Antonio Linares** » Sat Dec 17, 2016 10:32 am

Rao ha construido este espectacular ejemplo para probar que los botones en FWH 16.11 funcionan perfectamente:

Code: Select all Expand view: #include "FiveWin.ch" function Main() local aBmp, oWnd, n, r, c, w, h w := ScreenWidth() - 60 h := ScreenWidth() - 100 aBmp := DIRECTORYRECURSE( "c:\fwh\bitmaps\*.*" ) r := 10 c := 0 DEFINE WINDOW oWnd for n := 1 to 1000 @ r, c BTNBMP PROMPT cFileNoExt( aBmp[ n, 1 ] ) ; FILE aBmp[ n, 1 ] SIZE 36,42 PIXEL OF oWnd c += 40 if c > w r += 45 c := 0 if r > h EXIT endif endif next n ACTIVATE WINDOW oWnd MAXIMIZED return nil

by **Antonio Linares** » Sat Dec 17, 2016 10:50 am

Aqui otro ejemplo similar usando gradientes.

Como se puede ver, está funcionando bien. Luego parece ser algo específico de tu aplicación, Luis.

Ha sido probado con bcc Harbour, xharbour, MSVC 32bits Harbour, MSVC 64 bits y BCC7164

Funcionando bien con todos ellos :-)

Code: Select all Expand view: #include "fivewin.ch" function Main() local aBmp, oWnd, oBrush, n, r, c, w, h w := ScreenWidth() - 70 h := ScreenHeight() - 80 aBmp := DIRECTORYRECURSE( "c:\fwh\bitmaps\*.*" ) r := 10 c := 0 DEFINE BRUSH oBrush GRADIENT { { 1, CLR_WHITE, CLR_YELLOW } } DEFINE WINDOW oWnd BRUSH oBrush for n := 1 to 1000 @ r, c BTNBMP PROMPT cFileNoExt( aBmp[ n, 1 ] ) ; FILE aBmp[ n, 1 ] SIZE 48,64 PIXEL OF oWnd 2007 c += 55 if c > w r += 70 c := 0 if r > h EXIT endif endif next n ACTIVATE WINDOW oWnd MAXIMIZED RELEASE BRUSH oBrush return nil

by **luisduque** » Sat Dec 17, 2016 4:25 pm

Maestro Antonio

No he podido mostrar con un ejemplo claro porque no puedo reproducir el error

Trabajo ese tema muy normal

Code: Select all Expand view: @268,106 BTNBMP qBtnZN File "Imagenes\Zonas.bmp" Prompt "&Zonas" PIXEL OF oDlgCli Size 26,26 Font oFontBtn ACTION TabZonas() 2007

por otro lado

Buildh32

Code: Select all Expand view: @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for Harbour 16.05 (MSVC++) May 2016 Harbour development power ³Ü ECHO ³ (c) FiveTech,1993-2015 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST set oldpath=%path% set oldinclude=%include% set oldlib=%lib% set oldlibpath=%libpath% if exist "%ProgramFiles%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" call "%ProgramFiles%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" if exist "%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" call "%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" if "%FWDIR%" == "" set FWDIR=c:\fwhU if "%HBDIR%" == "" set HBDIR=c:\harbour ECHO Compiling... @set fwh=%FWDIR% @set hdir=%HBDIR% @set hdirl=%hdir%\lib\vc32 del *.obj del *.ppo attrib %1.exe -r %hdir%\bin\harbour otrasfun.prg /n /i%fwh%\include;%hdir%\include;%sdkdir%\include /w0 /p %2 %3 > comp.log %hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include;%sdkdir%\include /w0 /p %2 %3 > comp.log 2> warnings.log IF ERRORLEVEL 1 GOTO COMPILEERROR @type comp.log @type warnings.log rem "%VCINSTALLDIR%"bin\cl -TP -W3 -c /GS- /I%hdir%\include /GA %1.c otrasfun.c "%VCINSTALLDIR%"bin\cl -TP -W3 -c /I%hdir%\include %1.c otrasfun.c :ENDCOMPILE IF EXIST %1.rc IF EXIST "%VCINSTALLDIR%"bin\rc "%VCINSTALLDIR%"bin\rc -r -d__FLAT__ %1 IF EXIST %1.rc IF NOT EXIST %1.res rc -r -d__FLAT__ %1 echo %1.obj otrasfun.obj > msvc.tmp echo %fwh%\lib\FiveH32.lib %fwh%\lib\FiveHC32.lib %fwh%\lib\libmysql32.lib >> msvc.tmp echo %hdirl%\hbrtl.lib >> msvc.tmp echo %hdirl%\hbvm.lib >> msvc.tmp echo %hdirl%\gtgui.lib >> msvc.tmp echo %hdirl%\hblang.lib >> msvc.tmp echo %hdirl%\hbmacro.lib >> msvc.tmp echo %hdirl%\hbrdd.lib >> msvc.tmp echo %hdirl%\rddntx.lib >> msvc.tmp echo %hdirl%\rddcdx.lib >> msvc.tmp echo %hdirl%\rddfpt.lib >> msvc.tmp echo %hdirl%\hbsix.lib >> msvc.tmp echo %hdirl%\hbdebug.lib >> msvc.tmp echo %hdirl%\hbcommon.lib >> msvc.tmp echo %hdirl%\hbpp.lib >> msvc.tmp echo %hdirl%\hbcpage.lib >> msvc.tmp echo %hdirl%\hbwin.lib >> msvc.tmp echo %hdirl%\hbct.lib >> msvc.tmp echo %hdirl%\hbziparc.lib >> msvc.tmp echo %hdirl%\hbmzip.lib >> msvc.tmp echo %hdirl%\hbzlib.lib >> msvc.tmp echo %hdirl%\hbpcre.lib >> msvc.tmp echo %hdirl%\minizip.lib >> msvc.tmp echo %hdirl%\xhb.lib >> msvc.tmp echo %hdirl%\hbcplr.lib >> msvc.tmp echo %hdirl%\png.lib >> msvc.tmp echo %hdirl%\hbcomm.lib >> msvc.tmp rem Uncomment these two lines to use Advantage RDD rem echo %hdirl%\rddads.lib >> msvc.tmp rem echo %hdirl%\ace32.lib >> msvc.tmp rem echo ws2_32.lib >> msvc.tmp echo kernel32.lib >> msvc.tmp echo user32.lib >> msvc.tmp echo gdi32.lib >> msvc.tmp echo winspool.lib >> msvc.tmp echo comctl32.lib >> msvc.tmp echo comdlg32.lib >> msvc.tmp echo advapi32.lib >> msvc.tmp echo shell32.lib >> msvc.tmp echo ole32.lib >> msvc.tmp echo oleaut32.lib >> msvc.tmp echo uuid.lib >> msvc.tmp echo odbc32.lib >> msvc.tmp echo odbccp32.lib >> msvc.tmp echo iphlpapi.lib >> msvc.tmp echo mpr.lib >> msvc.tmp echo version.lib >> msvc.tmp echo wsock32.lib >> msvc.tmp echo msimg32.lib >> msvc.tmp echo oledlg.lib >> msvc.tmp echo psapi.lib >> msvc.tmp echo gdiplus.lib >> msvc.tmp echo winmm.lib >> msvc.tmp echo vfw32.lib >> msvc.tmp echo runtimeobject.lib >> msvc.tmp echo ws2_32.lib >> msvc.tmp echo shlwapi.lib >> msvc.tmp echo strmiids.lib >> msvc.tmp IF EXIST %1.res echo %1.res >> msvc.tmp "%VCINSTALLDIR%"bin\link @msvc.tmp /nologo /subsystem:windows,5.01 /force:multiple /NODEFAULTLIB:msvcrt /machine:X86 /nxcompat:NO /Ignore:4006 IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built * @set path=%oldpath% @set include=%oldinclude% @set lib=%oldlib% @set libpath=%oldlibpath% @set oldpath="" @set oldinclude="" @set oldlib="" @set oldlibpath="" %1 GOTO EXIT ECHO rem delete temporary files @del %1.c @del msvc.tmp :COMPILEERROR @type comp.log @type warnings.log ECHO * Compiling errors * GOTO EXIT :LINKERROR ECHO * Linking errors * GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG %1 does not exist :EXIT

buildh64

Code: Select all Expand view: @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for Harbour 16.05 - May 2016 Harbour development power ³Ü ECHO ³ (c) FiveTech,1993-2015 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST @set oldpath=%path% @set oldinclude=%include% @set oldlib=%lib% @set oldlibpath=%libpath% if exist "%ProgramFiles%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" call "%ProgramFiles%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" x86_amd64 if exist "%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" call "%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" x86_amd64 if "%FWDIR%" == "" set FWDIR=c:\fwh64U if "%HBDIR%" == "" set HBDIR=c:\harbour64 ECHO Compiling... @set fwh=%FWDIR% set hdir=%HBDIR% set hdirl=%hdir%\lib\vc64 del *.obj del *.ppo attrib %1.exe -r %hdir%\bin\harbour otrasfun.prg /n /i%fwh%\include;%hdir%\include;%sdkdir%\include /w0 /p /d__64__ %2 %3 > comp.log %hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w0 /p /d__64__ %2 %3 > comp.log 2> warnings.log IF ERRORLEVEL 1 GOTO COMPILEERROR @type comp.log @type warnings.log cl -TP -W3 -O2 -c -I%hdir%\include %1.c otrasfun.c :ENDCOMPILE IF EXIST %1.rc rc -r -D__64__ %1 echo %1.obj otrasfun.obj > msvc.tmp echo %fwdir%\lib\FiveH64.lib %fwdir%\lib\FiveHC64.lib %fwdir%\lib\libmysql64.lib >> msvc.tmp echo %hdirl%\hbrtl.lib >> msvc.tmp echo %hdirl%\hbvm.lib >> msvc.tmp echo %hdirl%\gtgui.lib >> msvc.tmp echo %hdirl%\hblang.lib >> msvc.tmp echo %hdirl%\hbmacro.lib >> msvc.tmp echo %hdirl%\hbrdd.lib >> msvc.tmp echo %hdirl%\rddntx.lib >> msvc.tmp echo %hdirl%\rddcdx.lib >> msvc.tmp echo %hdirl%\rddfpt.lib >> msvc.tmp echo %hdirl%\hbsix.lib >> msvc.tmp echo %hdirl%\hbdebug.lib >> msvc.tmp echo %hdirl%\hbcommon.lib >> msvc.tmp echo %hdirl%\hbpp.lib >> msvc.tmp echo %hdirl%\hbcpage.lib >> msvc.tmp echo %hdirl%\hbwin.lib >> msvc.tmp echo %hdirl%\hbct.lib >> msvc.tmp echo %hdirl%\hbziparc.lib >> msvc.tmp echo %hdirl%\hbmzip.lib >> msvc.tmp echo %hdirl%\hbzlib.lib >> msvc.tmp echo %hdirl%\hbpcre.lib >> msvc.tmp echo %hdirl%\minizip.lib >> msvc.tmp echo %hdirl%\xhb.lib >> msvc.tmp echo %hdirl%\hbcplr.lib >> msvc.tmp echo %hdirl%\png.lib >> msvc.tmp echo %hdirl%\hbcomm.lib >> msvc.tmp rem Uncomment these two lines to use Advantage RDD rem echo %hdirl%\rddads.lib >> msvc.tmp rem echo %hdirl%\ace32.lib >> msvc.tmp rem echo ws2_32.lib >> msvc.tmp echo kernel32.lib >> msvc.tmp echo user32.lib >> msvc.tmp echo gdi32.lib >> msvc.tmp echo winspool.lib >> msvc.tmp echo comctl32.lib >> msvc.tmp echo comdlg32.lib >> msvc.tmp echo advapi32.lib >> msvc.tmp echo shell32.lib >> msvc.tmp echo ole32.lib >> msvc.tmp echo oleaut32.lib >> msvc.tmp echo uuid.lib >> msvc.tmp echo odbc32.lib >> msvc.tmp echo odbccp32.lib >> msvc.tmp echo iphlpapi.lib >> msvc.tmp echo mpr.lib >> msvc.tmp echo version.lib >> msvc.tmp echo wsock32.lib >> msvc.tmp echo msimg32.lib >> msvc.tmp echo oledlg.lib >> msvc.tmp echo psapi.lib >> msvc.tmp echo gdiplus.lib >> msvc.tmp echo winmm.lib >> msvc.tmp echo vfw32.lib >> msvc.tmp echo runtimeobject.lib >> msvc.tmp echo ws2_32.lib >> msvc.tmp echo shlwapi.lib >> msvc.tmp echo strmiids.lib >> msvc.tmp IF EXIST %1.res echo %1.res >> msvc.tmp link @msvc.tmp /nologo /subsystem:windows,5.02 /force:multiple /NODEFAULTLIB:libc /machine:X64 /nxcompat:NO /Ignore:4006 rem link @msvc.tmp /nologo /subsystem:windows /force:multiple /NODEFAULTLIB:msvcrt IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built * @set path=%oldpath% @set include=%oldinclude% @set lib=%oldlib% @set libpath=%oldlibpath% @set oldpath="" @set oldinclude="" @set oldlib= @set oldlibpath= GOTO EXIT ECHO rem delete temporary files @del %1.c @del msvc.tmp :COMPILEERROR @type comp.log ECHO * Compiling errors * GOTO EXIT :LINKERROR ECHO * Linking errors * GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG %1 does not exist :EXIT

by **Antonio Linares** » Sun Dec 18, 2016 10:48 am

Luis,

Por favor modifica el código fuente de source\winapi\dib.c de esta forma:

Code: Select all Expand view: HGLOBAL DibRead( LPSTR szDibName ) { HFILE hFile; LONG lSize; HGLOBAL hDib = 0; BITMAPFILEHEADER Header; if( hFile = ( HFILE ) _lopen( szDibName, READ ) ) { if( hDib = ( HGLOBAL ) fwGlobalAlloc( GMEM_MOVEABLE | GMEM_DISCARDABLE, lSize = _llseek( hFile, 0, 2 ) ) ) { _llseek( hFile, 0, 0 ); _lread( hFile, &Header, sizeof( BITMAPFILEHEADER ) ); _hread( hFile, GlobalLock( hDib ), lSize - sizeof( BITMAPFILEHEADER ) ); GlobalUnlock( hDib ); } _lclose( hFile ); } else MessageBox( 0, "error", "error", 0 ); return hDib; }

veamos si los ficheros de las imágenes son abiertos correctamente

by **Antonio Linares** » Sun Dec 18, 2016 11:03 am

Luis,

> Al quitar los combobox o el xbrowse me elimina el error en ventanas que salen las imágenes del btnbmp mal

En las imágenes que has publicado aparece el mismo bitmap monocromo en donde debería aparecer el xbrowse

Porque se vé un bitmap en el lugar del xbrowse ? Cómo has eliminado el xbrowse ?

Usas alguna clase de FWH modificada por ti ?

Visual Studio te muestra algún warning de que hay alguna función duplicada ?

by **Antonio Linares** » Sun Dec 18, 2016 3:48 pm

Luis,

Los bitmaps que muestras son desde recursos ó fichero externos BMP ?

Puedes enviarnos los BMPs, RC (y RES) ? gracias

by **luisduque** » Sun Dec 18, 2016 5:17 pm

Maestro Antonio

1. Todos los bmp son externos
2. No he modificado ninguna clase

Ahora para poder determinar me di la tarea de comparar la version 16.10 y 16.11

WINAPI,FUNCTION Y CLASES

FiveHC32.lib(Aqui está el problema)

WINAPI (que fueron modificadas en la versión 16.11)

Code: Select all Expand view: color.c HB_FUNC( ARGB2RGB ) { #ifdef _WIN64 LONGLONG argb = hb_parnll( 1 ); #else double argb = hb_parnd( 1 ); #endif HB_LONG rgb; if ( argb > 0x00ffffff ) { rgb = ( ( ( ULONG ) argb ) & 0x00ffffff ); rgb = ( ( rgb & 0x00ff0000 ) >> 16 ) | ( ( rgb & 0x0000ff00 ) ) | ( ( rgb & 0x000000ff ) << 16 ); } else rgb = ( ULONG ) argb; hb_retnl( rgb ); } ctrldraw.c // if( lstrcmp( ClassName, "MDIClient" ) == 0 ) // MDIClient // iParentsWithCaption++; // if( lstrcmp( ClassName, L"MDIClient" ) == 0 ) // MDIClient // iParentsWithCaption++; fonts.c if( lpLogFont->lfFaceName[ 0 ] != '@' ) hb_storvc( lpLogFont->lfFaceName, -1, nFontIndex ); else hb_storvc( lpLogFont->lfFaceName + 1, -1, nFontIndex ); gdipfwh.cpp HB_FUNC( GDIP_COLORBRUSH ) { hb_retptr( new SolidBrush( rgbtoclr( (ARGB) hb_parnd( 1 ) ) ) ); } //----------------------------------------------------------------------------// HB_FUNC( GDIP_IMAGEBRUSH ) { Bitmap * pImage = ( Bitmap * ) hb_parptr( 1 ); hb_retptr( new TextureBrush( pImage ) ); } //----------------------------------------------------------------------------// HB_FUNC( GDIP_DELETEBRUSH ) { delete ( ( Brush * ) hb_parptr( 1 ) ); } //----------------------------------------------------------------------------// #ifdef _WIN64 #ifdef __BORLANDC__ #define __BCC64__ #endif #endif HB_FUNC( GDIP_DRAWTEXT ) // hDC, cText, aRect, hFont, pBrush, nAlign ) { HDC hDC = ( HDC ) fw_parH( 1 ); Graphics * graphics = new Graphics( hDC ); LPWSTR string = fw_parWide( 2 ); HFONT hFont = ( HFONT ) fw_parH( 4 ); Font font( hDC, hFont ); Brush * brush; LPCSTR pStr; int nAlign = DT_CENTER | DT_VCENTER; BOOL bLocalBrush = FALSE; RectF layoutRect = RectF( hb_parvnd( 3, 2 ), hb_parvnd( 3, 1 ), hb_parvnd( 3, 4 ) - hb_parvnd( 3, 2 ), hb_parvnd( 3, 3 ) - hb_parvnd( 3, 1 ) ); if ( HB_ISPOINTER( 5 ) ) brush = ( Brush * ) hb_parptr( 5 ); else { bLocalBrush = TRUE; brush = new SolidBrush( rgbtoclr( (ARGB) ( HB_ISNUM( 5 ) ? hb_parnd( 5 ) : 0x80000000 ) ) ); } if ( HB_ISCHAR( 6 ) ) { pStr = hb_parc( 6 ); nAlign = ( strchr( pStr, 'L' ) == NULL && strchr( pStr, 'l' ) == NULL ? ( strchr( pStr, 'R' ) == NULL && strchr( pStr, 'r' ) == NULL ? DT_CENTER : DT_RIGHT ) : DT_LEFT ) + ( strchr( pStr, 'T' ) == NULL && strchr( pStr, 't' ) == NULL ? ( strchr( pStr, 'B' ) == NULL && strchr( pStr, 'b' ) == NULL ? DT_VCENTER : DT_BOTTOM ) : DT_TOP ); } else if ( HB_ISNUM( 6 ) ) nAlign = ( hb_parni( 6 ) & 0x0f ); //#if defined(__BCC64__) || defined(__GNUC__) // graphics->DrawString( string, -1, &font, layoutRect, NULL, brush ); //#else // StringFormat sf = new StringFormat( 0, LANG_NEUTRAL ); StringFormat sf; sf.SetAlignment( ( StringAlignment ) ( nAlign & 3 )); sf.SetLineAlignment( ( StringAlignment ) ( nAlign >> 2 ) ); graphics->DrawString( string, -1, &font, layoutRect, &sf, brush ); //#endif hb_xfree( string ); if ( bLocalBrush ) delete brush; } //----------------------------------------------------------------------------// gdiplus.cpp HB_FUNC( GDIP_SETWRAPTEXTUREBRUSH ) { TextureBrush * Brush = ( TextureBrush * ) hb_parptr( 1 ); int ntype = hb_parni( 2 ) ; if ( ntype == 0 ) Brush->SetWrapMode( WrapModeTile ) ; if ( ntype == 1 ) Brush->SetWrapMode( WrapModeTileFlipX ) ; if ( ntype == 2 ) Brush->SetWrapMode( WrapModeTileFlipY ) ; if ( ntype == 3 ) Brush->SetWrapMode( WrapModeTileFlipXY ) ; if ( ntype == 4 ) Brush->SetWrapMode( WrapModeClamp ) ; } //----------------------------------------------------------------------------// text.c HB_FUNC( DRAWTEXTEX ) // ( hDC, cText, aRect, nStyle, [hFont], [nClr], [@nRight] ) --> nHeight HDC hDC; HFONT hFont, hOldFont; COLORREF nClr, nOldClr; BOOL bColor = FALSE; hDC = fw_parH( 1 ); if ( hb_pcount() > 4 && HB_ISNUM( 5 ) ) { hFont = ( HFONT ) fw_parH( 5 ); hOldFont = SelectObject( hDC, hFont ); } if ( hb_pcount() > 5 && HB_ISNUM( 6 ) ) { bColor = TRUE; nClr = ( COLORREF ) ( hb_parnl( 6 ) & 0xffffff ); nOldClr = SetTextColor( hDC, nClr ); } iRet = DrawTextExW( hDC, iRet = DrawTextExA( hDC, if ( hOldFont ) SelectObject( hDC, hOldFont ); if ( bColor ) SetTextColor( hDC, nOldClr ); if ( hb_pcount() > 6 && HB_ISBYREF( 7 ) && ( dwStyle & DT_CALCRECT ) ) hb_storni( rct.right, 7 );

FUNCTION (que fueron modificadas en la versión 16.11) (no debe tener nada que ver con el error)

Code: Select all Expand view: imgtxtio.prg valtostr.prg valtostt.prg//new

CLASES (que fueron modificadas en la versión 16.11) (Compile las clases como para probar y no tienen problema)

Code: Select all Expand view: btnbmp.prg menu.prg pdmenu.prg printer.prg rpreview.prg say.prg tfoldex.prg triched5.prg window.prg xbrowse.prg

Que hice
FiveH32 y FiveHC32 son las librerias principales donde están las Clases, funciones y API

Sustituí FiveH32.lib y seguia el error
luego Sustituí FiveHC32.lib que es la que tiene las funciones y api y el error deja de salir

Lo que si no logro entender es porque en 64bits si sirve bien, pudiera ser una declación de variable o algo así no se

Enlace para las imagenes

https://www.dropbox.com/sh/ctnzxlk544ja ... AHfva?dl=0

Muchas gracias

by **Antonio Linares** » Mon Dec 19, 2016 7:54 am

Luis,

Puedes responderme a esta pregunta ?

> Visual Studio te muestra algún warning de que hay alguna función duplicada ?

Seguimos revisando las diferencias para saber que pueda estar sucediendote.

gracias por tu feedback

by **luisduque** » Mon Dec 19, 2016 6:54 pm

Maestro Antonio

Visual Studio te muestra algún warning de que hay alguna función duplicada?
no da ningún warning

lo extraño es que en 64bits se comporta bien con Visual Studio, voy a ver si hago unas pruebas con Borland c 7

Gracias

FiveTech Software tech support forums

Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Re: Nuevo FWH 16.11

Who is online