FWH 9.08 implements Kinetic Scrolling in Classes TWBrowse and TXBrowse

What is it the "Kinetic Scrolling" ?
It is the modern and so popular way to manage lists implemented by the iPhone!

Your users are going to discover a new, very intuitive and revolutionary way to "move" the browses as "physical" objects:
Simply grab the browse and move it and/or throw it with a speed and acceleration! See the browses run and slow down progressively!

Kinetic Scrolling on browses requires a little training for your users, but once they get used to it, they will love it
Really nice and usefull and no changes required at all in your applications! Simply use FWH 9.08 and all your browses will have kinetic scrolling support!

Download a WBrowse working demo:

http://www.fivetechsoft.com/files/kineticw.zip

Next demo for XBrowse...

Application
===========
Path and name: C:\Users\Marc\AppData\Local\Temp\kineticw.exe (32 bits)
Size: 1,780,736 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 08/23/09, 17:57:31
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N -3

Stack Calls
===========
Called from: C:\FWTEAM\samples\kineticw.prg => (b)MAIN(32)
Called from: .\source\classes\WBROWSE.PRG => (b)TWBROWSE(147)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:DRAWLINE(0)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:GOUP(902)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:MOUSEMOVE(2080)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:HANDLEEVENT(1638)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(952)
Called from: C:\FWTEAM\samples\kineticw.prg => MAIN(38)[/list:u]

Regards,
Marc

Marc,

Yes, thanks, we are already cheking it

Kinetic scrolling for xbrowse demo, as promised

www.fivetechsoft.com/files/kineticx.zip

Hello Antonio,

Kinetic scrolling will become a nice feature.

I noticed that if xBrowse record selected line is one and you “kinetic scroll” down the first row changes to blue and the text is no longer visible.

Best regards,
Otto

It look really nice. Great work Antonio !!

However there are still some bugs into the previous released class (ttitle and rbbutton),
could be possible to solve those problems ASAP in order to use "at the better way" those classes ?

The bugs are:
- the rbbutton tooltips doesn't runs
- the color clause in titletext doesn't runs
- there is an alignment problem using rbbuttons on ttitle when the rbbutton prompt text is not present

This is an image that show these problems: www.softwarexp.co.uk/beta/ttitle.png
and this is its self contained sample that show the problems

include "fivewin.ch"

include "ttitle.ch"

include "ribbon.ch"

Function main()

local oWnd
local oTitle1, oTitle2, oTitle3, oTitle4, oTitle5
local oBrush1, oBrush2, oBrush3, oBrush4
LOCAL oFont1, oFont2, oFont3
local oBtn

DEFINE WINDOW oWnd TITLE "TTitle Class Test"

@ 015,150 TITLE oTitle1 size 330, 50 of oWnd SHADOW SHADOWSIZE 0 color clr_white
oTitle1:aGrdBack = { { 1, nRGB( 251, 230, 148 ), nRGB( 238, 149, 21 ) } }
oTitle1:lRound:=.f.
oTitle1:lBorder:=.t.
@ 18, 50 TITLETEXT OF oTitle1 TEXT "Some texts" color clr_white

@ 0, 210 RBBTN oBtn1 OF oTitle1 BITMAP "k:\pigc\image\24exit.bmp";
SIZE 100, 50 PROMPT "Text " TRANSPARENT MOSTLEFT TOOLTIP "Test"

@ 066,150 TITLE oTitle2 size 330, 50 of oWnd SHADOW SHADOWSIZE 0
oTitle2:aGrdBack = { { 1, nRGB( 203, 225, 252 ), nRGB( 125, 165, 224 ) } }
oTitle2:lRound:=.f.
oTitle2:lBorder:=.t.
oTitle2:Refresh()

@ 0, 210 RBBTN oBtn OF oTitle2 BITMAP "k:\pigc\image\24exit.bmp";
SIZE 100, 50 PROMPT "" TRANSPARENT MOSTLEFT TOOLTIP "Test";

activate window oWnd maximized

return nil

?
.

quote="Antonio Linares"]Kinetic scrolling for xbrowse demo, as promised

http://www.fivetechsoft.com/files/kineticx.zip[/quote]

Marco,

> the rbbutton tooltips doesn't runs

We have provided a fix here in the forums to solve it. Simply call Super:MouseMove( ... ) from final return in Method MouseMove() Class TRBtn.

We are working to fix the other two issues, thanks

Hi Antonio,
the trbbutton's tooltips runs well. Thanks.

About the TITLETEXT, the color problem still appairs.
Pls. take a look to this minimal self-contained sample that show the problem.
The TITLETEXT appairs in grey instead of white. See www.softwarexp.co.uk/beta/test.png

Any ideas ?

Thanks in advance.

include "fivewin.ch"

include "ttitle.ch"

include "colors.ch"

Function main()

local oWnd
local oTitle1,oFontTitles


DEFINE FONT oFontTitles  NAME "Verdana" SIZE 0, -16 BOLD

DEFINE WINDOW oWnd TITLE "TTitle Class Test"

@ 015,150 TITLE oTitle1 size 330, 50 of oWnd SHADOW SHADOWSIZE 0
oTitle1:aGrdBack = { { 1, nRGB( 251, 230, 148 ), nRGB( 238, 149, 21 ) } }
@  18,  50  TITLETEXT OF oTitle1 TEXT "Some texts" FONT oFontTitles COLOR CLR_WHITE

activate window oWnd maximized

oFontTitles:End()

return nil

Marco Turco wrote:
- the color clause in titletext doesn't runs

          nOldClr = SetTextColor( ::hDC, ::aText[ n, TI_TEXTCLR ] )
                
          TextOut( ::hDC,;
                     nRow-1, ;
                     nCol-1, ;
                     ::aText[ n, TI_TEXT ], ;
                     Len( ::aText[ n, TI_TEXT ] ) )

          SetTextColor( ::hDC, nOldClr )

Marco Turco wrote:
- there is an alignment problem using rbbuttons on ttitle when the rbbutton prompt text is not present

      if ! Empty( hBmp )
         if Empty( cCaption )
            nBmpTop = ::nHeight / 2 - nBmpHeight / 2
         endif
         if SetAlpha() .and. ::lAlpha
            ABPaint( ::hDC, nBmpLeft, nBmpTop, hBmp, ::nAlphaLevel() )
         else
            nOldClr = SetBkColor( ::hDC, nRGB( 255, 255, 255 ) )
            TransBmp( hBmp, nBmpWidth, nBmpHeight, nZeroZeroClr, ::hDC,;
                      If( ::lAdjust, 0, nBmpLeft ), ;
                      If( ::lAdjust, 0, nBmpTop ),;
                      If(::lAdjust, ::nWidth, nBmpWidth ) ,;
                      If( ::lAdjust, ::nHeight, nBmpHeight ) )
           SetBkColor( ::hDC, nOldClr )
         endif
      endif

Ok. Solved. Thank you very much Daniel.

Do you also know if is it possible to have a black border around the title ?
Something like this .. www.softwarexp.co.uk/beta/title_border.png

Hello Marco

add this clausule

@ x,y TITLE ... COLORBOX CLR_BLACK, CLR_BLACK

Hi,
I think there is a bug.

It runs but only with lRound:=.t.,
using lRound:=.f. the border is not complete.

This sample show the problem:

include "fivewin.ch"

include "ttitle.ch"

include "ribbon.ch"

include "COLORS.ch"

Function main()

local oWnd
local oTitle1, oTitle2, oTitle3, oTitle4, oTitle5
local oBrush1, oBrush2, oBrush3, oBrush4
LOCAL oFont1, oFont2, oFont3
local oBtn


DEFINE WINDOW oWnd TITLE "TTitle Class Test"

@ 015,150 TITLE oTitle1 size 330, 50 of oWnd SHADOWSIZE 0 COLORBOX CLR_BLACK,CLR_BLACK
oTitle1:aGrdBack = { { 1, nRGB( 251, 230, 148 ), nRGB( 238, 149, 21 ) } }
oTitle1:lROUND:=.F.
oTitle1:lBorder:=.t.

activate window oWnd maximized

oGenFont:End()

return nil