swCHIP 1991 January/swCHIP_95-1.bin/chip/tvgencpp/demo3cpp.exe/TEMPLATE/TDIALOG.DTF

Text File | 1995-02-13 | 4.9 KB | 236 lines

\ ********************************************************
\       Standard dialog template file for TVGen 3.0
\    initializes objects outside the dialog constructor
\               (c) 1994 BOCIAN Software
\ ********************************************************
\
\ Define procedures only for standalone dialogs
@IF!APP
\ Recursively called procedure building up the cluster string lists
@DEFPROC LineProc
@IF!EQUAL %_LINETEXT% ''
         new TSItem("%_LINETEXT%",
@NEXTLINE Lines
@CALL LineProc
@NOCR )
@ELSE
@NOCR             0
@ENDIF
@ENDPROC
\ End of procedure LineProc
\
\
\ Procedure for object flags redefinition
@DEFPROC ObjParams
@IF!DEFAULT Options
      %_PARAMETER(1)%options=%OPTIONS%;
@ENDIF
@IF!DEFAULT DragMode
      %_PARAMETER(1)%dragMode=%DRAGMODE%;
@ENDIF
@IF!DEFAULT GrowMode
      %_PARAMETER(1)%growMode=%GROWMODE%;
@ENDIF
@IF!DEFAULT EventMask
      %_PARAMETER(1)%eventMask=%EVENTMASK%;
@ENDIF
@ENDPROC
\ End of procedure ObjParams
@ENDIF
\
\ Global variables
@IFAPP
  @ASSIGN __DLGFILE[_DLGNUM] %_OUTFILE%.%_EXT%
  @ASSIGN __HCCOUNTER 1
  @ASSIGN __HELPFLAG 0
  \ Set the flag - if the dialog has the help text
  @IFOPTION HELP NOAPP FALSE
    @IFSNIPPET TXT_HELP
      @INC __HELPFLAG
      @FILE 4
      @NOCR .topic hc_D_%FUNCNAME%=%_HELPVALUE%
      @ASSIGN __HCVAL %_HELPVALUE%
    @ENDIF (ifsnippet)
  @ENDIF (ifoption)
@ENDIF (ifapp)
\
@DEFINEFILE 1 %_OUTFILE%.%_EXT%
@FILE 1
@IFOPTION HEADERS NOAPP TRUE
/*************** %_YOURNAME% - %_YOURCOMPANY% ***************/
/********** Generated from template %_PADR(TEMPLATE,12,' ')% ***********/
/********** Date: %_PADR(_DATE,10,' ')% at %_PADR(_TIME,5,' ')% **********/

@IFAPP
#define Uses_TApplication
#define Uses_TDeskTop
#define Uses_TDialog
#define Uses_TSItem
#define Uses_TEvent
#define Uses_MsgBox
#define Uses_TFramedView
#define Uses_TListViewer
#define Uses_TScrollBar
#define Uses_TCollection
@ASSIGN __COUNTER 0
@LOOP
  @IF!EQUAL %_CLASS(__COUNTER)% ''
#define Uses_%_CLASS(__COUNTER)%
    @INC __COUNTER
  @ELSE
    @EXIT
  @ENDIF
@ENDLOOP

#if __BORLANDC__ < 0x452 && !defined(__WIN32__)
#include <tv.h>
#else
#include <tvision\tv.h>
#endif

#include <string.h>

#include "supply.h"

#include "%__APPFILE%_D.H"
#include "%__APPFILE%_K.H"
#include "%__APPFILE%_H.H"

@IFOPTION ASK_FOR_UNITS
  @ASSIGN __COUNTER 0
  @LOOP
    @IFEQUAL %__COUNTER% %__MODULES%
      @EXIT
    @ELSE
#include "%__MOD[__COUNTER]%"
  @INC __COUNTER
  @ENDLOOP

@ENDIF
@ENDIF (ifoption)
@ENDIF (ifapp)
@IFAPP
  @ASSIGN __LOCALCOMMANDS 0
  @PUSHFILE 7

const ushort %FUNCNAME%Cmds = %CMDORG%;

  @POPFILE
@ELSE
@ORSYMBOL |
@ENDIF
@IFHASDATA
  @IFAPP
    @PUSHFILE 3
  @ENDIF

      struct T%FUNCNAME%Data {
  @FOREACH
    @DATAXCHG '               '
  @ENDFOR
                };

  @IFAPP
    @POPFILE
  @ENDIF
@ENDIF (ifhasdata)
@ASSIGN __TYPEDEFINED 0
@IFSNIPPET MTD_*
  @INC __TYPEDEFINED
@ENDIF
@IFSNIPPET USR*
  @INC __TYPEDEFINED
@ENDIF
@IF!EQUAL %TYPE% 'TDialog' SENSITIVE
  @INC __TYPEDEFINED
@ENDIF
@IF!EQUAL %__TYPEDEFINED% 0
      class %TYPE% : public TDialog {
                  public:
                  %TYPE%(TRect Bounds, char *ATitle);
@IFSNIPPET MTD_DONE
                  ~%TYPE%();
@ENDIF
@IFSNIPPET MTD_HAND
                  virtual void handleEvent(TEvent &event);
@ENDIF
@ASSIGN __SECTION 'HEADER'
@SNIPPETS LIKE USR*
@ASSIGN __SECTION 'MAIN'
                };
@ENDIF (ifsnippet mtd_*)

@IFHASDATA
ushort %FUNCNAME%(T%FUNCNAME%Data &_Data, Boolean _SetData)
@IFAPP
@PUSHFILE 3
ushort %FUNCNAME%(T%FUNCNAME%Data &_Data, Boolean _SetData);
@POPFILE
@ENDIF (ifapp)
@ELSE
ushort %FUNCNAME%()
@IFAPP
@PUSHFILE 3
ushort %FUNCNAME%();
@POPFILE
@ENDIF (ifapp)
@ENDIF (ifhasdata)
{
    TDialog *d;
    TView *c,*cx;
    TInputLine *cl;
    TCluster   *cc;
    TScrollBar *sb,*vsb,*hsb;

  d=new %TYPE%(TRect(%_BOUNDS%),%TITLE%);
@IF!DEFAULT FLAGS
      d->flags=%FLAGS%;
@ENDIF (if!default)
@IF!DEFAULT PALETTE
      d->palette=%PALETTE%;
@ENDIF
@IFAPP
      d->helpCtx=hc_D_%FUNCNAME%;
@ENDIF (ifapp)
@CALL ObjParams d->
@FOREACH
@OBJECT d->

@ENDFOR
      d->selectNext(False);

@IFHASDATA
  if (_SetData) d->setData(&_Data);
@ENDIF
  ushort retVal = TApplication::deskTop->execView(d);
  TObject::destroy(d);
  return retVal;
}

@IF!EQUAL %__TYPEDEFINED% 0
/**************** Dialog Methods ******************/

@IF!SNIPPET MTD_INIT
%TYPE%::%TYPE%(TRect Bounds, char *ATitle) : TDialog(Bounds,ATitle), TWindowInit(&%TYPE%::initFrame)
{
}

@ENDIF
@SNIPPETS LIKE MTD_*

@SNIPPETS LIKE USR*
@ENDIF (if!equal)
/************ Generated by TVGen 3.0 **************/
@CLOSEFILE 1
@IFAPP
\ Help text for the dialog
  @IFOPTION HELP NOAPP FALSE
    @IF!EQUAL %__HELPFLAG% 0
      @FILE 4

      @SNIPPET TXT_HELP
    @ENDIF (if!equal)
  @ENDIF (ifoption)
@ENDIF (ifapp)
\ End of the file...