De *.C Para *.Obj en BCC74 no funciona más.

[karinha]

Maestros, porque esto no funciona más con BCC para xHarbour 7.40? y fwh1905

Code: Select all  Expand view  RUN

%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_themeapi.c
 

Gracias.

Regards, saludos.

[Enrico Maria Giordano]

Check the content of BCC32 include directory. Inside mine there are two subdirectories (dinkumware and windows, the latter with other subdirectories inside it). If it is the same for you, you have to specify all the required directories, specifically:

include\windows\crtl
include\windows\sdk
include\dinkumware

[karinha]

Thanks Enrico, ENRICO.BAT

Code: Select all  Expand view  RUN

@Echo On
Cls

Set hdir=C:\XHBBCC74
Set bcdir=C:\BCC74\include\windows\crtl
Set bcdir=C:\BCC74\include\windows\sdk
Set bcdir=C:\BCC74\include\dinkumware
Set bcdir=C:\BCC74
Set fwhdir=C:\FwH1905

COPY C:\TTASKPAN\SOURCE\*.C / Y

%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_themeapi.c
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_themeaux.C
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_themegdi.C
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_tthememanager.C
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_dibbmp.C
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_drawhtml.C
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ r_themeclassic.C
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ r_themexphomestead.C
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ r_themexpmetallic.C
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ r_themexpnormalcolor.C
%bcdir%\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_outputdebug.C
 

Regards, saludos.

[karinha]

Enrico, estes dos archivos me genera estos errores:

c:\TTaskPan>C:\BCC74\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_tthememanager.C
Embarcadero C++ 7.40 for Win32 Copyright (c) 1993-2018 Embarcadero Technologies, Inc.
c_TThemeManager.c:
Warning W8065 c_TThemeManager.c 282: Call to function 'FontHeight2Pt' with no prototype in function _i_GetSetFont
*** 1 errors in Compile ***

c:\TTaskPan>C:\BCC74\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_dibbmp.C
Embarcadero C++ 7.40 for Win32 Copyright (c) 1993-2018 Embarcadero Technologies, Inc.
c_DibBmp.c:
Warning W8012 c_DibBmp.c 488: Comparing signed and unsigned values in function DibBmp_SetTransparentColor2
Warning W8012 c_DibBmp.c 547: Comparing signed and unsigned values in function DibBmp_PreMultiplyAlpha
Warning W8012 c_DibBmp.c 676: Comparing signed and unsigned values in function DibBmp_FilterWatermark
Warning W8012 c_DibBmp.c 796: Comparing signed and unsigned values in function DibBmp_FilterGrayScale
Warning W8012 c_DibBmp.c 874: Comparing signed and unsigned values in function DibBmp_DrawAt2
Warning W8012 c_DibBmp.c 930: Comparing signed and unsigned values in function DibBmp_DrawStretch
*** 1 errors in Compile ***


Origen:

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42093&start=0&sid=ddfff51faa6e33b759868c7eef0bf671

Gracias, thanks.

Regards, saludos

[Enrico Maria Giordano]

Can you send me the two C sources to test them here?

[karinha]

Can you send me the two C sources to test them here?

Enrico, aqui:

https://github.com/FiveTechSoft/TTaskpanel-FWH

Origen:

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42093&start=0&sid=ddfff51faa6e33b759868c7eef0bf671&sid=ddfff51faa6e33b759868c7eef0bf671#p252767

Gracias, thanks.

Regards, saludos.

[Enrico Maria Giordano]

c:\TTaskPan>C:\BCC74\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_tthememanager.C

Try adding this declaration:

int FontHeight2Pt( int );

right after this other:

HMODULE GetResources( void );

Let me know.

[karinha]

Perfect, perfecto:

Code: Select all  Expand view  RUN

#include "stdafx.h"

HMODULE GetResources( void );

int FontHeight2Pt( int );
 

Regards, saludos.

[karinha]

Que hago ahora en este archivo?


c:\TTaskPan>C:\BCC74\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_dibbmp.C
Embarcadero C++ 7.40 for Win32 Copyright (c) 1993-2018 Embarcadero Technologies, Inc.
c_DibBmp.c:
Warning W8012 c_DibBmp.c 488: Comparing signed and unsigned values in function DibBmp_SetTransparentColor2
Warning W8012 c_DibBmp.c 547: Comparing signed and unsigned values in function DibBmp_PreMultiplyAlpha
Warning W8012 c_DibBmp.c 676: Comparing signed and unsigned values in function DibBmp_FilterWatermark
Warning W8012 c_DibBmp.c 796: Comparing signed and unsigned values in function DibBmp_FilterGrayScale
Warning W8012 c_DibBmp.c 874: Comparing signed and unsigned values in function DibBmp_DrawAt2
Warning W8012 c_DibBmp.c 930: Comparing signed and unsigned values in function DibBmp_DrawStretch
*** 1 errors in Compile ***


Gracias.

Regards, saludos.

[Enrico Maria Giordano]

Try:

Code: Select all  Expand view  RUN

if ( !( ( int ) sizeof(DIBSECTION) == GetObject( db->hBitmap, sizeof(DIBSECTION),(LPVOID)&ds)))

and let me know.

[Enrico Maria Giordano]

Did you tried it?

[karinha]

Perfect, Perfecto Enrico.

Último archivo.c con errores:

c:\TTaskPan>C:\BCC74\bin\bcc32 -c -Ic:\XHBBCC74\include;c:\fwh1905\include -D__HARBOUR__ -D__FLAT__ c_themeGDI.c
Embarcadero C++ 7.40 for Win32 Copyright (c) 1993-2018 Embarcadero Technologies, Inc.
c_ThemeGDI.c:
Warning W8071 c_ThemeGDI.c 783: Conversion may lose significant digits in function HB_FUN_TH_DRAWTASKPANELGROUPSEP
*** 1 errors in Compile ***


Gracias, thanks.

Regards, saludos.

[Enrico Maria Giordano]

Try this and let me know:

Code: Select all  Expand view  RUN

left += ( int )(right * 0.80) ;

[karinha]

Asi funcionó,

Code: Select all  Expand view  RUN

     
         if( nSepStyle == 3 || nSepStyle == 4 )
      {
         left += 9;
           right -= 9;

      }
      else if( nSepStyle == 5 || nSepStyle == 6 )
      {
//       left += (right * 0.80) ;        
           left += ( int )(right * 0.80) ;

      }
 

Gracias, thanks.

Regards, saludos.

[karinha]

Super many thanks Enrico, mira/look:

Pasta de c:\TTaskPan

11/09/2023 08:56 30.271 C_DIBBMP.C
24/08/2020 03:45 17.708 c_DrawHtml.c
24/08/2020 03:45 806 c_OutputDebug.c
24/08/2020 03:45 63.231 c_ThemeAPI.c
24/08/2020 03:45 16.877 c_ThemeAUX.c
11/09/2023 10:57 44.596 c_ThemeGDI.c
08/09/2023 15:43 22.699 c_TThemeManager.c
24/08/2020 03:45 14.504 r_ThemeClassic.c
24/08/2020 03:45 103.046 r_ThemeXPHomestead.c
24/08/2020 03:45 104.022 r_ThemeXPMetallic.c
24/08/2020 03:45 108.491 r_ThemeXPNormalColor.c
11 arquivo(s) 526.251 bytes

Pasta de c:\TTaskPan

11/09/2023 11:01 16.202 C_DIBBMP.obj
11/09/2023 11:01 12.637 c_DrawHtml.obj
11/09/2023 11:01 9.590 c_OutputDebug.obj
11/09/2023 11:00 23.068 c_ThemeAPI.obj
11/09/2023 11:01 15.726 c_ThemeAUX.obj
11/09/2023 11:01 21.268 c_ThemeGDI.obj
11/09/2023 11:01 16.387 c_TThemeManager.obj
11/09/2023 11:01 3.302 r_ThemeClassic.obj
11/09/2023 11:01 33.777 r_ThemeXPHomestead.obj
11/09/2023 11:01 34.001 r_ThemeXPMetallic.obj
11/09/2023 11:01 35.116 r_ThemeXPNormalColor.obj
11 arquivo(s) 221.074 bytes

Regards, saludos.