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

2002-09-04 17:56 UTC+0200 Maurilio Longo <maurilio.longo@libero.it>

Browse Source 
* harbour/source/rtl/tbrowse.prg
     ! Fixed cell padding inside ::DispCell(). Character or memo fields have to be
       padded right. Number fields have to be padded left.
This commit is contained in:
Maurilio Longo
2002-09-04 16:00:47 +00:00
parent 1d9782f967
commit 2f3d5bb05f
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>
*/
2002-09-04 17:56 UTC+0200 Maurilio Longo <maurilio.longo@libero.it>
* harbour/source/rtl/tbrowse.prg
! Fixed cell padding inside ::DispCell(). Character or memo fields have to be
padded right. Number fields have to be padded left.
2002-09-03 19:10 UTC+0200 Maurilio Longo <maurilio.longo@libero.it>
* harbour/source/rtl/teditor.prg
! fixed line splitting when a character is deleted from a line and there is a

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

@@ -1306,10 +1306,10 @@ METHOD DispCell( nColumn, nColor ) CLASS TBrowse
do case
case cType $ "CM"
DispOut( PadL(Transform(ftmp, cPict), nWidth ), cColor )
DispOut( PadR(Transform(ftmp, cPict), nWidth ), cColor )
case cType == "N"
DispOut( PadR(Transform(ftmp, cPict), nWidth ), cColor )
DispOut( PadL(Transform(ftmp, cPict), nWidth ), cColor )
case cType == "D"
cPict := iif(cPict == "", "@D", cPict)