Commits

Anonymous committed 5079d48

Telcom CD Menu

  • Participants
  • Parent commits e4c1489

Comments (0)

Files changed (5)

File bin/tcmnu.exe

Binary file added.

File src/TCCD/MAINMENU.FRM

+VERSION 2.00
+Begin Form TCMainMenu 
+   BorderStyle     =   1  'Fixed Single
+   ClientHeight    =   3795
+   ClientLeft      =   2115
+   ClientTop       =   3045
+   ClientWidth     =   7365
+   Height          =   4215
+   Icon            =   MAINMENU.FRX:0000
+   Left            =   2055
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   ScaleHeight     =   189.75
+   ScaleMode       =   2  'Point
+   ScaleWidth      =   368.25
+   Top             =   2685
+   Width           =   7485
+   Begin CommandButton ExitBtn 
+      Caption         =   "Exit"
+      Height          =   975
+      Left            =   4560
+      TabIndex        =   5
+      Top             =   2400
+      Width           =   2535
+   End
+   Begin CommandButton RunBtn 
+      Caption         =   "Run"
+      Height          =   975
+      Left            =   240
+      TabIndex        =   4
+      Top             =   2400
+      Width           =   2535
+   End
+   Begin CommandButton InstallBtn 
+      Caption         =   "Install"
+      Height          =   975
+      Left            =   240
+      TabIndex        =   2
+      Top             =   840
+      Width           =   2535
+   End
+   Begin SSPanel Panel3D1 
+      Align           =   1  'Align Top
+      BackColor       =   &H00FF0000&
+      BevelInner      =   1  'Inset
+      BevelOuter      =   0  'None
+      FloodColor      =   &H000000FF&
+      ForeColor       =   &H0000000F&
+      Height          =   3800
+      Left            =   0
+      Outline         =   -1  'True
+      TabIndex        =   0
+      Top             =   0
+      Width           =   7365
+      Begin CommandButton InfoBtn 
+         Caption         =   "View license information"
+         Height          =   975
+         Left            =   4560
+         TabIndex        =   3
+         Top             =   840
+         Width           =   2535
+      End
+      Begin Label Label2 
+         Alignment       =   2  'Center
+         BackStyle       =   0  'Transparent
+         Caption         =   "Copyright �1999 Daybo Logic, all rights reserved."
+         ForeColor       =   &H0000FFFF&
+         Height          =   255
+         Left            =   120
+         TabIndex        =   6
+         Top             =   3480
+         Width           =   7095
+      End
+      Begin Label Label1 
+         Alignment       =   2  'Center
+         BackStyle       =   0  'Transparent
+         Caption         =   "This is a licensed copy of TelCom - DO NOT DISTRIBUTE AS AN EVALUATION EDITION.  Such an action would be violation of the copyright."
+         ForeColor       =   &H0000FFFF&
+         Height          =   735
+         Left            =   120
+         TabIndex        =   1
+         Top             =   120
+         Width           =   7095
+      End
+   End
+End
+
+Sub ExitBtn_Click ()
+End 'Terminate
+End Sub
+
+Sub Form_Load ()
+    'Self centring window
+    Left = (Screen.Width / 2) - (Width / 2)
+    Top = (Screen.Height / 2) - (Height / 2)
+End Sub
+
+Sub InfoBtn_Click ()
+    Dummy% = Shell("FViewer license.rtf", 2)
+End Sub
+
+Sub InstallBtn_Click ()
+    Shit% = Shell("Install\TCWinNT\Setup", 2)
+    End
+End Sub
+
+Sub RunBtn_Click ()
+    Bugger% = Shell("Telcom\WinNT\RunMe.BAT", 1)
+    End
+End Sub
+

File src/TCCD/MAINMENU.FRX

Binary file added.

File src/TCCD/TCMNU.MAK

+C:\PROGRA~1\VB3\PROJECTS\INCLUDE\DPNAVB0.RTL
+C:\WINNT\system\ANIBUTON.VBX
+C:\WINNT\system\CMDIALOG.VBX
+C:\WINNT\system\SPIN.VBX
+C:\WINNT\system\THREED.VBX
+C:\WINNT\system\GAUGE.VBX
+C:\WINNT\system\SWITCH.VBX
+C:\WINNT\system\BDT52CTL.VBX
+C:\WINNT\system\CIRC1.VBX
+C:\WINNT\system\CIRC2.VBX
+C:\WINNT\system\CIRC3.VBX
+C:\WINNT\system\CNTR.VBX
+C:\WINNT\system\CRYSTAL.VBX
+C:\WINNT\system\MCI.VBX
+C:\WINNT\system\MCIWNDX.VBX
+C:\WINNT\system\MHAL200.VBX
+C:\WINNT\system\MHCD200.VBX
+C:\WINNT\system\MHCL200.VBX
+C:\WINNT\system\MHDC200.VBX
+C:\WINNT\system\MHGA200.VBX
+C:\WINNT\system\MHMQ200.VBX
+C:\WINNT\system\MHSL200.VBX
+C:\WINNT\system\MHSN200.VBX
+C:\WINNT\system\MSCOMM.VBX
+C:\WINNT\system\MSGHNDLR.VBX
+C:\WINNT\system\MSMASKED.VBX
+C:\WINNT\system\MSOLE2.VBX
+C:\WINNT\system\MSOUTLIN.VBX
+C:\WINNT\system\PAL.VBX
+C:\WINNT\system\PICCLIP.VBX
+C:\WINNT\system\PICT.VBX
+C:\WINNT\system\PIX.VBX
+C:\WINNT\system\PREVIEW.VBX
+C:\WINNT\system\PUSH.VBX
+C:\WINNT\system\SPUSH.VBX
+C:\WINNT\system\VTSSONLY.VBX
+C:\WINNT\system\WKSGRPH.VBX
+C:\WINNT\system\WKSPAGES.VBX
+C:\WINNT\system\XLIST.VBX
+TCMNUMOD.BAS
+MAINMENU.FRM
+ProjWinSize=152,402,248,215
+ProjWinShow=2
+IconForm="TCMainMenu"
+Title="TelCom CD menu"
+ExeName="TCMNU.EXE"
+Path="E:\TELCOM~1"

File src/TCCD/TCmnumod.bas

+Option Explicit
+Option Base 0
+
+Sub main ()
+Const mainmnucap$ = "Welcome to the TelCom CD"
+If Switch2OldWin(mainmnucap) = True Then End 'Don't allow multiple execution
+
+Load TCMainMenu
+TCMainMenu.Caption = mainmnucap
+TCMainMenu.Show
+End Sub
+