1.66

[WinMPQ.git] / EditTItem.frm

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