home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / LVB / T2W32523.ZIP / _MDIT2W.FRM < prev    next >
Text File  |  1998-04-07  |  11KB  |  356 lines
  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.MDIForm mdiT2W 
  4.    AutoShowChildren=   0   'False
  5.    BackColor       =   &H00808080&
  6.    Caption         =   "TIME TO WIN 32-Bit DEMO"
  7.    ClientHeight    =   7335
  8.    ClientLeft      =   705
  9.    ClientTop       =   1245
  10.    ClientWidth     =   13125
  11.    Icon            =   "_Mdit2w.frx":0000
  12.    Begin Threed.SSPanel SSPanel1 
  13.       Align           =   1  'Align Top
  14.       Height          =   465
  15.       Left            =   0
  16.       TabIndex        =   0
  17.       Top             =   0
  18.       Width           =   13125
  19.       _Version        =   65536
  20.       _ExtentX        =   23151
  21.       _ExtentY        =   820
  22.       _StockProps     =   15
  23.       BackColor       =   12632256
  24.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  25.          Name            =   "MS Sans Serif"
  26.          Size            =   8.25
  27.          Charset         =   0
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       Begin VB.Timer Timer1 
  34.          Enabled         =   0   'False
  35.          Left            =   11025
  36.          Top             =   30
  37.       End
  38.       Begin VB.PictureBox Picture1 
  39.          AutoSize        =   -1  'True
  40.          Height          =   300
  41.          Left            =   11550
  42.          Picture         =   "_Mdit2w.frx":030A
  43.          ScaleHeight     =   240
  44.          ScaleWidth      =   240
  45.          TabIndex        =   6
  46.          Top             =   75
  47.          Visible         =   0   'False
  48.          Width           =   300
  49.       End
  50.       Begin VB.ComboBox cmb_Group 
  51.          Height          =   315
  52.          Left            =   2250
  53.          TabIndex        =   2
  54.          Top             =   90
  55.          Width           =   4695
  56.       End
  57.       Begin VB.Label Label1 
  58.          Caption         =   "&Select a group of functions"
  59.          Height          =   255
  60.          Left            =   90
  61.          TabIndex        =   1
  62.          Tag             =   "this"
  63.          Top             =   120
  64.          Width           =   2085
  65.       End
  66.    End
  67.    Begin Threed.SSPanel SSPanel2 
  68.       Align           =   2  'Align Bottom
  69.       Height          =   420
  70.       Left            =   0
  71.       TabIndex        =   3
  72.       Top             =   6915
  73.       Width           =   13125
  74.       _Version        =   65536
  75.       _ExtentX        =   23151
  76.       _ExtentY        =   741
  77.       _StockProps     =   15
  78.       BackColor       =   12632256
  79.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  80.          Name            =   "MS Sans Serif"
  81.          Size            =   8.25
  82.          Charset         =   0
  83.          Weight          =   400
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       Begin Threed.SSPanel pnl_Timer 
  89.          Height          =   240
  90.          Left            =   2970
  91.          TabIndex        =   5
  92.          Top             =   90
  93.          Width           =   825
  94.          _Version        =   65536
  95.          _ExtentX        =   1455
  96.          _ExtentY        =   423
  97.          _StockProps     =   15
  98.          BackColor       =   12632256
  99.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  100.             Name            =   "MS Sans Serif"
  101.             Size            =   8.25
  102.             Charset         =   0
  103.             Weight          =   400
  104.             Underline       =   0   'False
  105.             Italic          =   0   'False
  106.             Strikethrough   =   0   'False
  107.          EndProperty
  108.       End
  109.       Begin Threed.SSPanel pnl_Version 
  110.          Height          =   240
  111.          Left            =   11340
  112.          TabIndex        =   8
  113.          Top             =   90
  114.          Width           =   510
  115.          _Version        =   65536
  116.          _ExtentX        =   900
  117.          _ExtentY        =   423
  118.          _StockProps     =   15
  119.          BackColor       =   12632256
  120.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  121.             Name            =   "MS Sans Serif"
  122.             Size            =   8.25
  123.             Charset         =   0
  124.             Weight          =   400
  125.             Underline       =   0   'False
  126.             Italic          =   0   'False
  127.             Strikethrough   =   0   'False
  128.          EndProperty
  129.       End
  130.       Begin VB.Label Label4 
  131.          AutoSize        =   -1  'True
  132.          Height          =   195
  133.          Left            =   4935
  134.          TabIndex        =   9
  135.          Top             =   105
  136.          Width           =   45
  137.       End
  138.       Begin VB.Label Label3 
  139.          Alignment       =   1  'Right Justify
  140.          Caption         =   "TIME2WIN version"
  141.          Height          =   225
  142.          Left            =   9765
  143.          TabIndex        =   7
  144.          Tag             =   "elapsed time for ~ iterations (in ms)"
  145.          Top             =   105
  146.          Width           =   1440
  147.       End
  148.       Begin VB.Label Label2 
  149.          Caption         =   "elapsed time for ? iterations (in ms)"
  150.          Height          =   225
  151.          Left            =   90
  152.          TabIndex        =   4
  153.          Tag             =   "elapsed time for ~ iterations (in ms)"
  154.          Top             =   105
  155.          Width           =   2805
  156.       End
  157.    End
  158.    Begin VB.Menu mnu_List 
  159.       Caption         =   "&Window List"
  160.       WindowList      =   -1  'True
  161.    End
  162.    Begin VB.Menu mnu_Exit 
  163.       Caption         =   "E&xit"
  164.    End
  165.    Begin VB.Menu mnu_NewF 
  166.       Caption         =   "20 new functions"
  167.       Begin VB.Menu mnu_New 
  168.          Caption         =   "File : FileSearchPatternFromLine"
  169.          Index           =   0
  170.       End
  171.       Begin VB.Menu mnu_New 
  172.          Caption         =   "File : FileScanHeader, FileScanHeaderForRecipients"
  173.          Index           =   1
  174.       End
  175.       Begin VB.Menu mnu_New 
  176.          Caption         =   "File : FilePartAppend"
  177.          Index           =   2
  178.       End
  179.       Begin VB.Menu mnu_New 
  180.          Caption         =   "File : FilePartCopy"
  181.          Index           =   3
  182.       End
  183.       Begin VB.Menu mnu_New 
  184.          Caption         =   "Registry : RegistryKeyInfo, GetAllSettings"
  185.          Index           =   4
  186.       End
  187.       Begin VB.Menu mnu_New 
  188.          Caption         =   "Math : Round, RoundNearest"
  189.          Index           =   5
  190.       End
  191.       Begin VB.Menu mnu_New 
  192.          Caption         =   "Windows : IsWin95OSR2"
  193.          Index           =   6
  194.       End
  195.       Begin VB.Menu mnu_New 
  196.          Caption         =   "Windows : IsKeyOn (4 functions)"
  197.          Index           =   7
  198.       End
  199.       Begin VB.Menu mnu_New 
  200.          Caption         =   "Windows : SetKeyState (4 functions)"
  201.          Index           =   8
  202.       End
  203.       Begin VB.Menu mnu_New 
  204.          Caption         =   "String : WrapLine"
  205.          Index           =   9
  206.       End
  207.       Begin VB.Menu mnu_New 
  208.          Caption         =   "Array : ArrayLookUp"
  209.          Index           =   10
  210.       End
  211.    End
  212. End
  213. Attribute VB_Name = "mdiT2W"
  214. Attribute VB_GlobalNameSpace = False
  215. Attribute VB_Creatable = False
  216. Attribute VB_PredeclaredId = True
  217. Attribute VB_Exposed = False
  218. Option Explicit
  219.  
  220. Dim IsLoaded         As Integer
  221.  
  222. Dim TimerStartOk     As Integer
  223. Dim TimerCloseOk     As Integer
  224.  
  225. Dim TimerHandle      As Integer
  226. Dim TimerValue       As Long
  227.  
  228. Private Sub cmb_Group_Click()
  229.  
  230.    If (IsLoaded = False) Then Exit Sub
  231.  
  232.    Dim Frm        As Form
  233.  
  234.    Select Case cmb_Group.ListIndex
  235.       Case 0:  Set Frm = frmArray
  236.       Case 1:  Set Frm = frmBitString
  237.       Case 2:  Set Frm = frmDayMonth
  238.       Case 3:  Set Frm = frmDAString
  239.       Case 4:  Set Frm = frmDALong
  240.       Case 5:  Set Frm = frmDAType
  241.       Case 6:  Set Frm = frmIeeenum
  242.       Case 7:  Set Frm = frmMem
  243.       Case 8:  Set Frm = frmFile
  244.       Case 9:  Set Frm = frmCompress
  245.       Case 10: Set Frm = frmCrc32
  246.       Case 11: Set Frm = frmEncrypt
  247.       Case 12: Set Frm = frmMatrix
  248.       Case 13: Set Frm = frmIsX
  249.       Case 14: Set Frm = frmSerialization
  250.       Case 15: Set Frm = frmString
  251.       Case 16: Set Frm = frmMisc
  252.       Case 17: Set Frm = frmObject
  253.       Case 18: Set Frm = frmLanguage
  254.       Case 19: Set Frm = frmCrypt
  255.       Case 20: Set Frm = frmRegistry
  256.       Case 21: Set Frm = frmMediaID
  257.       Case 22: Set Frm = frmDIBBitmap
  258.       Case 23: Set Frm = frmTile
  259.       Case 24: Set Frm = frmEnumPJ
  260.       Case 25: Set Frm = frmDateTime
  261.       Case 26: Set Frm = frmComboList
  262.       Case 27: Set Frm = frmWindows
  263.       Case 28: Set Frm = frmMailNews
  264.       Case 29: Set Frm = frmMath
  265.       Case 30: Set Frm = frmNetwork
  266.       Case 31: Set Frm = frmGradient
  267.    End Select
  268.    
  269.    Load Frm
  270.    
  271. End Sub
  272. Private Sub MDIForm_Load()
  273.  
  274.    Dim intResult     As Integer
  275.    Dim hWnd          As Long
  276.    
  277.    hWnd = cDisplaySplash(App.Path + "\time2win.dib", 7000, True)
  278.  
  279.    Me.WindowState = 2
  280.    
  281.    IsLoaded = False
  282.    
  283.    pnl_Version = Format(cGetVersion(), "#.00")
  284.    
  285.    Call cCenterWindow(Me.hWnd)
  286.    
  287.    Call sub_Check_Project
  288.  
  289.    Call sub_Initialization
  290.  
  291.    Call sub_Load_Combo(cmb_Group, T2WDirInst + "_group.t2w")
  292.    
  293.    If (cIsRegistered() = True) Then
  294.       Label4.Caption = "Thank you for your registration   "
  295.       Me.Caption = Me.Caption + " (registered)"
  296.    Else
  297.       Label4.Caption = "Register TIME TO WIN   "
  298.       Me.Caption = Me.Caption + " (unregistered)"
  299.    End If
  300.    
  301.    Timer1.interval = 124
  302.    Timer1.Enabled = True
  303.    
  304.    Me.Show
  305.    
  306.    IsLoaded = True
  307.    
  308. End Sub
  309.  
  310. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  311.  
  312.    Dim intResult     As Integer
  313.  
  314.    If (Len(T2WDirTest) > 0) Then
  315.       intResult = cChDir(T2WDirInst)
  316.       intResult = cKillDirs(T2WDirTest, True)
  317.    End If
  318.    
  319.    If (cIsRegistered() = True) Then
  320.       MsgBox "Thank you for your registration", , "T2WIN-32.DLL (registered)"
  321.    Else
  322.       MsgBox "Thank you for registering T2WIN-32.DLL", , "T2WIN-32.DLL (unregistered)"
  323.    End If
  324.    
  325.    intResult = cTaskBarDeleteIcon(mdiT2W.hWnd)
  326.          
  327. End Sub
  328.  
  329. Private Sub MDIForm_Resize()
  330.    
  331.    Dim intResult     As Integer
  332.    
  333.    If (Me.WindowState = 1) Then
  334.       intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption + " (minimized) ")
  335.    End If
  336.    
  337.    If (Me.WindowState = 2) Then
  338.       intResult = cTaskBarModifyIcon(mdiT2W.hWnd, mdiT2W.Icon, mdiT2W.Caption)
  339.    End If
  340.       
  341.    If (Me.WindowState = 0) Then Me.WindowState = 2
  342.    
  343. End Sub
  344.  
  345. Private Sub mnu_Exit_Click()
  346.  
  347.    Unload Me
  348.  
  349. End Sub
  350. Private Sub Timer1_Timer()
  351.  
  352.    Label4.Caption = cScrollL(Label4.Caption)
  353.    
  354. End Sub
  355.  
  356.