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

2009-06-01 13:41 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* harbour/contrib/gtwvg/gtgcuig.c
  * harbour/contrib/gtwvg/hbgtwvg.ch
    + GOBJ_OBJDATA_BLOCK . A useful addition to support resizing browser grids.
This commit is contained in:
Pritpal Bedi
2009-06-01 16:25:45 +00:00
parent 62a023bb14
commit 0d51b3a556
3 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -17,6 +17,11 @@
past entries belonging to these authors: Viktor Szakats.
*/
2009-06-01 13:41 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/gtwvg/gtgcuig.c
* harbour/contrib/gtwvg/hbgtwvg.ch
+ GOBJ_OBJDATA_BLOCK . A useful addition to support resizing browser grids.
2009-06-01 14:20 UTC+0300 Alexander Kresin <alex at belacy.belgorod.su>
* utils/hbformat/hbformat.prg
! Different fixes.

1
harbour/contrib/gtwvg/hbgtwvg.ch
View File

@@ -156,6 +156,7 @@
#define GOBJ_OBJDATA_COLORTEXT 6
#define GOBJ_OBJDATA_COLORBK 7
#define GOBJ_OBJDATA_IMAGE 8
#define GOBJ_OBJDATA_BLOCK 9
#define GOBJ_IMAGESOURCE_SLOT 1
#define GOBJ_IMAGESOURCE_RESOURCE 2

7
harbour/contrib/gtwvg/wvgcuig.c
View File

@@ -287,6 +287,11 @@ HB_FUNC( WVG_SETGOBJDATA )
case GOBJ_OBJDATA_COLORBK:
gObj->crRGBBk = ISNUM( 3 ) ? ( COLORREF ) ( HB_PTRDIFF ) hb_parnint( 3 ) : ( COLORREF ) 0;
break;
case GOBJ_OBJDATA_BLOCK:
if( gObj->bBlock )
hb_itemRelease( gObj->bBlock );
gObj->bBlock = hb_itemNew( hb_param( 3, HB_IT_BLOCK ) );
break;
default:
bSuccess = FALSE;
break;
@@ -1446,7 +1451,7 @@ static void hb_wvg_RenderPicture( PHB_GTWVT pWVT, PHB_GOBJS gObj, int iLeft, int
This protocol is necessary for dyanamic coordinates which might have been changed by the
applications, like TBrowse dimensions.
Wvg_Object( GOBJ_OBJTYPE_BOXRAISED, {|| oBrw:nTop, oBrw:nLeft, oBrw:nBottom, oBrw:nRight, {-2,-2,2,2} } )
Wvg_Object( GOBJ_OBJTYPE_BOXRAISED, {|| { oBrw:nTop, oBrw:nLeft, oBrw:nBottom, oBrw:nRight, {-2,-2,2,2} } } )
*/
HB_FUNC( WVG_OBJECT )
{