From 0d51b3a5564a177da411bd1e4d0bb82aa75fc62b Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Mon, 1 Jun 2009 16:25:45 +0000 Subject: [PATCH] 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. --- harbour/ChangeLog | 5 +++++ harbour/contrib/gtwvg/hbgtwvg.ch | 1 + harbour/contrib/gtwvg/wvgcuig.c | 7 ++++++- 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 6e101e267c..2b92196015 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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 * utils/hbformat/hbformat.prg ! Different fixes. diff --git a/harbour/contrib/gtwvg/hbgtwvg.ch b/harbour/contrib/gtwvg/hbgtwvg.ch index 0c2bc7f21b..318d8d9838 100644 --- a/harbour/contrib/gtwvg/hbgtwvg.ch +++ b/harbour/contrib/gtwvg/hbgtwvg.ch @@ -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 diff --git a/harbour/contrib/gtwvg/wvgcuig.c b/harbour/contrib/gtwvg/wvgcuig.c index b23fa458cf..912b52c83d 100644 --- a/harbour/contrib/gtwvg/wvgcuig.c +++ b/harbour/contrib/gtwvg/wvgcuig.c @@ -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 ) {