EditTItem.frm

   1 VERSION 4.00\r
   2 Begin VB.Form EditTItem \r
   3    BorderStyle     =   3  'Fixed Dialog\r
   4    ClientHeight    =   2535\r
   5    ClientLeft      =   1890\r
   6    ClientTop       =   2145\r
   7    ClientWidth     =   5535\r
   8    Height          =   2940\r
   9    Icon            =   "EditTItem.frx":0000\r
  10    Left            =   1830\r
  11    LinkTopic       =   "Form1"\r
  12    MaxButton       =   0   'False\r
  13    MinButton       =   0   'False\r
  14    ScaleHeight     =   2535\r
  15    ScaleWidth      =   5535\r
  16    ShowInTaskbar   =   0   'False\r
  17    Top             =   1800\r
  18    Width           =   5655\r
  19    Begin VB.CommandButton cmdBrowse \r
  20       Caption         =   "&Browse..."\r
  21       Height          =   285\r
  22       Left            =   4560\r
  23       TabIndex        =   2\r
  24       Top             =   1680\r
  25       Width           =   855\r
  26    End\r
  27    Begin VB.CommandButton cmdCancel \r
  28       Cancel          =   -1  'True\r
  29       Caption         =   "&Cancel"\r
  30       Height          =   375\r
  31       Left            =   3120\r
  32       TabIndex        =   4\r
  33       Top             =   2040\r
  34       Width           =   1455\r
  35    End\r
  36    Begin VB.CommandButton cmdOK \r
  37       Caption         =   "O&K"\r
  38       Default         =   -1  'True\r
  39       Height          =   375\r
  40       Left            =   960\r
  41       TabIndex        =   3\r
  42       Top             =   2040\r
  43       Width           =   1455\r
  44    End\r
  45    Begin VB.TextBox txtCommand \r
  46       Height          =   285\r
  47       Left            =   120\r
  48       TabIndex        =   1\r
  49       Top             =   1680\r
  50       Width           =   4335\r
  51    End\r
  52    Begin VB.TextBox txtName \r
  53       Height          =   285\r
  54       Left            =   120\r
  55       TabIndex        =   0\r
  56       Top             =   480\r
  57       Width           =   5295\r
  58    End\r
  59    Begin VB.Label Label1 \r
  60       Caption         =   "Title:  (Use a && before a letter to make it the key for the menu option.  Use &&&& to display a &&.)"\r
  61       Height          =   390\r
  62       Left            =   120\r
  63       TabIndex        =   5\r
  64       Top             =   0\r
  65       Width           =   5295\r
  66       WordWrap        =   -1  'True\r
  67    End\r
  68    Begin VB.Label Label2 \r
  69       Caption         =   $"EditTItem.frx":000C\r
  70       Height          =   870\r
  71       Left            =   120\r
  72       TabIndex        =   6\r
  73       Top             =   840\r
  74       Width           =   5295\r
  75       WordWrap        =   -1  'True\r
  76    End\r
  77 End\r
  78 Attribute VB_Name = "EditTItem"\r
  79 Attribute VB_Creatable = False\r
  80 Attribute VB_Exposed = False\r
  81 Option Explicit\r
  82 \r
  83 Dim ClickedOK As Boolean, Finished As Boolean\r
  84 Function EditItem(FormCaption As String, cName As String, cCommand As String) As String\r
  85 Left = ToolList.Left + 330\r
  86 If Left < 0 Then Left = 0\r
  87 If Left + Width > Screen.Width Then Left = Screen.Width - Width\r
  88 Top = ToolList.Top + 315\r
  89 If Top < 0 Then Top = 0\r
  90 If Top + Height > Screen.Height Then Top = Screen.Height - Height\r
  91 Caption = FormCaption\r
  92 txtName = cName\r
  93 txtCommand = cCommand\r
  94 Finished = False\r
  95 ClickedOK = False\r
  96 Show 1\r
  97 If ClickedOK = True Then\r
  98     EditItem = txtName + vbCrLf + txtCommand\r
  99 Else\r
 100     EditItem = cName + vbCrLf + cCommand\r
 101 End If\r
 102 Finished = True\r
 103 Unload Me\r
 104 End Function\r
 105 Private Sub cmdBrowse_Click()\r
 106 Dim OldFileName As String, OldPath As String\r
 107 CD.Flags = &H1000 Or &H4 Or &H2\r
 108 CD.Filter = "Programs (*.exe;*.com;*.bat)|*.exe;*.com;*.bat|All Files (*.*)|*.*"\r
 109 OldFileName = CD.FileName\r
 110 OldPath = CurDir\r
 111 If Mid(App.Path, 2, 1) = ":" Then\r
 112     ChDrive Left(App.Path, 1)\r
 113     ChDir Left(App.Path, 2) + "\"\r
 114 End If\r
 115 CD.FileName = ""\r
 116 CD.hwndOwner = hWnd\r
 117 If ShowOpen(CD) = False Then GoTo Cancel\r
 118 txtCommand = Chr(34) + CD.FileName + Chr(34)\r
 119 Cancel:\r
 120 CD.FileName = OldFileName\r
 121 If Mid(OldPath, 2, 1) = ":" Then ChDrive Left(OldPath, 1)\r
 122 ChDir OldPath\r
 123 End Sub\r
 124 Private Sub cmdCancel_Click()\r
 125 Hide\r
 126 End Sub\r
 127 Private Sub cmdOK_Click()\r
 128 ClickedOK = True\r
 129 Hide\r
 130 End Sub\r
 131 Private Sub Form_Unload(Cancel As Integer)\r
 132 If Finished = False Then\r
 133     Cancel = True\r
 134     Hide\r
 135 End If\r
 136 End Sub\r