From bd65a75bff2747040cce6c95abc5bda3e11359bd Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Sat, 10 Dec 2011 21:55:43 +0000 Subject: [PATCH] 2011-12-10 13:52 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/gtwvg/tests/wvgtbrowser.prg + Extended: the way to anchor tree-view control's row-to to maxrow()-1. This facilitattes that the control is automatically resized keeping height adjusted to tbrowse's nBottom. --- harbour/ChangeLog | 6 ++++++ harbour/contrib/gtwvg/tests/wvgtbrowser.prg | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 880df2a0ea..68e3bb3328 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,12 @@ The license applies to all entries newer than 2009-04-28. */ +2011-12-10 13:52 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/gtwvg/tests/wvgtbrowser.prg + + Extended: the way to anchor tree-view control's row-to to + maxrow()-1. This facilitattes that the control is automatically + resized keeping height adjusted to tbrowse's nBottom. + 2011-12-10 12:57 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/gtwvg/gtwvg.c * contrib/gtwvg/wvgtoolb.prg diff --git a/harbour/contrib/gtwvg/tests/wvgtbrowser.prg b/harbour/contrib/gtwvg/tests/wvgtbrowser.prg index 8fcb189386..c5b072bc60 100644 --- a/harbour/contrib/gtwvg/tests/wvgtbrowser.prg +++ b/harbour/contrib/gtwvg/tests/wvgtbrowser.prg @@ -263,7 +263,7 @@ STATIC FUNCTION BrwBuildTree( oCrt /*, oBrw*/ ) oTree:hasLines := .T. oTree:hasButtons := .T. oTree:alwaysShowSelection := .T. - oTree:create( , , { -25, -1 }, { -8, -10 } ) + oTree:create( , , { -25, -1 }, { {|| -( maxrow()-1-25 ) }, -10 } ) oTree:setColorFG( "W+" ) oTree:setColorBG( "R*" ) oTree:itemSelected := {|oItem| WVG_MessageBox( , iif( oItem <> NIL, oItem:caption, "Some Problem" ) ) }