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

2012-01-16 16:50 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/gtwvg/gtwvg.c
    + Extended: hb_gtInfo( HB_GTI_SPEC, HB_GTS_SETPOSITION, [{x,y}] ) 
       to return the previous window position as {x,y} array.
This commit is contained in:
Pritpal Bedi
2012-01-17 00:52:44 +00:00
parent eb6b630624
commit ec338e6fc0
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-01-16 16:50 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/gtwvg/gtwvg.c
+ Extended: hb_gtInfo( HB_GTI_SPEC, HB_GTS_SETPOSITION, [{x,y}] )
to return the previous window position as {x,y} array.
2012-01-16 16:30 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/gtwvg/wvgdatar.prg
! Synchronized: WvgListBox():getData() method.

10
harbour/contrib/gtwvg/gtwvg.c
View File

@@ -3660,10 +3660,16 @@ static HB_BOOL hb_gt_wvt_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
case HB_GTS_SETPOSITION:
{
RECT rect = { 0,0,0,0 };
GetWindowRect( pWVT->hWnd, &rect );
pInfo->pResult = hb_itemNew( NULL );
hb_arrayNew( pInfo->pResult, 2 );
hb_arraySetNI( pInfo->pResult, 1, rect.left );
hb_arraySetNI( pInfo->pResult, 2, rect.top );
if( pWVT->hWnd && ( hb_itemType( pInfo->pNewVal2 ) & HB_IT_ARRAY ) )
{
RECT rect = { 0,0,0,0 };
GetWindowRect( pWVT->hWnd, &rect );
hb_retl( SetWindowPos( pWVT->hWnd, NULL,
hb_arrayGetNI( pInfo->pNewVal2, 1 ),
hb_arrayGetNI( pInfo->pNewVal2, 2 ),