9d85da054a
* contrib/hbformat/hbfmtcls.prg
+ added new TODO to add space between '!'
operator and single (= not parenthesised) arguments.
* contrib/hbfimage/fi_wrp.c
* minor
* contrib/hbodbc/odbc.c
! fixed to build under ODBC 1.x, 2.x
! fixed to use ODBC 3.x functions instead of
deprecated functions.
* minor cleanups to prev
* contrib/sddodbc/sddodbc.c
! fixed to build under ODBC 1.x, 2.x
* README
+ added note that hbrun scripts are started
in UTF-8 mode.
+ added command lines for formatting C and PRG sources
* minor cleanups
* contrib/hbnf/doc/en/cint86.txt
* contrib/hbnf/ftmenuto.ch
* contrib/xhb/html.ch
* contrib/xhb/htmlform.ch
* extras/gtwvw/docs/funclist.txt
* extras/gtwvw/docs/gtwvw.txt
* extras/gtwvw/docs/whatsnew.txt
* extras/gtwvw/gtwvwd.c
* extras/gtwvw/tests/ebtest7.prg
* extras/gtwvw/tests/prog0.prg
* extras/gtwvw/tests/prog1.prg
* extras/gtwvw/tests/prog2.prg
* extras/gtwvw/tests/wvwtest9.prg
* src/rtl/achoice.prg
* src/vm/thread.c
* website/samples/testcgi.prg.html
* website/samples/testhtml.prg.html
* website/third-party.html
* lowercased (or deleted) references to
source filenames.
290 lines
13 KiB
Plaintext
290 lines
13 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Include file to create forms
|
|
*
|
|
* 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.
|
|
*
|
|
*/
|
|
|
|
#ifndef _FORMS_CH
|
|
|
|
#xCommand DEFINE FORM <oFrm> ;
|
|
[NAME <name>] ;
|
|
[METHOD <method>] ;
|
|
[ACTION <action>] ;
|
|
[ENCTYPE <enctype>] ;
|
|
[TARGET <target>] ;
|
|
[ONSUBMIT <onsubmit>] ;
|
|
[ONRESET <onreset>] ;
|
|
[<frame:FRAME>] ;
|
|
[CAPTION <cap>] ;
|
|
[CAPCOLOR <capclr>] ;
|
|
[CAPFONTCOLOR <capfntclr>] ;
|
|
[CAPIMAGE <capimage>] ;
|
|
[BGIMAGE <bgimg>] ;
|
|
[FONTCOLOR <fntclr>] ;
|
|
[COLOR <clr>] ;
|
|
[WIDTH <w>] ;
|
|
=> ;
|
|
<oFrm> := THtmlForm():New( [<name>], [<action>], [<method>], ;
|
|
<.frame.>, <cap> ) ;;
|
|
[<oFrm>:setTarget( <(target)> ) ;] ;
|
|
[<oFrm>:setEncType( <(enctype)> ) ;] ;
|
|
[<oFrm>:setCapClr( <(capclr)> ) ;] ;
|
|
[<oFrm>:setCapFntClr( <(capfntclr)> ) ;] ;
|
|
[<oFrm>:setCapImage( <(capimage)> ) ;] ;
|
|
[<oFrm>:setBgImage( <(bgimg)> ) ;] ;
|
|
[<oFrm>:setFontColor( <(fntclr)> ) ;] ;
|
|
[<oFrm>:setFrmColor( <(clr)> ) ;] ;
|
|
[<oFrm>:setwidth( <w> ) ;] ;
|
|
[<oFrm>:setAction( <(action)> ) ;] ;
|
|
[<oFrm>:setOnSubmit( <(onsubmit)> ) ;] ;
|
|
[<oFrm>:setOnReset( <(onreset)> ) ]
|
|
|
|
|
|
#xCommand ACTIVATE <oFrm> ;
|
|
=>;
|
|
<oFrm>:Put( .T. ) ; <oFrm>:End()
|
|
|
|
|
|
// --> Controls
|
|
|
|
#xCommand CONTROL ;
|
|
[OF <obj>];
|
|
[<typ:EDIT,TEXT,TEXTAREA,PASSWORD,BUTTON,IMAGE,CHECKBOX,CHECK,HIDDEN,RADIO,FILE,RESET,SUBMIT,SELECT,LISTBOX>] ;
|
|
[ALIGN <aln:LEFT,RIGHT,CENTER,MIDDLE,TOP,TEXTTOP,BOTTOM,ABSMIDDLE,ABSCENTER,ABSBOTTOM,BASELINE>];
|
|
[WRAP <wrap:OFF,VIRTUAL,PHYSICAL,NORMAL>] ;
|
|
[NAME <name>] ;
|
|
[VALUE <value>] ;
|
|
[SIZE <size>] ;
|
|
[MAXCHARS <maxchars>] ;
|
|
[ROWS <rows>] ;
|
|
[COLS <cols>] ;
|
|
[ONCHANGE <onchange>] ;
|
|
[ONSELECT <onselect>] ;
|
|
[ONFOCUS <onfocus>] ;
|
|
[ONBLUR <onblur>] ;
|
|
[ONCLICK <onclick>] ;
|
|
[ONMOUSEOVER <onmsover>] ;
|
|
[ONMOUSEOUT <onmsout>] ;
|
|
[ONMOUSEUP <onmsup>] ;
|
|
[ONMOUSEDOWN <onmsdn>] ;
|
|
[ONKEYDOWN <onkdown>] ;
|
|
[ONKEYUP <onkup>] ;
|
|
[ONKEYPRESS <onkprs>] ;
|
|
[PICTURE <pic>] ;
|
|
[<chk:CHECKED>] ;
|
|
[<dis:DISABLED>] ;
|
|
[<ro:READONLY>] ;
|
|
[<mult:MULTIPLE>] ;
|
|
[CAPTION <cap>] ;
|
|
[STYLE <style>] ;
|
|
[ID <id>] ;
|
|
[<l:LABEL>] ;
|
|
IN <oForm> ;
|
|
=> ;
|
|
<oForm>:addControl( ;
|
|
[ <obj>:= ] THtmlControl():SetControl(;
|
|
<(name)>, <rows>, <cols>, <size>, <maxchars>, ;
|
|
<(value)>, ;
|
|
<(onfocus)>, <(onblur)>, <(onchange)>, <(onselect)>, ;
|
|
<(onclick)>, <(onmsover)>, <(onmsout)>, <(onmsdn)>, <(onmsup)>, ;
|
|
<(onkdown)>, <(onkup)>, <(onkprs)>, ;
|
|
<(pic)>, <(cap)>, ;
|
|
<.dis.>, <.ro.>, <.mult.>, <.chk.>, ;
|
|
__ALIGN__ [<aln>], ;
|
|
__WRAP__ [<wrap>], ;
|
|
__TYPE__ [<typ>], ;
|
|
<style>, <id>, <.l.> ) )
|
|
|
|
|
|
#xCommand DEFINE <typ:EDIT,TEXT,TEXTAREA,PASSWORD,BUTTON,IMAGE,CHECKBOX,CHECK,HIDDEN,RADIO,FILE,RESET,SUBMIT,SELECT,LISTBOX> <oCtr>;
|
|
[WRAP <wrap:OFF,VIRTUAL,PHYSICAL,NORMAL>] ;
|
|
[ALIGN <aln:LEFT,RIGHT,CENTER,MIDDLE,TOP,TEXTTOP,BOTTOM,ABSMIDDLE,ABSCENTER,ABSBOTTOM,BASELINE>];
|
|
[NAME <name>] ;
|
|
[SIZE <size>] ;
|
|
[MAXCHARS <maxchars>] ;
|
|
[VALUE <value>] ;
|
|
[ROWS <rows>] ;
|
|
[COLS <cols>] ;
|
|
[SOURCE <source>] ;
|
|
[ONCHANGE <onchange>] ;
|
|
[ONSELECT <onselect>] ;
|
|
[ONFOCUS <onfocus>] ;
|
|
[ONBLUR <onblur>] ;
|
|
[ONCLICK <onclick>] ;
|
|
[ONMOUSEOVER <onmsover>] ;
|
|
[ONMOUSEOUT <onmsout>] ;
|
|
[ONKEYDOWN <onkdown>] ;
|
|
[ONKEYUP <onkup>] ;
|
|
[ONKEYPRESS <onkprs>] ;
|
|
[PICTURE <pic>] ;
|
|
[<mult:MULTIPLE>] ;
|
|
[<checked:CHECKED>] ;
|
|
[<dis:DISABLED>] ;
|
|
[<ro:READONLY>] ;
|
|
[CAPTION <cap>] ;
|
|
[STYLE <style>] ;
|
|
[ID <id>] ;
|
|
[<l:LABEL>] ;
|
|
IN <oForm> ;
|
|
=> ;
|
|
<oCtr> := THtmlControl() ;;
|
|
[<oCtr>:SetName( <(name)> ) ;] ;
|
|
[<oCtr>:SetSize( <size> ) ;] ;
|
|
[<oCtr>:SetRows( <rows> ) ;] ;
|
|
[<oCtr>:SetCols( <cols> ) ;] ;
|
|
[<oCtr>:SetAlign( __ALIGN__ <aln> );] ;
|
|
[<oCtr>:SetWrap( __WRAP__ <wrap> );] ;
|
|
[<oCtr>:SetSource( <(source)> );] ;
|
|
[<oCtr>:SetMaxChars( <maxchars> );] ;
|
|
[<oCtr>:SetValue( <(value)> );] ;
|
|
[<oCtr>:SetOnFocus( <(onfocus)> );] ;
|
|
[<oCtr>:SetOnBlur( <(onblur)> );] ;
|
|
[<oCtr>:SetOnChange( <(onchange)> );] ;
|
|
[<oCtr>:SetOnSelect( <(onselect)> );] ;
|
|
[<oCtr>:SetonClick( <(onclick)> );] ;
|
|
[<oCtr>:SetonMsOver( <(onmsover)> );] ;
|
|
[<oCtr>:SetonMsOut( <(onmsout)> );] ;
|
|
[<oCtr>:SetonKDown( <(onkdown)> );] ;
|
|
[<oCtr>:SetonKUp( <(onkup)> );] ;
|
|
[<oCtr>:SetonKPress( <(onkprs)> );] ;
|
|
[<oCtr>:SetPicture( <(pic)> );] ;
|
|
[<oCtr>:SetCaption( <cap> );] ;
|
|
[<oCtr>:SetStyle( <(style)> );] ;
|
|
[<oCtr>:SetId( <(id)> );] ;
|
|
[<oCtr>:SetChecked( <.checked.> );] ;
|
|
[<oCtr>:SetMultiple( <.mult.> );] ;
|
|
[<oCtr>:SetDisabled( <.dis.> );] ;
|
|
[<oCtr>:SetReadonly( <.ro.> );] ;
|
|
[<oCtr>:SetLabel( <.l.> );] ;
|
|
<oCtr>:Type := __TYPE__ <typ> ;;
|
|
<oForm>:AddControl( <oCtr> )
|
|
|
|
#xcommand DEFINE OPTION <text> [OF <oSelect>] ;
|
|
[VALUE <value>] ;
|
|
[LABEL <label>] ;
|
|
[<sel:SELECTED>] ;
|
|
[<dis:DISABLED>] ;
|
|
=>;
|
|
<oSelect>:AddOption( <text>, <value>, <label>, <.sel.>, <.dis.> )
|
|
|
|
#xcommand ADD OPTION <text> [OF <oSelect>] ;
|
|
[VALUE <value>] ;
|
|
[LABEL <label>] ;
|
|
[<sel:SELECTED>] ;
|
|
[<dis:DISABLED>] ;
|
|
=>;
|
|
<oSelect>:AddOption( <text>, <value>, <label>, <.sel.>, <.dis.> )
|
|
|
|
|
|
// --> Literals
|
|
|
|
#xCommand LINE BREAK ;
|
|
IN <oForm> ;
|
|
=> ;
|
|
<oForm>:AddControl( "<BR>" + CRLF() )
|
|
|
|
|
|
#xCommand LINE IN <oForm> ;
|
|
=> ;
|
|
<oForm>:AddControl( CRLF() + "<HR WIDTH = 100%>" + CRLF() )
|
|
|
|
#xCommand SPACE <n> IN <oForm> ;
|
|
=> ;
|
|
<oForm>:AddControl( Replicate( " ", <n> ) )
|
|
|
|
|
|
#xCommand TEXT <c> IN <oForm> ;
|
|
=> ;
|
|
<oForm>:AddControl( <c> )
|
|
|
|
#xCommand SCRIPT <c> IN <oForm> ;
|
|
=> ;
|
|
<oForm>:AddControl( <c> )
|
|
|
|
|
|
#xCommand START GROUP <c> IN <oForm> => ;
|
|
<oForm>:AddControl( CRLF() + "<FIELDSET><LEGEND>" + <c> + "</LEGEND>" + CRLF() )
|
|
|
|
#xCommand END GROUP IN <oForm> => ;
|
|
<oForm>:AddControl( CRLF() + "</FIELDSET>" + CRLF() )
|
|
|
|
|
|
#xtranslate __TYPE__ => "TEXT"
|
|
#xtranslate __TYPE__ <typ:EDIT> => "TEXT"
|
|
#xtranslate __TYPE__ <typ:TEXT> => "TEXT"
|
|
#xtranslate __TYPE__ <typ:TEXTAREA> => "TEXTAREA"
|
|
#xtranslate __TYPE__ <typ:PASSWORD> => "PASSWORD"
|
|
#xtranslate __TYPE__ <typ:IMAGE> => "IMAGE"
|
|
#xtranslate __TYPE__ <typ:BUTTON> => "BUTTON"
|
|
#xtranslate __TYPE__ <typ:CHECKBOX> => "CHECKBOX"
|
|
#xtranslate __TYPE__ <typ:CHECK> => "CHECKBOX"
|
|
#xtranslate __TYPE__ <typ:HIDDEN> => "HIDDEN"
|
|
#xtranslate __TYPE__ <typ:RADIO> => "RADIO"
|
|
#xtranslate __TYPE__ <typ:FILE> => "FILE"
|
|
#xtranslate __TYPE__ <typ:RESET> => "RESET"
|
|
#xtranslate __TYPE__ <typ:SUBMIT> => "SUBMIT"
|
|
#xtranslate __TYPE__ <typ:SELECT> => "SELECT"
|
|
|
|
#xtranslate __WRAP__ => NIL
|
|
#xtranslate __WRAP__ <wrap:OFF> => "OFF"
|
|
#xtranslate __WRAP__ <wrap:VIRTUAL> => "VIRTUAL"
|
|
#xtranslate __WRAP__ <wrap:PHYSICAL> => "PHYSICAL"
|
|
#xtranslate __WRAP__ <wrap:NORMAL> => "NORMAL"
|
|
|
|
#xtranslate __ALIGN__ => NIL
|
|
#xtranslate __ALIGN__ <aln:LEFT> => "LEFT"
|
|
#xtranslate __ALIGN__ <aln:RIGHT> => "RIGHT"
|
|
#xtranslate __ALIGN__ <aln:CENTER> => "MIDDLE"
|
|
#xtranslate __ALIGN__ <aln:MIDDLE> => "MIDDLE"
|
|
#xtranslate __ALIGN__ <aln:TOP> => "TOP"
|
|
#xtranslate __ALIGN__ <aln:TEXTTOP> => "TEXTTOP"
|
|
#xtranslate __ALIGN__ <aln:BOTTOM> => "BOTTOM"
|
|
#xtranslate __ALIGN__ <aln:ABSMIDDLE> => "ABSMIDDLE"
|
|
#xtranslate __ALIGN__ <aln:ABSCENTER> => "ABSMIDDLE"
|
|
#xtranslate __ALIGN__ <aln:ABSBOTTOM> => "ABSBOTTOM"
|
|
#xtranslate __ALIGN__ <aln:BASELINE> => "BASELINE"
|
|
|
|
|
|
#define _FORMS_CH
|
|
#endif
|