a242a4bbe8
* contrib/gtwvg/tests/demoxbp.prg
* contrib/gtwvg/tests/wvgactivex.prg
* contrib/gtwvg/tests/wvgmodal.prg
* contrib/gtwvg/tests/wvgxbp.prg
* contrib/gtwvg/wvgcheck.prg
* contrib/hbide/ideconsole.prg
* contrib/hbide/idetags.prg
* contrib/hbnf/tests/nftest.prg
* contrib/hbxbp/tests/demoxbp.prg
* contrib/hbxbp/tests/dialogqt.prg
* contrib/hbxbp/tests/xbpqtc.prg
* contrib/hbxbp/xbpappevent.prg
* contrib/hbxbp/xbptreeview.prg
* contrib/xhb/hjwindow.prg
* contrib/xhb/hterrsys.prg
* contrib/xhb/htjlist.prg
* contrib/xhb/htmutil.prg
* contrib/xhb/ttable.prg
* contrib/xhb/xhberr.prg
* extras/gtwvw/tests/cbtest6.prg
* extras/guestbk/cgi.ch
* extras/guestbk/guestbk.prg
* extras/guestbk/guestbk.txt
* extras/guestbk/inifiles.prg
* extras/hbapollo/fblock.prg
* extras/hbapollo/tests/test45.prg
* extras/hbxlsxml/xlsxml_y.prg
* extras/httpsrv/cgifunc.prg
* extras/httpsrv/session.prg
* extras/httpsrv/uhttpd.prg
! if() -> iif()
* formatting
* *trim( str() ) -> hb_ntos()
* modernized generated html
301 lines
7.9 KiB
Plaintext
301 lines
7.9 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Generates Javascript & DHTML list menus
|
|
* (see the website/jList dir for an example)
|
|
*
|
|
* Uses list.js and resize.js (heavily modified) found at
|
|
* developer.Netscape.com
|
|
*
|
|
* Copyright 2000 Manos Aspradakis <maspr@otenet.gr>
|
|
* 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 of the License, or
|
|
* (at your option) any later version, with one exception:
|
|
*
|
|
* The exception is that if you link the Harbour Runtime Library (HRL)
|
|
* and/or the Harbour Virtual Machine (HVM) 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 HRL
|
|
* and/or HVM code into it.
|
|
*
|
|
* 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 program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
|
|
* their web site at http://www.gnu.org/).
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* The following parts are Copyright of the individual authors.
|
|
* www - http://harbour-project.org
|
|
*
|
|
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
|
|
* Porting this library to Harbour
|
|
*
|
|
* See doc/license.txt for licensing terms.
|
|
*
|
|
*/
|
|
|
|
#include "hbclass.ch"
|
|
#include "common.ch"
|
|
#include "cgi.ch"
|
|
|
|
CLASS TJsList
|
|
DATA nH INIT STD_OUT
|
|
DATA aScript INIT {}
|
|
DATA aItems INIT {}
|
|
DATA cScript INIT ""
|
|
DATA nTimes INIT 0
|
|
DATA nItems INIT 0
|
|
DATA cMainNode INIT ""
|
|
DATA cCurrentNode INIT ""
|
|
DATA Style INIT _WHITE_BLACK_STYLE
|
|
DATA FONT INIT "Verdana"
|
|
DATA Size INIT 2
|
|
DATA BGCOLOR INIT "white"
|
|
DATA FontColor INIT "black"
|
|
|
|
METHOD New( name, lOpen, width, height, bgColor, ;
|
|
FONT, fntColor, fntSize, cMinusImg, cPlusImg )
|
|
|
|
METHOD NewNode( name, lOpen, width, height, bgColor )
|
|
|
|
METHOD SetFont( name, font, fntColor, fntSize )
|
|
|
|
METHOD AddItem( name, url, bgColor )
|
|
|
|
METHOD AddLink( name, url, img, bgColor )
|
|
|
|
METHOD EndNode( name, caption )
|
|
|
|
METHOD Build( xPos, yPos )
|
|
|
|
METHOD Put( cFile )
|
|
|
|
ENDCLASS
|
|
|
|
/****
|
|
*
|
|
* Create main node
|
|
*
|
|
*/
|
|
|
|
METHOD New( name, lOpen, width, height, bgColor, ;
|
|
FONT, fntColor, fntSize, cMinusImg, cPlusImg ) CLASS TJsList
|
|
|
|
LOCAL cStr
|
|
|
|
DEFAULT name TO "l"
|
|
DEFAULT lOpen TO .F.
|
|
DEFAULT WIDTH TO 200
|
|
DEFAULT HEIGHT TO 22
|
|
DEFAULT BGCOLOR TO "white"
|
|
DEFAULT FONT TO "Verdana"
|
|
DEFAULT fntColor TO "black"
|
|
DEFAULT fntSize TO 2
|
|
DEFAULT cMinusImg TO "minus.gif"
|
|
DEFAULT cPlusImg TO "plus.gif"
|
|
|
|
::font := FONT
|
|
::size := fntSize
|
|
::fontColor := fntColor
|
|
::bgColor := BGCOLOR
|
|
|
|
::nItems := 0
|
|
::aSCript := {}
|
|
|
|
cStr := "<HTML>" + CRLF() + "<HEAD>" + CRLF() + ;
|
|
"<STYLE>" + ::Style + "</STYLE>" + CRLF() + ;
|
|
'<SCRIPT LANGUAGE="JavaScript1.2" SRC="resize.js"></SCRIPT>' + CRLF() + ;
|
|
CRLF() + ;
|
|
'<SCRIPT LANGUAGE="JavaScript1.2" SRC="list.js"></SCRIPT>' + CRLF() + ;
|
|
CRLF() + ;
|
|
'<SCRIPT LANGUAGE="JavaScript">' + CRLF() + ;
|
|
"<!--" + crlf() + ;
|
|
"var " + name + ";" + CRLF() + CRLF() + ;
|
|
"function listInit() {" + CRLF() + ;
|
|
"var width =" + hb_ntos( width ) + ";" + ;
|
|
"var height=" + hb_ntos( height ) + ";" + CRLF() + ;
|
|
'listSetImages( "' + cMinusImg + '", "' + cPlusImg + '" );' + CRLF() + CRLF()
|
|
|
|
::cMainNode := name
|
|
|
|
cStr += "" //SPACE(10)
|
|
cStr += name + " = new List("
|
|
cStr += iif( lOpen, "true,", "false," )
|
|
cStr += hb_ntos( width ) + ","
|
|
cStr += hb_ntos( height ) + ","
|
|
cStr += '"' + BGCOLOR + '"' + ");" + CRLF()
|
|
cStr += "" //SPACE(10)
|
|
cStr += name + [.setFont("<FONT FACE='] + FONT + [' SIZE=] + hb_ntos( fntSize ) + [' COLOR='] + fntColor + ['>","</FONT>");] + CRLF()
|
|
|
|
::nItems ++
|
|
Aadd( ::aScript, cStr )
|
|
|
|
RETURN Self
|
|
|
|
/****
|
|
*
|
|
* Add a new sub-node
|
|
*
|
|
*/
|
|
|
|
METHOD NewNode( name, lOpen, width, height, bgColor ) CLASS TJsList
|
|
|
|
LOCAL cStr := ""
|
|
DEFAULT lOpen TO .F.
|
|
DEFAULT WIDTH TO 200
|
|
DEFAULT HEIGHT TO 22
|
|
DEFAULT BGCOLOR TO "white"
|
|
cStr += "" //SPACE(10)
|
|
cStr += name + "= new List("
|
|
cStr += iif( lOpen, "true,", "false," )
|
|
cStr += hb_ntos( width ) + ","
|
|
cStr += hb_ntos( height ) + ","
|
|
cStr += '"' + BGCOLOR + '"' + ");" + CRLF()
|
|
|
|
::cCurrentNode := name
|
|
::nItems ++
|
|
Aadd( ::aScript, cStr )
|
|
|
|
::setFont()
|
|
|
|
RETURN Self
|
|
|
|
/****
|
|
*
|
|
* Set the font for an item or node
|
|
*
|
|
*/
|
|
|
|
METHOD SetFont( name, font, fntColor, fntSize ) CLASS TJsList
|
|
|
|
LOCAL cStr := ""
|
|
|
|
DEFAULT name TO ::cCurrentNode
|
|
DEFAULT FONT TO ::font
|
|
DEFAULT fntColor TO ::fontColor
|
|
DEFAULT fntSize TO ::Size
|
|
|
|
cStr += name + [.setFont("<FONT ] + ;
|
|
[ FACE = '] + font + [' ] + ;
|
|
[ SIZE = ] + hb_ntos( fntSize ) + ['] + ;
|
|
[ COLOR = '] + fntColor + [' ] + ;
|
|
[ > ","</FONT>");]+CRLF()
|
|
|
|
Aadd( ::aScript, cStr )
|
|
RETURN self
|
|
|
|
/****
|
|
*
|
|
* Add a menu item
|
|
*
|
|
*/
|
|
|
|
METHOD AddItem( name, url, bgColor ) CLASS TJsList
|
|
|
|
LOCAL cStr := ""
|
|
LOCAL cUrl
|
|
DEFAULT name TO "o"
|
|
DEFAULT url TO ""
|
|
cUrl := [<A HREF='] + url + ['>] + htmlSpace( 2 ) + name + htmlSpace( 2 )
|
|
cStr += ::cCurrentNode + '.addItem( "' + cUrl + '"' + iif( bgColor != NIL, ',"' + bgColor + '"', "" ) + ');' + CRLF()
|
|
::nItems ++
|
|
Aadd( ::aScript, cStr )
|
|
RETURN self
|
|
|
|
/****
|
|
*
|
|
* Add a menu item
|
|
*
|
|
*/
|
|
|
|
METHOD AddLink( name, url, img, bgColor ) CLASS TJsList
|
|
|
|
LOCAL cStr := ""
|
|
LOCAL cUrl
|
|
DEFAULT name TO "o"
|
|
DEFAULT url TO ""
|
|
DEFAULT img TO "webpage.jpg"
|
|
cUrl := "<A HREF='" + url + "'><IMG SRC='" + img + "' border=0 align=absmiddle>" + htmlSpace( 2 ) + name + htmlSpace( 2 )
|
|
cStr += ::cCurrentNode + '.addItem( "' + curl + '"' + iif( bgColor != NIL, ',"' + bgColor + '"', "" ) + ');' + CRLF()
|
|
::nItems ++
|
|
Aadd( ::aScript, cStr )
|
|
RETURN self
|
|
|
|
METHOD EndNode( name, caption ) CLASS TJsList
|
|
|
|
LOCAL cStr := ""
|
|
|
|
::cCurrentNode := ::cMainNode
|
|
cStr += ::cMainNode + ".addList( " + name + ", '<B>" + caption + "</B>' );" + CRLF()
|
|
|
|
::nItems ++
|
|
Aadd( ::aScript, cStr )
|
|
RETURN self
|
|
|
|
METHOD Build( xPos, yPos ) CLASS TJsList
|
|
|
|
LOCAL i
|
|
LOCAL cStr := ""
|
|
|
|
DEFAULT xPos TO 5
|
|
DEFAULT yPos TO 5
|
|
|
|
cStr += ::cMainNode + ".build(" + hb_ntos( xPos ) + "," + hb_ntos( yPos ) + ");" + CRLF()
|
|
cStr += "}" + CRLF()
|
|
CsTR += "// -->" + crlf()
|
|
cStr += "</SCRIPT>" + CRLF()
|
|
cStr += '<STYLE TYPE="text/css">' + CRLF()
|
|
cStr += "#spacer { position: absolute; height: 1120; }" + CRLF()
|
|
cStr += "</STYLE>" + CRLF()
|
|
cStr += '<STYLE TYPE="text/css">' + CRLF()
|
|
FOR i := 0 TO ::nItems + 6
|
|
cStr += "#" + ::cMainNode + "Item" + hb_ntos( i ) + " { position:absolute; }" + CRLF()
|
|
NEXT
|
|
cStr += "</STYLE>" + CRLF()
|
|
|
|
Aadd( ::aScript, cStr )
|
|
cStr := ""
|
|
|
|
cStr += "<TITLE>Collapsable Lists: Basic Example</TITLE>" + CRLF()
|
|
cStr += "</HEAD>" + CRLF()
|
|
cStr += '<BODY ONLOAD="listInit();" BGCOLOR="#FFFFFF">' + CRLF()
|
|
cStr += '<DIV ID="spacer"></DIV>' + CRLF()
|
|
//cStr += '<DIV ID="'+::cMainNode+'Item0" NAME="'+::cMainNode+"Item0"></DIV>'+CRLF()
|
|
|
|
FOR i := 0 TO ::nItems
|
|
cStr += '<DIV ID="' + ::cMainNode + 'Item' + hb_ntos( i ) + '" NAME="' + ::cMainNode + 'Item' + hb_ntos( i ) + '"></DIV>' + CRLF()
|
|
NEXT
|
|
cStr += "</BODY></HTML>" + CRLF()
|
|
|
|
Aadd( ::aScript, cStr )
|
|
|
|
RETURN Self
|
|
|
|
METHOD Put( cFile ) CLASS TJsList
|
|
|
|
IF cFile == NIL
|
|
::nH := STD_OUT
|
|
ELSE
|
|
::nH := Fcreate( cFile )
|
|
ENDIF
|
|
|
|
Aeval( ::aScript, {| e | Fwrite( ::nH, e ) } )
|
|
|
|
Fclose( ::nH )
|
|
|
|
RETURN Self
|