FWH 9.08 implementa "Kinetic Scrolling" en las Classes TWBrowse y TXBrowse

Que es el the "Kinetic Scrolling" ?
Es la forma moderna y que se ha hecho tan popular de mover las listas en el iPhone!

Tus usuarios van a descubrir una nueva, muy intuitiva y revolucionaria forma de "mover" los browses como objetos "físicos": Simplemente agarra el browse y muévelo y/ó arrójalo con una velocidad y aceleración! Verás los browses correr y detenerse progresivamente!

Kinetic Scrolling en los browses requiere un pequeño entrenamiento por parte de tus usuarios, pero una vez se acostumbren, les encantará! Verdaderamente bonito y práctico, y además no tienes que cambiar nada en tus aplicaciones! Simplemente usa FWH 9.08 y todos tus browses tendrán soporte de kinetic scrolling!

Descarga una demo usando el WBrowse:

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

A continuación vamos a publicar la demo para el XBrowse...

Felicitaciones, Antonio! FWH sigue adelante!
He probado el ejemplo, y con el ánimo de ayudar en su depuración (no de crítica), he observado el siguiente comportamiento:

1- El Scroll horizontal funciona bien si no sueltas el ratón. Es decir, si llevas hacia la izquierda hasta la última columna, sueltas el ratón, y deseas de nuevo "scrolear" hacia la derecha, no funciona.

2- Si elijes cualquier header de columna e intentas "scrolear" hacia la derecha, los headers desaparecen y son reemplazados por el browser. Los headers reaparecen si das click sobre el browse.

3- De repente salió el siguiente error:
Application
===========
Path and name: C:\DOWNLOADS\kineticw\kineticw.exe (32 bits)
Size: 1,780,736 bytes
Time from start: 0 hours 0 mins 50 secs
Error occurred at: 08/23/09, 07:20:13
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 0

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)

System

CPU type: Intel(R) Core(TM)2 Duo CPU E4600 @ 2.40GHz 2400 Mhz
Hardware memory: 2040 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: Harbour 2.0.0beta2 (Rev. 12194)
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 40
1 TF_FloatingLangBar_WndTitle
2 CiceroUIWndFrame
3 Menú Inicio
4 SysFader
5 S/PDIF IN/OUT Settings
6 Set Device Type
7 Mixer ToolBox
8 Configuración de conector
9 CL RC Engine3 Dummy Winidow
10 KINETIC SCROLL TEST FOR WBROWSE IN FWH 9.08
11 kineticw
12 Acrobat IEHelper
13 igfxtrayWindow
14 MCI command handling window
15 IMMIF UI
16 HP Deskjet D1400 series (Esta es) - Estado
17 DeviceIO Notificaton Window
18 Firebird Server
19 ElbyTrayWindow
20 Firebird Guardian
21 Connections Tray
22 Medidor de energía
23 MS_WebcheckMonitor
24 DTS Connect
25 Dolby Home Threater
26 Advance Setting
27 TOOLBOX
28 Load EQ Preset
29 DeleteEQ
30 Save EQ
31 Realtek HD Audio Manager
32 BackMain_Form
33 Administrador de sonido Realtek HD
34 HkWndName
35 LightScribe Control Panel
36 LightScribeControlPanel
37 d10b957f-f01f-4ba2-9987-83b994ebf9a5_QtSingleApplicationWindow
38 PersistWndName
39 Avira AntiVir Personal - Free Antivirus - SysTray
40 Program Manager

Variables in use

Procedure Type Value
==========================
(b)MAIN
Param 1: O Class: ERROR
(b)TWBROWSE
Param 1: O Class: TWBROWSE
Local 1: N 0
Local 2: U
Local 3: N 0
Local 4: S
TWBROWSE:DRAWLINE
Param 1: O Class: TWBROWSE
Local 1: U
Local 2: S
Local 3: U
Local 4: N 917952
Local 5: U
Local 6: N 1
TWBROWSE:GOUP
TWBROWSE:MOUSEMOVE
TWINDOW:HANDLEEVENT
Param 1: N 217
Param 2: N 101
Param 3: N 1
Local 1: N 0
Local 2: N -2
Local 3: N 1
Local 4: N 13
Local 5: N 15
TCONTROL:HANDLEEVENT
Param 1: N 512
Param 2: N 1
Param 3: N 14221413
TWBROWSE:HANDLEEVENT
Param 1: N 512
Param 2: N 1
Param 3: N 14221413
Local 1: U
_FWH
Param 1: N 512
Param 2: N 1
Param 3: N 14221413
WINRUN
Param 1: N 14221413
Param 2: N 512
Param 3: N 1
Param 4: N 14221413
Param 5: N 2
Local 1: O Class: TWBROWSE
TWINDOW:ACTIVATE
Param 1: N 721394
MAIN
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: U
Param 18: U
Param 19: U
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U

Linked RDDs

DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use

Classes in use:

 1 ERROR
 2 HBCLASS
 3 HBOBJECT
 4 TWINDOW
 5 TBRUSH
 6 TFONT
 7 TCONTROL
 8 TWBROWSE
 9 TSCROLLBAR
10 TREG32

Memory Analysis

  265 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes

Saludos, y felicitaciones nuevamente.

Francisco,

Gracias, vamos a revisarlo de inmediato

Antonio:
Continuando con mis pruebas, referente a:
1- El Scroll horizontal funciona bien si no sueltas el ratón. Es decir, si llevas hacia la izquierda hasta la última columna, sueltas el ratón, y deseas de nuevo "scrolear" hacia la derecha, no funciona

Una vez hecho scroll horizontal hacia la izquierda de manera que solo se vea la ultima columna, si colocas el puntero exactamente en la parte más a la izquierda de ésta última columna (1er pixel)... trabaja bien.

Demo del kinetic scroll en el xbrowse, como hemos prometido

www.fivetechsoft.com/files/kineticx.zip

Hola a todos

Aunque años más tarde porque estoy migrando ahora mis herramientas, agradezco y felicito estas funcionalidades de mover el contenido de los navegadores como objetos físicos y el desplazamiento inercial... MUY BUENOS.