by ZvezdanD » Fri Jan 16, 2009 2:45 am
Here is a sample script which works correctly only with 3.0.6.1190 and older. Put it in the Scripts/Auto, restart MM, choose Edit / Zvezdan's Test 5 and in a new dialog:
1. type some text into dropdown list;
2. scroll down ActiveX control which is below of the mentioned dropdown list or click anywhere on it;
3. try to type something into the mentioned dropdown list again -> you cannot do this with 3.1.x.
Now, re-open dialog and try this:
4. same as 1.
5. same as 2.
6. click on the "Are you trying ..." check box;
7. try to type something into the mentioned dropdown list again -> now, you can do this.
Code: Select all
Sub OnStartUp()
Dim mnuTest
Set mnuTest = SDB.UI.AddMenuItem(SDB.UI.Menu_Edit, 0, 0)
mnuTest.Caption = "Zvezdan's Test 5"
mnuTest.OnClickFunc = "TestForm"
mnuTest.UseScript = Script.ScriptPath
End Sub
Sub TestForm(Item)
Dim Form, oCtrl, sTmp
Set Form = SDB.UI.NewForm
Form.Common.SetRect 100, 100, 360, 330
Form.BorderStyle = 3
Form.FormPosition = 4
Form.Caption = "Zvezdan's Test 5"
Set oCtrl = SDB.UI.NewDropDown(Form)
oCtrl.Common.SetRect 20, 20, 300, 21
Set oCtrl = SDB.UI.NewActiveX(Form, "Shell.Explorer")
oCtrl.Common.SetRect 20, 60, 300, 150
sTmp = "<html><head><body>For this test cycle, we're opening up our bug tracking system (read-only to begin with) to give better visibility on issue statuses and plans. A full list of changes in 3.1 appears on our changelog . We're also going to post 'internal' builds on a regular basis so that there aren't long gaps between formal Alpha & Beta builds. 'Internal' builds will include the most recent changes, but will not necessarily have been tested, giving the more adventurous among you a chance to try out the same software that the developers are using.</body></html>"
oCtrl.SetHTMLDocument sTmp
Set oCtrl = SDB.UI.NewCheckBox(Form)
oCtrl.Caption = "Are you trying to encourage us from using ActiveX?"
oCtrl.Common.SetRect 20, 230, 300, 17
Set oCtrl = SDB.UI.NewButton(Form)
oCtrl.Caption = "&Close"
oCtrl.Common.SetRect 150, 260, 73, 25
oCtrl.UseScript = Script.ScriptPath
oCtrl.Cancel = True
oCtrl.modalResult = 2
Form.showModal
End Sub
mod edit: shortened title to fit bug info and add mantis link
1196-1213 Are you trying to encourage us from using ActiveX?
http://www.ventismedia.com/mantis/view.php?id=5212
Here is a sample script which works correctly only with 3.0.6.1190 and older. Put it in the Scripts/Auto, restart MM, choose Edit / Zvezdan's Test 5 and in a new dialog:
1. type some text into dropdown list;
2. scroll down ActiveX control which is below of the mentioned dropdown list or click anywhere on it;
3. try to type something into the mentioned dropdown list again -> you cannot do this with 3.1.x.
Now, re-open dialog and try this:
4. same as 1.
5. same as 2.
6. click on the "Are you trying ..." check box;
7. try to type something into the mentioned dropdown list again -> now, you can do this.
[code]Sub OnStartUp()
Dim mnuTest
Set mnuTest = SDB.UI.AddMenuItem(SDB.UI.Menu_Edit, 0, 0)
mnuTest.Caption = "Zvezdan's Test 5"
mnuTest.OnClickFunc = "TestForm"
mnuTest.UseScript = Script.ScriptPath
End Sub
Sub TestForm(Item)
Dim Form, oCtrl, sTmp
Set Form = SDB.UI.NewForm
Form.Common.SetRect 100, 100, 360, 330
Form.BorderStyle = 3
Form.FormPosition = 4
Form.Caption = "Zvezdan's Test 5"
Set oCtrl = SDB.UI.NewDropDown(Form)
oCtrl.Common.SetRect 20, 20, 300, 21
Set oCtrl = SDB.UI.NewActiveX(Form, "Shell.Explorer")
oCtrl.Common.SetRect 20, 60, 300, 150
sTmp = "<html><head><body>For this test cycle, we're opening up our bug tracking system (read-only to begin with) to give better visibility on issue statuses and plans. A full list of changes in 3.1 appears on our changelog . We're also going to post 'internal' builds on a regular basis so that there aren't long gaps between formal Alpha & Beta builds. 'Internal' builds will include the most recent changes, but will not necessarily have been tested, giving the more adventurous among you a chance to try out the same software that the developers are using.</body></html>"
oCtrl.SetHTMLDocument sTmp
Set oCtrl = SDB.UI.NewCheckBox(Form)
oCtrl.Caption = "Are you trying to encourage us from using ActiveX?"
oCtrl.Common.SetRect 20, 230, 300, 17
Set oCtrl = SDB.UI.NewButton(Form)
oCtrl.Caption = "&Close"
oCtrl.Common.SetRect 150, 260, 73, 25
oCtrl.UseScript = Script.ScriptPath
oCtrl.Cancel = True
oCtrl.modalResult = 2
Form.showModal
End Sub
[/code]
mod edit: shortened title to fit bug info and add mantis link
1196-1213 Are you trying to encourage us from using ActiveX?
http://www.ventismedia.com/mantis/view.php?id=5212