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

2011-12-10 13:52 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* 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.
This commit is contained in:
Pritpal Bedi
2011-12-10 21:55:43 +00:00
parent da9c23d210
commit bd65a75bff
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -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

2
harbour/contrib/gtwvg/tests/wvgtbrowser.prg
View File

@@ -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" ) ) }