home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip Hitware 6 A
/
CHIP_HITWARE6_A.iso
/
tools
/
Dana
/
TML$TSRScript.DAS
< prev
Wrap
Text File
|
1998-01-31
|
3KB
|
147 lines
'
' TSR Script Template
'
#Include "Constants.DAH"
Const STATE_INIT = 0
Const STATE_BEFORE_OPEN = 1
Const STATE_AFTER_OPEN = 2
Const STATE_AFTER_NEW = 3
Const STATE_BEFORE_SAVE = 4
Const STATE_AFTER_SAVE = 5
Const STATE_BEFORE_CLOSE= 6
Const STATE_BEFORE_EXIT = 7
Const STATE_KEY_PRESS = 8
Const STATE_CHAR = 9
Const STATE_ENTER = 10
Const STATE_TIMER = 11
Const STATE_ACTIVATE = 12
Const STATE_CALL_MENU = 13
'If your script has a menu user interface, respond this event instead
'of responding STATE_KEY_PRESS.
Const STATE_WHO_ARE_YOU = 14
'If you will respond STATE_CALL_MENU, you must respond this
'event by setting short description of your script to .ParmStrA.
'If you add this script to your addins and let it show up in Tool menu,
'you will recieve STATE_CALL_MENU from Tool menu whether you respond to
'STATE_WHO_ARE_YOU or not.
Main ()
Select Case .DanaState
Case STATE_INIT
StayResident()
Case STATE_WHO_ARE_YOU
' .ParmStrA = "Tsr Script ver1.00/by Carty"
Case STATE_CALL_MENU
OnCallMenu()
Case STATE_BEFORE_OPEN
OnBeforeOpen(.ParmStrA)
Case STATE_AFTER_OPEN
OnAfterOpen()
Case STATE_AFTER_NEW
OnAfterNew()
Case STATE_BEFORE_SAVE
OnBeforeSave(.ParmStrA)
Case STATE_AFTER_SAVE
OnAfterSave(.ParmStrA)
Case STATE_BEFORE_CLOSE
OnBeforeClose()
Case STATE_BEFORE_EXIT
OnBeforeExit()
Case STATE_KEY_PRESS
OnKeyPress(.ParmA, .ParmB)
Case STATE_CHAR
OnChar(.ParmA)
Case STATE_ENTER
OnEnter()
Case STATE_TIMER
OnTimer()
Case STATE_ACTIVATE
OnActivate()
Case Else
End Select
End
'/////////////////////////////////////////////////////////
' Message handlers
'///////////////////////////////
' Before open file
Proc OnBeforeOpen(strName$)
End Proc
'///////////////////////////////
' After open file
Proc OnAfterOpen()
End Proc
'///////////////////////////////
' After new file
Proc OnAfterNew()
End Proc
'///////////////////////////////
' Before save file
Proc OnBeforeSave(strName$)
End Proc
'///////////////////////////////
' After save file
Proc OnAfterSave(strName$)
End Proc
'///////////////////////////////
' Before close file
Proc OnBeforeClose()
End Proc
'///////////////////////////////
' Before exit Dana
Proc OnBeforeExit()
End Proc
'///////////////////////////////
' Key pressed
Proc OnKeyPress(nKey%, nShift%)
End Proc
'///////////////////////////////
' Char input
Proc OnChar(nChar%)
End Proc
'///////////////////////////////
' Enter key pressed
Proc OnEnter()
End Proc
'///////////////////////////////
' 1 second interval
Proc OnTimer()
End Proc
'///////////////////////////////
' Being activated current window
Proc OnActivate()
End Proc
'///////////////////////////////
Proc OnCallMenu()
End Proc