no mouse wheeling with txborowse in fwh9.08

Posts: 312

Joined: Sat Oct 08, 2005 09:12 AM

no mouse wheeling with txborowse in fwh9.08
Posted: Tue Sep 22, 2009 03:51 PM

Dear all,

since i updated to fwh 9.08 the users of my programs are upsetly missing scrolling a txbrowse by mousewheel.
Therefore they have kinetic scrolling which they don't like at all.
Is there way to get back the 'old' browse behaviour?

It would be nice to have new features with an additional switch like
@ 2, 5 TXBROWSE ... KINETIC ...
and keep the normal handling as it's used to be before.

Regards,
Detlef

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Tue Sep 22, 2009 07:32 PM

Detlef,

viewtopic.php?f=6t=16671

Regards.

&

Detlef Hoefner

Posts: 312

Joined: Sat Oct 08, 2005 09:12 AM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Tue Sep 22, 2009 08:50 PM

Ariel,

thanks for your link.
Does this mean i have to rebuild the complete fivehc.lib after correcting the Clt2Scr.c?
This is something i don't know how to do.

Could you give me some more info please?

Thanks and regards,
Detlef

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Wed Sep 23, 2009 10:23 AM

Detleft,

Not, simply to add it at the end of your principal program. If you update your version of fwh deberas to see if already this incorporated and of being like that to extract it.

Regards

Detlef Hoefner

Posts: 312

Joined: Sat Oct 08, 2005 09:12 AM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Wed Sep 23, 2009 02:07 PM

Ariel,

many thanks for your support.
I got it working now.

But i still find it no good idea to switch off the TxBrowse mousewheel scrolling without announcement and have a 'kinetic' navigation suddenly .

Just my 2 cents,
Detlef

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Thu Sep 24, 2009 06:52 AM

Hello Detlef,
What exactly did you change to get the old behaviour.
Drag & drop for me is no longer working.
Best regards,
Otto

Detlef Hoefner

Posts: 312

Joined: Sat Oct 08, 2005 09:12 AM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Thu Sep 24, 2009 07:06 AM

Hallo Otto,

i added the following code at the end of my program:

Code (fw): Select all Collapse

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

HB_FUNC( SCREENTOCLIENT )  //  ( hWnd, aPoint ) --> aPoint
{
   HWND hWnd = ( HWND ) hb_parnl( 1 );
   POINT pt;

   pt.x = hb_parvnl( 2, 2 );
   pt.y = hb_parvnl( 2, 1 );

   ScreenToClient( hWnd, &pt );

   hb_reta( 2 );
   hb_storvnl( pt.x, -1, 2 );
   hb_storvnl( pt.y, -1, 1 );
   hb_storvnl( pt.x,  2, 2 );
   hb_storvnl( pt.y,  2, 1 );
}
#pragma ENDDUMP

It's ugly that i have to do it in every program

May be it helps to resolve your problem.

Best regards,
Detlef

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Thu Sep 24, 2009 08:41 AM

Detlef,

That change is a must cause recent harbour/xharbour changes.

But current FWH 9.09 includes all those changes, so there is no need to add such code to your app.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Thu Sep 24, 2009 10:15 AM

Hello Antonio,

I added the C-code. Now the mouse-wheel is working.
But drag & drop is still broken.

Best regards,
Otto

Application
===========
Path and name: C:\xWinhotel\xwinhotel.EXE (32 bits)
Size: 4,348,928 bytes
Time from start: 0 hours 0 mins 26 secs
Error occurred at: 24.09.2009, 12:00:31
Error description: Error BASE/1082 Argument error: -
Args:
[ 1] = U
[ 2] = N 23

Stack Calls
===========
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:LBUTTONUP(1260)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:HANDLEEVENT(1643)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(952)
Called from: C:\develop8\WH_Fwh\XWINHO~1\WINHOTEL.PRG => MAIN(1132)

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Thu Sep 24, 2009 03:13 PM

Antionio,

I agree with Detlef:

>It would be nice to have new features with an additional switch like
>@ 2, 5 TXBROWSE ... KINETIC ...
>and keep the normal handling as it's used to be before.

That kinetic mousewheeling should be an option and that xbrowse should default to the original mousewheel behavior. This prevents current code from being affected (unless you want it to).

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Thu Sep 24, 2009 08:50 PM

James,

Yes, we are going to turn the kinetic behavior into an optional behavior :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Thu Sep 24, 2009 09:32 PM

Antonio,

Great. Thanks.

I wonder if this would be a good use of classdata? Then you could just add one line to the start of your program and all xbrowses would get the kinetic behavior.

TXBrowse():lKinetic := .t.

This seems like the kind of property that you would want all instances of xbrowses in an app to have one way or the other. I can't imagine why you would want some one way and others different.

Anyone have comments on this?

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Fri Oct 02, 2009 10:25 AM

Optional kinetic:

viewtopic.php?f=3t=16905p=87669#p87669

&&

regards, saludos

Antonio Linares
www.fivetechsoft.com

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Re: no mouse wheeling with txborowse in fwh9.08
Posted: Fri Oct 02, 2009 01:38 PM

Antonio,

Very good, but I would still suggest that ::lKinetic default to .F. otherwise it breaks existing code. Programmers that want this behavior can still add it simply.

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

FiveTech Support Forums

Continue the discussion