fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-08-13 05:50 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/gtwvg/gtwvg.h
    ! added missing defines for DMC builds

  * harbour/contrib/gtwvg/wvgutils.c
    ! use HB_PTRDIFF for pointer to number casting
This commit is contained in:
Przemyslaw Czerpak
2008-08-13 03:50:50 +00:00
parent 215e18e9bd
commit 4db4261c73
3 changed files with 33 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-08-13 05:50 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/gtwvg/gtwvg.h
! added missing defines for DMC builds
* harbour/contrib/gtwvg/wvgutils.c
! use HB_PTRDIFF for pointer to number casting
2008-08-13 05:30 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/pp/ppcore.c
* harbour/source/pp/hbpp.c

24
harbour/contrib/gtwvg/gtwvg.h
View File

@@ -177,10 +177,34 @@
WINCOMMCTRLAPI BOOL WINAPI InitCommonControlsEx(LPINITCOMMONCONTROLSEX);
#endif
#endif
typedef struct _GRADIENT_RECT {
ULONG UpperLeft;
ULONG LowerRight;
} GRADIENT_RECT,*PGRADIENT_RECT,*LPGRADIENT_RECT;
#ifndef TTM_SETTIPBKCOLOR
#define TTM_SETTIPBKCOLOR (WM_USER + 19)
#endif
#ifndef TTM_SETTIPTEXTCOLOR
#define TTM_SETTIPTEXTCOLOR (WM_USER + 20)
#endif
#ifndef TTM_GETTIPBKCOLOR
#define TTM_GETTIPBKCOLOR (WM_USER + 22)
#endif
#ifndef TTM_GETTIPTEXTCOLOR
#define TTM_GETTIPTEXTCOLOR (WM_USER + 23)
#endif
#ifndef TTM_SETMAXTIPWIDTH
#define TTM_SETMAXTIPWIDTH (WM_USER + 24)
#endif
#ifndef TTM_GETMAXTIPWIDTH
#define TTM_GETMAXTIPWIDTH (WM_USER + 25)
#endif
#ifndef TTM_SETMARGIN
#define TTM_SETMARGIN (WM_USER + 26)
#endif
#endif
#if defined( __cplusplus ) && ( defined( __BORLANDC__ ) || defined( _MSC_VER ) )

4
harbour/contrib/gtwvg/wvgutils.c
View File

@@ -758,7 +758,7 @@ HB_FUNC( WVT_APPENDMENU )
lpszCaption = ( LPCTSTR ) hb_parni( 4 ) ; // It is a SEPARATOR or Submenu
}
hb_retl( AppendMenu( ( HMENU ) hb_parnl( 1 ), ( UINT ) hb_parni( 2 ), ( UINT_PTR ) hb_parni( 3 ), ( LPCTSTR ) lpszCaption ) ) ;
hb_retl( AppendMenu( ( HMENU ) hb_parnl( 1 ), ( UINT ) hb_parni( 2 ), ( HB_PTRDIFF ) hb_parni( 3 ), ( LPCTSTR ) lpszCaption ) ) ;
}
//-------------------------------------------------------------------//
@@ -1293,7 +1293,7 @@ HB_FUNC( WVT__MAKEDLGTEMPLATE )
//
HB_EXPORT LPWORD lpwAlign( LPWORD lpIn )
{
LONG_PTR ul = ( LONG_PTR ) lpIn;
HB_PTRDIFF ul = ( HB_PTRDIFF ) lpIn;
ul += 3;
ul >>=2;
ul <<=2;