Replace the section prior to
Add Object combo1 with:
Public goToolbar
goToolbar = Createobject("Toolbar1")
goToolbar.Show()
DEFINE CLASS Toolbar1 AS toolbar
Caption = "Toolbar1"
Height = 30
Left = 0
Top = 0
Width = 158
Name = "Toolbar1"
PROCEDURE Init
this.dock(0)
this.visible=.t.
ENDPROCNotice that in this case the wheel no longer scrolls as expected.
>>Agree on all points. Are we the only two who see this? Indeed, why was a better wheel support not part of the vfp9 release!
>
>Well, I just tried this, and mouse wheell scrolling works fine for me. I will do a flash video and post the url.
>
>
>Public oForm
>oForm = Createobject("form1")
>oForm.Show()
>
>Define Class form1 As Form
>
> Top = 0
> Left = 0
> Height = 173
> Width = 375
> DoCreate = .T.
> Caption = "Form1"
> Name = "form1"
>
> Add Object combo1 As ComboBox With ;
> FontName = "Tahoma", ;
> FontSize = 9, ;
> Height = 24, ;
> Left = 24, ;
> Style = 0, ;
> TabIndex = 1, ;
> Top = 36, ;
> Width = 324, ;
> Name = "Combo1"
>
> Add Object combo2 As ComboBox With ;
> FontName = "Tahoma", ;
> FontSize = 9, ;
> Height = 24, ;
> Left = 24, ;
> Style = 2, ;
> TabIndex = 2, ;
> Top = 108, ;
> Width = 324, ;
> Name = "Combo2"
>
> Procedure combo1.Init
> This.AddItem([--- Select One ---])
> This.AddItem([Afghanistan])
> This.AddItem([Aland Islands])
> This.AddItem([Albania])
> This.AddItem([Algeria])
> This.AddItem([American Samoa])
> This.AddItem([Andorra])
> This.AddItem([Angola])
> This.AddItem([Anguilla])
> This.AddItem([Antarctica])
> This.AddItem([Antigua and Barbuda])
> This.AddItem([Argentina])
> This.AddItem([Armenia])
> This.AddItem([Aruba])
> This.AddItem([Australia])
> This.AddItem([Austria])
> This.AddItem([Azerbaijan])
> This.AddItem([Bahamas])
> This.AddItem([Bahrain])
> This.AddItem([Bangladesh])
> This.AddItem([Barbados])
> This.AddItem([Belarus])
> This.AddItem([Belgium])
> This.AddItem([Belize])
> This.AddItem([Benin])
> This.AddItem([Bermuda])
> This.AddItem([Bhutan])
> This.AddItem([Bolivia])
> This.AddItem([Bosnia and Herzegovina])
> This.AddItem([Botswana])
> This.AddItem([Bouvet Island])
> This.AddItem([Brazil])
> This.AddItem([British Indian Ocean Territory])
> This.AddItem([Brunei Darussalam])
> This.AddItem([Bulgaria])
> This.AddItem([Burkina Faso])
> This.AddItem([Burundi])
>
> This.ListIndex = 1
> Endproc
>
> Procedure combo2.Init
> This.AddItem([--- Select One ---])
> This.AddItem([Afghanistan])
> This.AddItem([Aland Islands])
> This.AddItem([Albania])
> This.AddItem([Algeria])
> This.AddItem([American Samoa])
> This.AddItem([Andorra])
> This.AddItem([Angola])
> This.AddItem([Anguilla])
> This.AddItem([Antarctica])
> This.AddItem([Antigua and Barbuda])
> This.AddItem([Argentina])
> This.AddItem([Armenia])
> This.AddItem([Aruba])
> This.AddItem([Australia])
> This.AddItem([Austria])
> This.AddItem([Azerbaijan])
> This.AddItem([Bahamas])
> This.AddItem([Bahrain])
> This.AddItem([Bangladesh])
> This.AddItem([Barbados])
> This.AddItem([Belarus])
> This.AddItem([Belgium])
> This.AddItem([Belize])
> This.AddItem([Benin])
> This.AddItem([Bermuda])
> This.AddItem([Bhutan])
> This.AddItem([Bolivia])
> This.AddItem([Bosnia and Herzegovina])
> This.AddItem([Botswana])
> This.AddItem([Bouvet Island])
> This.AddItem([Brazil])
> This.AddItem([British Indian Ocean Territory])
> This.AddItem([Brunei Darussalam])
> This.AddItem([Bulgaria])
> This.AddItem([Burkina Faso])
> This.AddItem([Burundi])
>
> This.ListIndex = 1
> Endproc
>
>Enddefine
>
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
