5941be9152
* source/rtl/tget.prg
+ TGet instance variable ordering in class definition
made CA-Cl*pper compatible, so that it's now possible to
access object vars as array elements the same way.
Read-only access is strongly recommended when using this
unofficial access method, and the practice is overall
discouraged.
NOTE: oGet[8] is not supported in Harbour.
NOTE: in oGet[11] (in C52 mode), oGet[17] (in C53 mode)
only the first char is compatible, which is the
type. The rest is 'trash' in CA-Cl*pper.
* tests/rto_get.prg
+ Extended tests with regards to array access of the
TGet object.
* source/rtl/tbcolumn.prg
* Formatting.
* source/common/hbstr.c
* source/compiler/ppcomp.c
* source/compiler/hbgenerr.c
* utils/hbpp/hbpp.c
! Fixed some BCC58 warnings.
; TOFIX: These remain:
Warning W8017 C:\devl\BCC58\Include\stdint.h 77: Redefinition of 'INT16_MIN' is not identical
Warning W8017 C:\devl\BCC58\Include\stdint.h 78: Redefinition of 'INT32_MIN' is not identical
Warning W8017 C:\devl\BCC58\Include\stdint.h 79: Redefinition of 'INT64_MIN' is not identical
Warning W8017 C:\devl\BCC58\Include\stdint.h 82: Redefinition of 'INT16_MAX' is not identical
Warning W8017 C:\devl\BCC58\Include\stdint.h 83: Redefinition of 'INT32_MAX' is not identical
Warning W8017 C:\devl\BCC58\Include\stdint.h 84: Redefinition of 'INT64_MAX' is not identical
Warning W8017 C:\devl\BCC58\Include\stdint.h 87: Redefinition of 'UINT16_MAX' is not identical
Warning W8017 C:\devl\BCC58\Include\stdint.h 88: Redefinition of 'UINT32_MAX' is not identical
Warning W8017 C:\devl\BCC58\Include\stdint.h 89: Redefinition of 'UINT64_MAX' is not identical
Warning W8084 source\rtl\hbinet.c 507: Suggest parentheses to clarify precedence in function HB_FUN_HB_INETINIT
* utils/hbtest/rt_main.h
! Typo.
* utils/hbtest/make_c5x.bat
+ Cleanups, fixes, enhancements.
* Changed invocation for C53. Now "53" (without quotes)
should be used as command line parameter.
+ Now automatically selects linker.
! Fixed MSC parameters for C53.
+ Copyright added.
225 lines
7.7 KiB
Plaintext
225 lines
7.7 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* TBColumn Class
|
|
*
|
|
* Copyright 2007-2008 Viktor Szakats <viktor.szakats@syenar.hu>
|
|
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#include "hbclass.ch"
|
|
|
|
#include "common.ch"
|
|
#include "tbrowse.ch"
|
|
|
|
/* NOTE: In CA-Cl*pper TBCOLUMN class does not inherit from any other classes
|
|
and there is no public class function like TBColumn(). There is
|
|
in XPP though. */
|
|
|
|
#if defined(HB_C52_STRICT) && !defined(HB_COMPAT_XPP)
|
|
CREATE CLASS TBColumn STATIC
|
|
#else
|
|
CREATE CLASS TBColumn
|
|
#endif
|
|
|
|
EXPORTED:
|
|
|
|
/* === Start of CA-Cl*pper compatible TBColumn instance area === */
|
|
VAR cargo /* 01. User-definable variable */
|
|
VAR nWidth PROTECTED /* 02. */
|
|
VAR bBlock PROTECTED /* 03. */
|
|
VAR aDefColor PROTECTED INIT { 1, 2 } /* 04. NOTE: Default value for both CA-Cl*pper 5.2 and 5.3. */
|
|
VAR bColorBlock PROTECTED INIT {|| NIL } /* 05. */
|
|
VAR cHeading PROTECTED INIT "" /* 06. */
|
|
VAR cHeadSep PROTECTED /* 07. */
|
|
VAR cColSep PROTECTED /* 08. */
|
|
VAR cFootSep PROTECTED /* 09. */
|
|
VAR cFooting PROTECTED INIT "" /* 10. */
|
|
VAR picture /* 11. Column picture string */
|
|
#ifdef HB_COMPAT_C53
|
|
VAR bPreBlock PROTECTED /* 12. */
|
|
VAR bPostBlock PROTECTED /* 13. */
|
|
VAR aSetStyle PROTECTED INIT { .F., .F., .F. } /* 14. TBC_READWRITE, TBC_MOVE, TBC_SIZE */
|
|
#endif
|
|
/* === End of CA-Cl*pper compatible TBColumn instance area === */
|
|
|
|
METHOD block( bBlock ) SETGET /* Code block to retrieve data for the column */
|
|
METHOD colorBlock( bColorBlock ) SETGET /* Code block that determines color of data items */
|
|
METHOD defColor( aDefColor ) SETGET /* Array of numeric indexes into the color table */
|
|
METHOD colSep( cColSep ) SETGET /* Column separator character */
|
|
METHOD heading( cHeading ) SETGET /* Column heading */
|
|
METHOD footing( cFooting ) SETGET /* Column footing */
|
|
METHOD headSep( cHeadSep ) SETGET /* Heading separator character */
|
|
METHOD footSep( cFootSep ) SETGET /* Footing separator character */
|
|
METHOD width( nWidth ) SETGET /* Column display width */
|
|
#ifdef HB_COMPAT_C53
|
|
METHOD preBlock( bPreBlock ) SETGET /* Code block determining editing */
|
|
METHOD postBlock( bPostBlock ) SETGET /* Code block validating values */
|
|
METHOD setStyle( nStyle, lSetting )
|
|
#endif
|
|
|
|
METHOD New( cHeading, bBlock ) /* NOTE: This method is a Harbour extension [vszakats] */
|
|
|
|
ENDCLASS
|
|
|
|
METHOD block( bBlock ) CLASS TBColumn
|
|
|
|
IF bBlock != NIL
|
|
::bBlock := _eInstVar( Self, "BLOCK", bBlock, "B", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::bBlock
|
|
|
|
METHOD colorBlock( bColorBlock ) CLASS TBColumn
|
|
|
|
IF bColorBlock != NIL
|
|
::bColorBlock := _eInstVar( Self, "COLORBLOCK", bColorBlock, "B", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::bColorBlock
|
|
|
|
METHOD defColor( aDefColor ) CLASS TBColumn
|
|
|
|
IF aDefColor != NIL
|
|
::aDefColor := _eInstVar( Self, "DEFCOLOR", aDefColor, "A", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::aDefColor
|
|
|
|
METHOD colSep( cColSep ) CLASS TBColumn
|
|
|
|
IF cColSep != NIL
|
|
::cColSep := _eInstVar( Self, "COLSEP", cColSep, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cColSep
|
|
|
|
METHOD heading( cHeading ) CLASS TBColumn
|
|
|
|
IF cHeading != NIL
|
|
::cHeading := _eInstVar( Self, "HEADING", cHeading, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cHeading
|
|
|
|
METHOD footing( cFooting ) CLASS TBColumn
|
|
|
|
IF cFooting != NIL
|
|
::cFooting := _eInstVar( Self, "FOOTING", cFooting, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cFooting
|
|
|
|
METHOD headSep( cHeadSep ) CLASS TBColumn
|
|
|
|
IF cHeadSep != NIL
|
|
::cHeadSep := _eInstVar( Self, "HEADSEP", cHeadSep, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cHeadSep
|
|
|
|
METHOD footSep( cFootSep ) CLASS TBColumn
|
|
|
|
IF cFootSep != NIL
|
|
::cFootSep := _eInstVar( Self, "FOOTSEP", cFootSep, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cFootSep
|
|
|
|
METHOD width( nWidth ) CLASS TBColumn
|
|
|
|
IF nWidth != NIL
|
|
::nWidth := _eInstVar( Self, "WIDTH", nWidth, "N", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::nWidth
|
|
|
|
#ifdef HB_COMPAT_C53
|
|
|
|
METHOD preBlock( bPreBlock ) CLASS TBColumn
|
|
|
|
IF bPreBlock != NIL
|
|
::bPreBlock := _eInstVar( Self, "PREBLOCK", bPreBlock, "B", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::bPreBlock
|
|
|
|
METHOD postBlock( bPostBlock ) CLASS TBColumn
|
|
|
|
IF bPostBlock != NIL
|
|
::bPostBlock := _eInstVar( Self, "POSTBLOCK", bPostBlock, "B", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::bPostBlock
|
|
|
|
METHOD setStyle( nStyle, lNewValue ) CLASS TBColumn
|
|
|
|
/* NOTE: CA-Cl*pper 5.3 does no checks on the value of nStyle, so in case
|
|
it is zero or non-numeric, a regular RTE will happen. [vszakats] */
|
|
|
|
IF nStyle > Len( ::aSetStyle ) .AND. nStyle <= 4096 /* Some reasonable limit for maximum number of styles */
|
|
ASize( ::aSetStyle, nStyle )
|
|
ENDIF
|
|
|
|
IF ISLOGICAL( lNewValue )
|
|
::aSetStyle[ nStyle ] := lNewValue
|
|
ENDIF
|
|
|
|
RETURN ::aSetStyle[ nStyle ]
|
|
|
|
#endif
|
|
|
|
METHOD New( cHeading, bBlock ) CLASS TBColumn
|
|
|
|
::cHeading := cHeading /* NOTE: CA-Cl*pper will allow any types for the heading here. [vszakats] */
|
|
::bBlock := bBlock /* NOTE: CA-Cl*pper allows any types here. [vszakats] */
|
|
|
|
RETURN Self
|
|
|
|
FUNCTION TBColumnNew( cHeading, bBlock )
|
|
RETURN TBColumn():New( cHeading, bBlock )
|