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

2004-02-14 19:14 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

Browse Source 
* source/rtl/tbrowse.prg
     ! SetColumnWidth() fixed for multi-line headers.
This commit is contained in:
Viktor Szakats
2004-02-14 18:12:55 +00:00
parent eb08c726c0
commit f0aadd45ab
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-02-14 19:14 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/rtl/tbrowse.prg
! SetColumnWidth() fixed for multi-line headers.
2004-02-14 05:33 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* include/hbapigt.h

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

@@ -519,7 +519,7 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
nLen := Len( xRes )
case cType == "D"
nLen := Len(DToC( xRes ) )
nLen := Len(DToC( xRes ) )
otherwise
nLen := 0
@@ -528,7 +528,7 @@ METHOD SetColumnWidth( oCol ) CLASS TBrowse
cHeading := oCol:Heading + ";"
while (nL := Len(__StrTkPtr(@cHeading, @nTokenPos, ";"))) > 0
nColWidth += nL
nColWidth := Max(nL, nColWidth)
enddo
endif