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

See changelog 2002-10-18 14:40 UTC-0300

Browse Source
This commit is contained in:
Luiz Rafael Culik
2002-10-18 17:40:22 +00:00
parent 0e13fd6af6
commit 0100d14b89
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
harbour/ChangeLog
View File

@@ -7,6 +7,9 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-10-17 14:40 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
* source/rtl/tbrowse.prg
! Fixed SetColumnMethod() that was not using all Display Area(The nWidthMax variable was substraced by 2)
2002-10-17 15:00 UTC+0700 Andi Jahja <andijahja@cbn.net.id>
* source/compiler/harbour.sly
* source/compiler/harbour.y

4
harbour/source/rtl/tbrowse.prg
View File

@@ -495,7 +495,7 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
// if oCol has :Width property set I use it
if oCol:Width <> nil
nWidth := Min(oCol:Width, nWidthMax - 2)
nWidth := Min(oCol:Width, nWidthMax)
else
if ISBLOCK( oCol:block )
@@ -526,7 +526,7 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
enddo
endif
nWidth:= Min(iif(nColwidth > nLen, nColwidth, nLen), nWidthMax - 2)
nWidth:= Min(iif(nColwidth > nLen, nColwidth, nLen), nWidthMax )
endif