swCHIP 1991 January/swCHIP_95-1.bin/chip/tvgenpas/demo3pas.exe/TEMPLATE/STATLINE.STF

Text File | 1994-10-27 | 1KB | 59 lines

\ ********************************************************
\      Standard StatusLine template file for TVGen 3.0
\               (c) 1994 BOCIAN Software
\ ********************************************************
\
\ Recursively called procedure building up the StatusLine source
\
@DEFPROC StatusProc
@IFEQUAL %_ITEMTYPE% %_PARAMETER(1)%
\ Status 'def' definition
@IFEQUAL %_ITEMTYPE% 'DEF'
    NewStatusDef(%_MIN%,%_MAX%,
@NEXTITEM
@CALL StatusProc 'KEY'
,
@CALL StatusProc 'DEF'
@NOCR )
@ENDIF (ifequal %_itemtype% def)
\ Status key definition
@IFEQUAL %_ITEMTYPE% 'KEY'
      NewStatusKey('%_TEXT%',%_HOTKEY%,%_COMMAND%,
@NEXTITEM
@CALL StatusProc 'KEY'
@NOCR )
@ENDIF (ifequal %_itemtype% key)
@ELSE
@NOCR nil
@ENDIF (ifequal %_itemtype% %_parameter(1)%)
@ENDPROC
\
\
\ Main template sequence
@ASSIGN __STATUSFILE %_OUTFILE%.%_EXT%
@DEFINEFILE 1 %_OUTFILE%.%_EXT%
@FILE 1
@IF!APP
@ASKFOR _APPTYPE 'TMyApp'
@ENDIF (if!app)
@IFOPTION STATUS_IN_RSC NOAPP FALSE
procedure DefineStatusLine;
var R : TRect;
begin
  StatusLine:=New(PHintStatusLine,Init(R,
@ELSE
procedure %_APPTYPE%.InitStatusLine;
var R : TRect;
begin
  GetExtent(R);
  R.A.Y:=R.B.Y-1;
  StatusLine:=New(PHintStatusLine,Init(R,
@ENDIF (ifoption)
@FIRSTITEM
@CALL StatusProc 'DEF'
));
  PHintStatusLine(StatusLine)^.NewHintList(PStringList(ResFile.Get('HINTS')));
end;

{ ************ Generated by TVGen 3.0 ************** }
@CLOSEFILE 1