Bug in text control after TXBrowse() mouse wheel scrolling??

[PatrickWeisser]

I recently noticed in my application that if I scroll to the bottom of a TXBrowse() display with the mouse wheel, then edit one of the text controls in ANY form, the SPACE bar results in a "2" being typed.

The mallorca.prg sample program shows exactly the same problem. If you launch it, spin the mouse wheel to move the browse cursor to the last row, double click on a data row of the Description column, and press the SPACE bar, you should see "2's" typed.

Note that it is only the mouse wheel which causes this. Getting to the last TXBrowse() row using the down arrow does not cause the problem.

I have the latest FiveWin and Harbour builds.

Can anyone else reproduce this or is there a problem with my environment?

Thanks!

[James Bott]

Patrick,

I remember another message thread where 2's were mysteriously appearing, but I think it was under different circumstances. Try searching the forum (this section).

Regards,
James

[hag]

Yes I had the same problem. Difference it was a 3. The number of spaces the scroll skips is entered in the get. Got redi of it with this function

Code: Select all  Expand view

function WheelScroll()

   return nil //ScrLines

The code will set the scroll to one line at a time. It is a bug and needs to be fixed.

Harvey

[PatrickWeisser]

Hey thanks Harvey, that worked great!

-Patrick

[Antonio Linares]

Somehow this code in source\function\valblank.prg is related with the bug:

Code: Select all  Expand view

      // oReg:= TReg32():New( HKEY_CURRENT_USER, "Control Panel\Desktop" )
      // nScrLines := oReg:Get( "WheelScrollLines" )
      // oReg:Close()


Until we discover what exactly happens with it, we have to comment them.

[James Bott]

Antonio,

I am guessing the value of nScrLines is somehow ending up in the GET.

James