From 665f353484b1a71af3e2257a4f241bdcaab240b9 Mon Sep 17 00:00:00 2001 From: Luis Krause Date: Mon, 22 Mar 2004 05:46:22 +0000 Subject: [PATCH] 2004-03-21 21:48 UTC-0800 Luis Krause Mantilla --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/tbcolumn.prg | 10 +++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index e9472eb439..4715b2987d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2004-03-21 21:48 UTC-0800 Luis Krause Mantilla + * source/rtl/tbcolumn.prg + + added PreBlock and PostBlock instance variables for Clipper 5.3x compatibility + 2004-03-20 15:05 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + harbour/tests/bldtest/Makefile + harbour/tests/bldtest/bldtest.c diff --git a/harbour/source/rtl/tbcolumn.prg b/harbour/source/rtl/tbcolumn.prg index 5ef9764a29..46503f7f5d 100644 --- a/harbour/source/rtl/tbcolumn.prg +++ b/harbour/source/rtl/tbcolumn.prg @@ -67,6 +67,10 @@ CLASS TBColumn DATA FootSep // Footing separator character DATA HeadSep // Heading separator character DATA Picture // Column picture string +#ifdef HB_COMPAT_C53 + DATA PreBlock // Code block validating values + DATA PostBlock // Code block determining editing +#endif ACCESS Width INLINE ::nWidth // Column display width ASSIGN Width(n) INLINE ::SetWidth(n) @@ -98,7 +102,7 @@ METHOD New( cHeading, bBlock ) CLASS TBColumn DEFAULT cHeading TO "" - ::DefColor := { 1, 2 } + ::DefColor := { 1, 2, 1, 1 } ::FootSep := "" ::ColPos := 1 @@ -114,7 +118,7 @@ METHOD New( cHeading, bBlock ) CLASS TBColumn #ifdef HB_COMPAT_C53 ::aSetStyle := Array( TBC_CUSTOM - 1 ) - + ::aSetStyle[ TBC_READWRITE ] := .f. ::aSetStyle[ TBC_MOVE ] := .f. ::aSetStyle[ TBC_SIZE ] := .f. @@ -150,7 +154,7 @@ METHOD SetStyle( nMode, lSetting ) CLASS TBColumn IF ISLOGICAL( lSetting ) ::aSetStyle[ nMode ] := lSetting ENDIF - + RETURN lRet #endif