bc7ff4d5c6
* include/hbapifs.h
* src/common/hbffind.c
* src/rtl/direct.c
* src/rtl/dirscan.prg
* src/rtl/filebuf.c
+ added lTime member to HB_FFIND structure
+ added 3-rd parmeter to hb_fsDirectory()
+ extended default maximum number of Harbour file IO redirecros to 128
* use hb_xgrabz()
* formatting
* include/hbcompdf.h
* include/hbpp.h
* src/compiler/cmdcheck.c
* src/compiler/genc.c
* src/compiler/hbcomp.c
* src/compiler/hbmain.c
* src/compiler/ppcomp.c
* src/pp/hbpp.c
* src/pp/ppcore.c
* src/pp/pplib.c
+ added support for -ql compiler switch - it disables displaying PRG line
numbers during compilation
+ added internal support for switch which disables PRG names from final
PCODE - it's not active by default
* src/compiler/ppcomp.c
+ allow to change -gc? switch by #pragma directives
* src/compiler/hbusage.c
* present '-' as default option separator for all platforms
* src/rdd/Makefile
+ src/rdd/rddshort.c
- src/rdd/dbfuncs.prg
* moved short function names (10 characters Cl*pper compatible) wrappers
to rddshort.c
* src/common/hbhash.c
* src/compiler/gencc.c
* src/compiler/hbcomp.c
* src/compiler/hbdbginf.c
* src/compiler/hbdead.c
* src/compiler/hbmain.c
* src/compiler/hbopt.c
* src/debug/dbgentry.c
* src/pp/ppcore.c
* src/rdd/dbf1.c
* src/rdd/dbfntx/dbfntx1.c
* src/rdd/delim1.c
* src/rdd/sdf1.c
* src/rdd/hsx/hsx.c
* src/rdd/usrrdd/usrrdd.c
* src/rdd/wafunc.c
* src/rdd/workarea.c
* src/vm/classes.c
* src/vm/dynsym.c
* src/vm/estack.c
* src/vm/runner.c
* src/vm/set.c
* src/vm/task.c
* src/rtl/cdpapi.c
* src/rtl/filebuf.c
* src/rtl/gtcgi/gtcgi.c
* src/rtl/gtcrs/gtcrs.c
* src/rtl/gtstd/gtstd.c
* src/rtl/gttrm/gttrm.c
* src/rtl/gtxwc/gtxwc.c
* src/rtl/hbdyn.c
* src/rtl/hbgtcore.c
* src/rtl/hbi18n1.c
* src/rtl/hblpp.c
* src/rtl/hbznet.c
* src/rtl/iousr.c
* use hb_xgrabz()
* src/common/hbprintf.c
* formatting
* reduced variable scope
* src/rdd/dblist.prg
* src/rdd/hbsix/sxini.prg
* src/rtl/hbfilehi.prg
% use new hb_FName*() functions
* src/codepage/cp_950.c
* src/codepage/cp_big5.c
* src/codepage/cp_gbk.c
* src/codepage/cp_u16le.c
* src/codepage/cp_utf8.c
* src/common/hbfopen.c
* src/common/hbstr.c
* src/common/strwild.c
* src/compiler/complex.c
* src/compiler/genc.c
* src/compiler/hbopt.c
* src/compiler/hbusage.c
* src/debug/dbghelp.prg
* src/debug/debugger.prg
* src/hbextern/hbextern.prg
* src/main/harbour.1
* src/pp/ppcore.c
* src/rdd/dbcmd.c
* src/rdd/dbcmd53.c
* src/rdd/dbf1.c
* src/rdd/dbfcdx/dbfcdx1.c
* src/rdd/dbfntx/dbfntx1.c
* src/rdd/dbjoin.prg
* src/rdd/dbnubs.c
* src/rdd/dbsort.prg
* src/rdd/dbstrux.prg
* src/rdd/dbtotal.prg
* src/rdd/dbupdat.prg
* src/rdd/hbsix/sxcompat.prg
* src/rdd/hbsix/sxcrypt.c
* src/rdd/hbsix/sxini.prg
* src/rdd/hsx/hsx.c
* src/rdd/usrrdd/usrrdd.c
* src/vm/debug.c
* src/vm/estack.c
* src/vm/set.c
* src/vm/task.c
* src/rtl/achoice.prg
* src/rtl/adir.prg
* src/rtl/alert.prg
* src/rtl/altd.prg
* src/rtl/base64d.c
* src/rtl/browse.prg
* src/rtl/cdpapi.c
* src/rtl/checkbox.prg
* src/rtl/color53.prg
* src/rtl/dbedit.prg
* src/rtl/dircmd.prg
* src/rtl/dirscan.prg
* src/rtl/errapi.c
* src/rtl/errsys.prg
* src/rtl/fnsplit.c
* src/rtl/gtchrmap.c
* src/rtl/gtcrs/gtcrs.c
* src/rtl/gtsln/gtsln.c
* src/rtl/gtsln/mousesln.c
* src/rtl/gttrm/gttrm.c
* src/rtl/gtwin/gtwin.c
* src/rtl/gtwvt/gtwvt.c
* src/rtl/gtxwc/gtxwc.c
* src/rtl/gui.prg
* src/rtl/hbbfish.c
* src/rtl/hbdoc.prg
* src/rtl/hbfilehi.prg
* src/rtl/hbgtcore.c
* src/rtl/hbi18n2.prg
* src/rtl/hbini.prg
* src/rtl/hblpphb.c
* src/rtl/hbregexc.c
* src/rtl/memvarhb.prg
* src/rtl/menusys.prg
* src/rtl/menuto.prg
* src/rtl/objfunc.prg
* src/rtl/padc.c
* src/rtl/padl.c
* src/rtl/padr.c
* src/rtl/profiler.prg
* src/rtl/radiobtn.prg
* src/rtl/radiogrp.prg
* src/rtl/setcolor.c
* src/rtl/tbcolumn.prg
* src/rtl/tbrowse.prg
* src/rtl/tclass.prg
* src/rtl/tgetint.prg
* src/rtl/tgetlist.prg
* src/rtl/tmenusys.prg
* src/rtl/tobject.prg
* src/rtl/tpersist.prg
* src/rtl/tpopup.prg
* src/rtl/tpopuphb.prg
* src/rtl/treport.prg
* src/rtl/tscalar.prg
* src/rtl/tsymbol.prg
* src/rtl/ttextlin.prg
* src/rtl/typefile.prg
* formatting, casing, comment updating, removed trailing spaces, casting,
replace hb_itemType() with HB_IS_*() macros, updated variable and
function names and scopes, pacified unused result warnings, removed
redundant castings, use HB_SIZEOFARRAY() and sizeof(), removed explicit
NIL from parameters, use hb_LeftEq[I](), added supports for symbol items
used as codeblock replacements, use hb_defaultValue(), use FOR EACH
statement, use SWITCH statement, replaced SubStr() with Left() or
Right(), use hb_AScan(), use hb_FReadLen()/hb_VFReadLen(),
removed FO_READ from FOpen() parameters, use Str() instead of PadL(),
use hb_StrShrink()
* src/lang/l_el.c
* src/lang/l_es_419.c
* src/lang/l_fr.c
* src/lang/l_hu.c
* src/lang/l_pt_br.c
* src/lang/l_sk.c
* src/lang/l_tr.c
* synced with Viktor's branch
* src/rtl/achoice.prg
* src/rtl/cdpdet.prg
* synced with Viktor's branch
* src/vm/Makefile
+ src/vm/short.c
+ added short function names (10 characters Cl*pper compatible) wrappers
* src/vm/extrap.c
* synced with Viktor's branch
* src/rtl/Makefile
+ src/rtl/rtlshort.c
+ added short function names (10 characters Cl*pper compatible) wrappers
* src/rtl/cdpdetc.c
* include/harbour.hbx
+ added __wapi_GetConsoleOutputCP()
* src/rtl/datec.c
* include/harbour.hbx
+ added hb_CDay( <nDayOfWeek> ) -> <cDayName>
* src/rtl/filesys.c
! do not check for PIPEs handles in WinCE builds
! respect OS returnb code in SystemTimeToFileTime()
* src/rtl/gete.c
* covered GetE() function by HB_CLP_UNDOC macro
* src/rtl/philes53.c
* covered FSetDevMod() function by HB_CLP_UNDOC macro
* src/rtl/hbdoc.prg
* use HB_SERIALIZE_COMPRESS instead of explicit hb_ZCompress()
(incompatible, .hbd files has to be regenerated)
* src/rtl/hbjson.c
* add a newline at EOF in human readable mode
* src/rtl/hbzlibgz.c
* disabled GZIP support in MSVC WinCE builds
* src/rtl/philes.c
* include/harbour.hbx
+ added hb_FReadLen()
* src/rtl/vfile.c
* include/harbour.hbx
+ added hb_VFReadLen()
* src/rtl/strclear.c
! check hb_itemGetWriteCL() result
; above modifications borrowed from Viktor's branch with some small
modifications - many thanks
* src/rtl/hbinet.c
* extened readahead buffer from 256 to 1500 bytes
! fixed possible wrong result in hb_InetDataReady() and redirected
sockets (i.e. by hb_InetCompress())
* src/rtl/hbsocket.c
! typo in recent modification for BSD socket less builds
+ src/rtl/strutf8.c
* include/harbour.hbx
+ added hb_StrIsUTF8() - it should be compatible with similar function
from Viktor's branch
* src/rtl/tpersist.prg
* eliminated oSelf private variable and reduced macro expansion to
item values
* src/debug/dbgtmenu.prg
* src/debug/dbgtwin.prg
* src/debug/debugger.prg
! replaced SaveScreen()/RestScreen() with
__dbgSaveScreen()/__dbgRestScreen() to fix problems with unicode
characters which do not exists in HVM CP.
* src/rdd/hbsix/sxcompat.prg
+ added support for timestamp values to sxChar(), sxNum(), sxDate()
functions.
214 lines
7.3 KiB
Plaintext
214 lines
7.3 KiB
Plaintext
/*
|
|
* Harbour Project source code:
|
|
* TBColumn Class
|
|
*
|
|
* Copyright 2007-2008 Viktor Szakats (vszakats.net/harbour)
|
|
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
|
|
* www - http://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.txt. 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 "tbrowse.ch"
|
|
|
|
/* NOTE: In CA-Cl*pper TBColumn class does not inherit from any other classes. */
|
|
|
|
CREATE CLASS TBColumn
|
|
|
|
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, lNewValue )
|
|
#endif
|
|
|
|
METHOD New( cHeading, bBlock ) /* NOTE: This method is a Harbour extension [vszakats] */
|
|
|
|
ENDCLASS
|
|
|
|
METHOD block( bBlock ) CLASS TBColumn
|
|
|
|
IF bBlock != NIL
|
|
::bBlock := __eInstVar53( Self, "BLOCK", bBlock, "B", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::bBlock
|
|
|
|
METHOD colorBlock( bColorBlock ) CLASS TBColumn
|
|
|
|
IF bColorBlock != NIL
|
|
::bColorBlock := __eInstVar53( Self, "COLORBLOCK", bColorBlock, "B", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::bColorBlock
|
|
|
|
METHOD defColor( aDefColor ) CLASS TBColumn
|
|
|
|
IF aDefColor != NIL
|
|
::aDefColor := __eInstVar53( Self, "DEFCOLOR", aDefColor, "A", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::aDefColor
|
|
|
|
METHOD colSep( cColSep ) CLASS TBColumn
|
|
|
|
IF cColSep != NIL
|
|
::cColSep := __eInstVar53( Self, "COLSEP", cColSep, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cColSep
|
|
|
|
METHOD heading( cHeading ) CLASS TBColumn
|
|
|
|
IF cHeading != NIL
|
|
::cHeading := __eInstVar53( Self, "HEADING", cHeading, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cHeading
|
|
|
|
METHOD footing( cFooting ) CLASS TBColumn
|
|
|
|
IF cFooting != NIL
|
|
::cFooting := __eInstVar53( Self, "FOOTING", cFooting, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cFooting
|
|
|
|
METHOD headSep( cHeadSep ) CLASS TBColumn
|
|
|
|
IF cHeadSep != NIL
|
|
::cHeadSep := __eInstVar53( Self, "HEADSEP", cHeadSep, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cHeadSep
|
|
|
|
METHOD footSep( cFootSep ) CLASS TBColumn
|
|
|
|
IF cFootSep != NIL
|
|
::cFootSep := __eInstVar53( Self, "FOOTSEP", cFootSep, "C", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::cFootSep
|
|
|
|
METHOD width( nWidth ) CLASS TBColumn
|
|
|
|
IF nWidth != NIL
|
|
::nWidth := __eInstVar53( Self, "WIDTH", nWidth, "N", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::nWidth
|
|
|
|
#ifdef HB_COMPAT_C53
|
|
|
|
METHOD preBlock( bPreBlock ) CLASS TBColumn
|
|
|
|
IF bPreBlock != NIL
|
|
::bPreBlock := __eInstVar53( Self, "PREBLOCK", bPreBlock, "B", 1001 )
|
|
ENDIF
|
|
|
|
RETURN ::bPreBlock
|
|
|
|
METHOD postBlock( bPostBlock ) CLASS TBColumn
|
|
|
|
IF bPostBlock != NIL
|
|
::bPostBlock := __eInstVar53( 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 HB_ISLOGICAL( lNewValue )
|
|
::aSetStyle[ nStyle ] := lNewValue
|
|
ENDIF
|
|
|
|
RETURN ::aSetStyle[ nStyle ]
|
|
|
|
#endif
|
|
|
|
METHOD New( cHeading, bBlock ) CLASS TBColumn
|
|
|
|
::cHeading := cHeading /* NOTE: CA-Cl*pper allows any type here. [vszakats] */
|
|
::bBlock := bBlock /* NOTE: CA-Cl*pper allows any type here. [vszakats] */
|
|
|
|
RETURN Self
|
|
|
|
FUNCTION TBColumnNew( cHeading, bBlock )
|
|
RETURN TBColumn():New( cHeading, bBlock )
|