Commit | Line | Data |
b31da37a |
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 |