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

Posts: 53

Joined: Fri Mar 23, 2007 04:10 AM

Bug in text control after TXBrowse() mouse wheel scrolling??
Posted: Tue Oct 14, 2008 03:41 PM

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

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Bug in text control after TXBrowse() mouse wheel scrolling??
Posted: Tue Oct 14, 2008 05:28 PM

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

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

hag

Posts: 598

Joined: Tue Apr 15, 2008 04:51 PM

Bug in text control after TXBrowse() mouse wheel scrolling??
Posted: Wed Oct 15, 2008 03:03 AM

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 Collapse

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

Thank you

Harvey

PatrickWeisser

Posts: 53

Joined: Fri Mar 23, 2007 04:10 AM

Bug in text control after TXBrowse() mouse wheel scrolling??
Posted: Wed Oct 15, 2008 04:16 AM

Hey thanks Harvey, that worked great!

-Patrick

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Bug in text control after TXBrowse() mouse wheel scrolling??
Posted: Wed Oct 15, 2008 08:36 AM

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

Code: Select all Collapse

      // 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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Bug in text control after TXBrowse() mouse wheel scrolling??
Posted: Wed Oct 15, 2008 03:38 PM

Antonio,

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

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

FiveTech Support Forums

Continue the discussion