home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 32
/
hot34.iso
/
ficheros
/
9COM
/
EPROJECT.ZIP
/
AUTOPAGE.EXE
/
RCDATA
/
TFORM1
/
TFORM1.txt
Wrap
Text File
|
1997-09-07
|
17KB
|
562 lines
object Form1: TForm1
Left = 199
Top = 116
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Auto Page for Windows'
ClientHeight = 279
ClientWidth = 431
Color = clBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Menu = MainMenu1
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 8
Top = 136
Width = 96
Height = 16
Caption = 'Using Comport'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 40
Width = 245
Height = 16
Caption = 'Minutes To Wait Before Dialing Pager'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 64
Width = 143
Height = 16
Caption = 'Pager Number To Dial'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 8
Top = 88
Width = 201
Height = 16
Caption = 'Seconds To Delay After Dialing'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 8
Top = 112
Width = 170
Height = 16
Caption = 'Number To Send To Pager'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 8
Top = 16
Width = 183
Height = 16
Caption = 'Rings To Trigger Countdown'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 8
Top = 160
Width = 159
Height = 16
Caption = 'Enter Registration Name'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label8: TLabel
Left = 8
Top = 184
Width = 172
Height = 16
Caption = 'Enter Registration Number'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object BitBtn1: TBitBtn
Left = 8
Top = 208
Width = 201
Height = 33
Caption = 'Test (Dial Pager Now)'
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
TabOrder = 9
OnClick = BitBtn1Click
NumGlyphs = 2
end
object Number: TEdit
Left = 280
Top = 56
Width = 121
Height = 24
Hint = '20 Characters MAX'
ParentShowHint = False
ShowHint = True
TabOrder = 3
Text = '555-1212'
OnExit = RingsToTriggerExit
end
object Send: TEdit
Left = 280
Top = 104
Width = 121
Height = 24
Hint = '14 Characters MAX'
ParentShowHint = False
ShowHint = True
TabOrder = 5
Text = '999-Time'
OnExit = RingsToTriggerExit
end
object BitBtn2: TBitBtn
Left = 224
Top = 208
Width = 201
Height = 33
Caption = 'OK'
Default = True
Font.Charset = ANSI_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
TabOrder = 0
OnClick = BitBtn2Click
Glyph.Data = {
CE070000424DCE07000000000000360000002800000024000000120000000100
1800000000009807000000000000000000000000000000000000007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7FFFFFFF007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F7F00007F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7FFFFFFF
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F7F0000007F00007F007F0000007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
7F7F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F7F0000007F00007F00007F0000
7F007F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F7F7F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F000000
7F00007F00007F00007F00007F00007F007F0000007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F007F7F007F7F007F7F007F
7F007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F7F0000007F00007F00007F0000FF00007F00007F00007F00007F00
7F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFF
FF007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F7F7F7FFFFFFF007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F00007F00007F0000FF00007F7F
00FF00007F00007F00007F007F0000007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F7F7F7FFFFFFF007F7F7F7F7F007F7F7F7F7FFFFFFF007F7F00
7F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F00FF00
007F0000FF00007F7F007F7F007F7F00FF00007F00007F00007F007F0000007F
7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF7F7F7F007F7F00
7F7F007F7F7F7F7FFFFFFF007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F
007F7F007F7F007F7F007F7F00FF00007F7F007F7F007F7F007F7F007F7F00FF
00007F00007F00007F007F0000007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F7F7F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7F
7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F00FF00007F00007F00007F007F0000007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F7F7F7FFFFFFF007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00FF0000
7F00007F00007F007F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7F7F7F
7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F00FF00007F00007F00007F007F0000007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F7F7F7FFFFFFF007F7F007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00FF00007F00
007F00007F007F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7F7F7F7FFF
FFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F00FF00007F00007F007F0000007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F
7F7FFFFFFF007F7F7F7F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00FF00007F00007F
00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF7F7F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F00FF00007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F}
NumGlyphs = 2
end
object Panel1: TPanel
Left = 8
Top = 248
Width = 417
Height = 25
Alignment = taLeftJustify
BevelOuter = bvLowered
BorderStyle = bsSingle
Caption = ' Waiting For Set-Up'
Color = clGrayText
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
end
object BitBtn3: TBitBtn
Left = 153
Top = 104
Width = 153
Height = 33
Caption = 'Abort Countdown'
TabOrder = 11
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
993337777F777F3377F3393999707333993337F77737333337FF993399933333
399377F3777FF333377F993339903333399377F33737FF33377F993333707333
399377F333377FF3377F993333101933399377F333777FFF377F993333000993
399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
99333773FF777F777733339993707339933333773FF7FFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
object RingsToTrigger: TMaskEdit
Left = 280
Top = 8
Width = 17
Height = 24
EditMask = '9'
MaxLength = 1
TabOrder = 1
Text = '2'
OnExit = RingsToTriggerExit
end
object Minutes: TMaskEdit
Left = 280
Top = 32
Width = 17
Height = 24
EditMask = '9'
MaxLength = 1
TabOrder = 2
Text = '5'
OnExit = RingsToTriggerExit
end
object WhichCom: TMaskEdit
Left = 280
Top = 128
Width = 17
Height = 24
Hint = '1-8 Only'
EditMask = '9'
MaxLength = 1
ParentShowHint = False
ShowHint = True
TabOrder = 6
Text = '2'
OnExit = RingsToTriggerExit
end
object RegistrationName: TEdit
Left = 280
Top = 152
Width = 145
Height = 24
TabOrder = 7
Text = 'John Doe'
Visible = False
OnExit = RegistrationNameExit
end
object Seconds: TMaskEdit
Left = 280
Top = 80
Width = 25
Height = 24
EditMask = '99'
MaxLength = 2
TabOrder = 4
Text = '15'
OnExit = RingsToTriggerExit
end
object RegistrationNumber: TMaskEdit
Left = 280
Top = 176
Width = 73
Height = 24
EditMask = '99999999'
MaxLength = 8
TabOrder = 8
Text = '12345678'
Visible = False
OnExit = RegistrationNameExit
end
object Memo1: TMemo
Left = 0
Top = 0
Width = 433
Height = 9
Hint = 'Use Help from menu to hide'
Lines.Strings = (
'Don'#39't Miss Another Message!'
''
'Let Auto Page call your pager after your phone rings. Set'
'Auto Page to wait enough time to allow a person to leave a'
'message on your answering machine, and Auto Page will'
'make the callout to your paging system.'
''
'If you have an external modem, ensure your modem is turned'
'on when using this program. Internal modems are always on,'
'when the PC is on.'
''
'Auto Page is easy to configure. Once changing the initial'
'setup to fit your needs, this information will be saved into'
'AUTOPAGE.CFG. If this file does not exist, it will be created.'
''
'Note: Nothing is saved until you press <OK> at the main menu.'
''
'Auto Page will continue to call your pager if the phone is busy.'
''
'Auto Page supports comports 1-8. Most modems are set to'
'either comport 1 or 2, a small percentage are set to 3 or 4.'
''
'******************** WHAT'#39'S NEW SINCE V1.2 ***************'
''
'Set the number of rings to count before triggering a countdown.'
'The most requested feature for Auto Page.'
''
'Add the word Time to the number to send to your pager and get'
'a time stamp. This is a great feature for those of us who do'
'not have time stamping on their pager. Time uses the 24 hour'
'time format. Time is formatted as HHMM. The word '#39'Time'#39' may'
'be in any case. Sample formats are:'
''
' 999-Time Sends 9991200 (if the time is 12:00 noon)'
' 999-TIME Sends 9991330 (if the time is 1:30 pm)'
' 853-1212 Sends 8531212'
''
'Passing arguments on the command line to bypass pressing'
'enter is gone. A timer of 5 minutes now bypasses the need'
'to press enter. This feature allows you to put AutoPage'
'into your Startup folder or load it in your Win.Ini file,'
'and in case of power failure, the program will continue to'
'run as expected.'
''
'The CRC check for corruption and the Non-standard IRQ and/or'
'Base Address options are not is this version. Sorry for any'
'inconvenience.'
''
'Auto Page will only dial out to your pager once per run,'
'if not not registered.'
''
'Auto Page now uses a configuration file for the settings.'
'The file will be created and looked for in the directory that'
'Auto Page resides.'
''
' Register today for only $15.00.'
''
' What you get by registration:'
''
' 1. The latest version, if another version has been released' +
'.'
' 2. A warm fuzzy feeling, for registering what you use.'
' 3. The key to unlock all future versions of Auto Page.'
''
' How to reach me:'
''
' Compuserve : 73110.3073@compuserve.com'
''
''
' Registration for Auto Page v2.0'
''
' Registered to (Max 24 Characters) : _______________________'
''
' Name : ___________________________________'
''
' Address : ___________________________________'
''
' City, ST Zip : ___________________________________'
''
' Phone (optional) : _________________________________'
''
''
' Send $15.00 Check or Money Order to:'
''
' Bret Bordwell'
' 22925 River Rd'
' Petersburg, VA 23803-6811'
''
'')
ParentShowHint = False
ShowHint = True
TabOrder = 12
Visible = False
WordWrap = False
end
object ApdComPort1: TApdComPort
TraceName = 'APD.TRC'
LogName = 'APD1.LOG'
LogHex = False
Left = 352
end
object ApdModem1: TApdModem
ComPort = ApdComPort1
InitCmd = 'ATZ^M'
DialCmd = 'ATDT'
DialTerm = '^M'
DialCancel = '^M'
HangupCmd = '+++~~~ATH0^M'
ConfigCmd = 'ATE1Q0X1V1^M'
AnswerCmd = 'ATA^M'
OkMsg = 'OK'
ConnectMsg = 'CONNECT'
BusyMsg = 'BUSY'
VoiceMsg = 'VOICE'
NoCarrierMsg = 'NO CARRIER'
NoDialToneMsg = 'NO DIALTONE'
ErrorMsg = 'ERROR'
RingMsg = 'RING'
LockDTE = True
DialTimeout = 30
OnModemBusy = ApdModem1ModemBusy
OnDialTimedOut = ApdModem1DialTimedOut
OnModemRing = ApdModem1ModemRing
Left = 376
end
object MainMenu1: TMainMenu
Left = 400
object File1: TMenuItem
Caption = '&File'
ShortCut = 0
object Setup1: TMenuItem
Caption = '&Setup'
ShortCut = 0
OnClick = Setup1Click
end
object CallLogging1: TMenuItem
Caption = '&Call Logging'
ShortCut = 0
OnClick = CallLogging1Click
end
object Register1: TMenuItem
Caption = '&Register'
ShortCut = 0
OnClick = Register1Click
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 32856
OnClick = Exit1Click
end
end
object About1: TMenuItem
Caption = '&Help'
ShortCut = 0
object Help1: TMenuItem
Caption = '&Help'
ShortCut = 0
OnClick = Help1Click
end
object About2: TMenuItem
Caption = '&About'
ShortCut = 0
OnClick = About2Click
end
end
end
object SecondTimer: TTimer
Enabled = False
Left = 328
end
object MinuteTimer: TTimer
Enabled = False
OnTimer = MinuteTimerTimer
Left = 304
end
object ResetRinger: TTimer
Enabled = False
Interval = 5000
OnTimer = ResetRingerTimer
Left = 304
Top = 24
end
object ResetToAnswer: TTimer
Enabled = False
OnTimer = ResetToAnswerTimer
Left = 328
Top = 24
end
object AutoOK: TTimer
Interval = 60000
OnTimer = AutoOKTimer
Left = 352
Top = 24
end
end