Current News Archived News Search News Discussion Forum Old Forum Install Programs More Downloads... Troubleshooting Source Code Format Specs. Misc. Information Non-SF Stuff Links Small banner for links to this site: |
diff --git a/EditTItem.frm b/EditTItem.frm
--- a/EditTItem.frm
+++ b/EditTItem.frm
-VERSION 4.00
-Begin VB.Form EditTItem
- BorderStyle = 3 'Fixed Dialog
- ClientHeight = 2535
- ClientLeft = 1890
- ClientTop = 2145
- ClientWidth = 5535
- Height = 2940
- Icon = "EditTItem.frx":0000
- Left = 1830
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 2535
- ScaleWidth = 5535
- ShowInTaskbar = 0 'False
- Top = 1800
- Width = 5655
- Begin VB.CommandButton cmdBrowse
- Caption = "&Browse..."
- Height = 285
- Left = 4560
- TabIndex = 2
- Top = 1680
- Width = 855
- End
- Begin VB.CommandButton cmdCancel
- Cancel = -1 'True
- Caption = "&Cancel"
- Height = 375
- Left = 3120
- TabIndex = 4
- Top = 2040
- Width = 1455
- End
- Begin VB.CommandButton cmdOK
- Caption = "O&K"
- Default = -1 'True
- Height = 375
- Left = 960
- TabIndex = 3
- Top = 2040
- Width = 1455
- End
- Begin VB.TextBox txtCommand
- Height = 285
- Left = 120
- TabIndex = 1
- Top = 1680
- Width = 4335
- End
- Begin VB.TextBox txtName
- Height = 285
- Left = 120
- TabIndex = 0
- Top = 480
- Width = 5295
- End
- Begin VB.Label Label1
- Caption = "Title: (Use a && before a letter to make it the key for the menu option. Use &&&& to display a &&.)"
- Height = 390
- Left = 120
- TabIndex = 5
- Top = 0
- Width = 5295
- WordWrap = -1 'True
- End
- Begin VB.Label Label2
- Caption = $"EditTItem.frx":000C
- Height = 870
- Left = 120
- TabIndex = 6
- Top = 840
- Width = 5295
- WordWrap = -1 'True
- End
-End
-Attribute VB_Name = "EditTItem"
-Attribute VB_Creatable = False
-Attribute VB_Exposed = False
-Option Explicit
-
-Dim ClickedOK As Boolean, Finished As Boolean
-Function EditItem(FormCaption As String, cName As String, cCommand As String) As String
-Left = ToolList.Left + 330
-If Left < 0 Then Left = 0
-If Left + Width > Screen.Width Then Left = Screen.Width - Width
-Top = ToolList.Top + 315
-If Top < 0 Then Top = 0
-If Top + Height > Screen.Height Then Top = Screen.Height - Height
-Caption = FormCaption
-txtName = cName
-txtCommand = cCommand
-Finished = False
-ClickedOK = False
-Show 1
-If ClickedOK = True Then
- EditItem = txtName + vbCrLf + txtCommand
-Else
- EditItem = cName + vbCrLf + cCommand
-End If
-Finished = True
-Unload Me
-End Function
-Private Sub cmdBrowse_Click()
-Dim OldFileName As String, OldPath As String
-CD.Flags = &H1000 Or &H4 Or &H2
-CD.Filter = "Programs (*.exe;*.com;*.bat)|*.exe;*.com;*.bat|All Files (*.*)|*.*"
-OldFileName = CD.FileName
-OldPath = CurDir
-If Mid(App.Path, 2, 1) = ":" Then
- ChDrive Left(App.Path, 1)
- ChDir Left(App.Path, 2) + "\"
-End If
-CD.FileName = ""
-CD.hwndOwner = hWnd
-If ShowOpen(CD) = False Then GoTo Cancel
-txtCommand = Chr(34) + CD.FileName + Chr(34)
-Cancel:
-CD.FileName = OldFileName
-If Mid(OldPath, 2, 1) = ":" Then ChDrive Left(OldPath, 1)
-ChDir OldPath
-End Sub
-Private Sub cmdCancel_Click()
-Hide
-End Sub
-Private Sub cmdOK_Click()
-ClickedOK = True
-Hide
-End Sub
-Private Sub Form_Unload(Cancel As Integer)
-If Finished = False Then
- Cancel = True
- Hide
-End If
-End Sub
+VERSION 4.00\r
+Begin VB.Form EditTItem \r
+ BorderStyle = 3 'Fixed Dialog\r
+ ClientHeight = 2535\r
+ ClientLeft = 1890\r
+ ClientTop = 2145\r
+ ClientWidth = 5535\r
+ Height = 2940\r
+ Icon = "EditTItem.frx":0000\r
+ Left = 1830\r
+ LinkTopic = "Form1"\r
+ MaxButton = 0 'False\r
+ MinButton = 0 'False\r
+ ScaleHeight = 2535\r
+ ScaleWidth = 5535\r
+ ShowInTaskbar = 0 'False\r
+ Top = 1800\r
+ Width = 5655\r
+ Begin VB.CommandButton cmdBrowse \r
+ Caption = "&Browse..."\r
+ Height = 285\r
+ Left = 4560\r
+ TabIndex = 2\r
+ Top = 1680\r
+ Width = 855\r
+ End\r
+ Begin VB.CommandButton cmdCancel \r
+ Cancel = -1 'True\r
+ Caption = "&Cancel"\r
+ Height = 375\r
+ Left = 3120\r
+ TabIndex = 4\r
+ Top = 2040\r
+ Width = 1455\r
+ End\r
+ Begin VB.CommandButton cmdOK \r
+ Caption = "O&K"\r
+ Default = -1 'True\r
+ Height = 375\r
+ Left = 960\r
+ TabIndex = 3\r
+ Top = 2040\r
+ Width = 1455\r
+ End\r
+ Begin VB.TextBox txtCommand \r
+ Height = 285\r
+ Left = 120\r
+ TabIndex = 1\r
+ Top = 1680\r
+ Width = 4335\r
+ End\r
+ Begin VB.TextBox txtName \r
+ Height = 285\r
+ Left = 120\r
+ TabIndex = 0\r
+ Top = 480\r
+ Width = 5295\r
+ End\r
+ Begin VB.Label Label1 \r
+ Caption = "Title: (Use a && before a letter to make it the key for the menu option. Use &&&& to display a &&.)"\r
+ Height = 390\r
+ Left = 120\r
+ TabIndex = 5\r
+ Top = 0\r
+ Width = 5295\r
+ WordWrap = -1 'True\r
+ End\r
+ Begin VB.Label Label2 \r
+ Caption = $"EditTItem.frx":000C\r
+ Height = 870\r
+ Left = 120\r
+ TabIndex = 6\r
+ Top = 840\r
+ Width = 5295\r
+ WordWrap = -1 'True\r
+ End\r
+End\r
+Attribute VB_Name = "EditTItem"\r
+Attribute VB_Creatable = False\r
+Attribute VB_Exposed = False\r
+Option Explicit\r
+\r
+Dim ClickedOK As Boolean, Finished As Boolean\r
+Function EditItem(FormCaption As String, cName As String, cCommand As String) As String\r
+Left = ToolList.Left + 330\r
+If Left < 0 Then Left = 0\r
+If Left + Width > Screen.Width Then Left = Screen.Width - Width\r
+Top = ToolList.Top + 315\r
+If Top < 0 Then Top = 0\r
+If Top + Height > Screen.Height Then Top = Screen.Height - Height\r
+Caption = FormCaption\r
+txtName = cName\r
+txtCommand = cCommand\r
+Finished = False\r
+ClickedOK = False\r
+Show 1\r
+If ClickedOK = True Then\r
+ EditItem = txtName + vbCrLf + txtCommand\r
+Else\r
+ EditItem = cName + vbCrLf + cCommand\r
+End If\r
+Finished = True\r
+Unload Me\r
+End Function\r
+Private Sub cmdBrowse_Click()\r
+Dim OldFileName As String, OldPath As String\r
+CD.Flags = &H1000 Or &H4 Or &H2\r
+CD.Filter = "Programs (*.exe;*.com;*.bat)|*.exe;*.com;*.bat|All Files (*.*)|*.*"\r
+OldFileName = CD.FileName\r
+OldPath = CurDir\r
+If Mid(App.Path, 2, 1) = ":" Then\r
+ ChDrive Left(App.Path, 1)\r
+ ChDir Left(App.Path, 2) + "\"\r
+End If\r
+CD.FileName = ""\r
+CD.hwndOwner = hWnd\r
+If ShowOpen(CD) = False Then GoTo Cancel\r
+txtCommand = Chr(34) + CD.FileName + Chr(34)\r
+Cancel:\r
+CD.FileName = OldFileName\r
+If Mid(OldPath, 2, 1) = ":" Then ChDrive Left(OldPath, 1)\r
+ChDir OldPath\r
+End Sub\r
+Private Sub cmdCancel_Click()\r
+Hide\r
+End Sub\r
+Private Sub cmdOK_Click()\r
+ClickedOK = True\r
+Hide\r
+End Sub\r
+Private Sub Form_Unload(Cancel As Integer)\r
+If Finished = False Then\r
+ Cancel = True\r
+ Hide\r
+End If\r
+End Sub\r
|