From 2f3d5bb05f70fb4e0235f9d45b55a65d4e206249 Mon Sep 17 00:00:00 2001 From: Maurilio Longo Date: Wed, 4 Sep 2002 16:00:47 +0000 Subject: [PATCH] 2002-09-04 17:56 UTC+0200 Maurilio Longo * 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. --- harbour/ChangeLog | 5 +++++ harbour/source/rtl/tbrowse.prg | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a3923ca4a1..6a657664f7 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2002-09-04 17:56 UTC+0200 Maurilio Longo + * 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 * harbour/source/rtl/teditor.prg ! fixed line splitting when a character is deleted from a line and there is a diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index ce1b1e4d01..c8bbd47a94 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -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)