Page 1 of 1
Smartphone, scroll en dialogo
Posted: Tue Aug 05, 2008 2:46 pm
by Salvador
Antonio.
En un dialogo con más controles que los que son visibles en pantalla, el smartphone gestiona el scroll automaticamente si estos controles son SAY o BUTTON, esta característica deja de funcionar cuando en el dialogo hay algun GET.
Alguna sugerencia?.
Gracias.
Posted: Mon Aug 25, 2008 3:15 pm
by Antonio Linares
Salvador,
Revisa samples\TestPane.prg, gracias
Posted: Tue Aug 26, 2008 10:49 am
by Salvador
Antonio.
El ejemplo que mencionas no funciona correctamente en smartphone.
El smartphone gestiona automaticamente el scroll en los dialogos si su estilo es WS_VSCROLL, segun muestra el este código:
Code: Select all | Expand
#include "FWCE.ch"
#include "winapi.ch"
//----------------------------------------------------------------------------//
function Main()
local oWnd
DEFINE WINDOW oWnd TITLE "Scroll"
ACTIVATE WINDOW oWnd;
ON INIT InitDlg(oWnd );
return nil
FUNCTION InitDlg(oWnd )
local oDlg, cName := Space( 10 ), cAddress := Space( 10 ), cAddress2 := Space(10)
local oBtn, oRadio
DEFINE DIALOG oDlg TITLE "DIALOG SCROLL" OF oWnd;
SIZE 165, 150;
STYLE nOr(WS_POPUP, WS_VISIBLE, WS_VSCROLL, WS_CAPTION )
@ 1,0.5 SAY "Name:" OF oDlg SIZE 25, 15
//@ 1.5, 4 GET cName OF oDlg SIZE 50, 8
@ 3, 0.5 SAY "Address:" OF oDlg SIZE 25, 15
//@ 3.5, 4 GET cAddress OF oDlg SIZE 50, 8
@ 6, 0.5 SAY "Address2:" OF oDlg SIZE 27, 15
//@ 7, 4 GET cAddress2 OF oDlg SIZE 50, 8
@ 7, 1 SAY " Texto" OF oDlg SIZE 50, 8
@ 5, 5 RADIO oRadio ITEMS "1", "2" SIZE 12,12 OF oDlg
@ 9, 5 BUTTON oBtn SIZE 30, 15 OF oDlg
ACTIVATE DIALOG oDlg
RETURN nil
Pero si descomentas las líneas de los gets y recompilas , comprobarás que el scroll deja de funcionar entre get y get cuando alguno de ellos está oculto.
En estos gets, tampoco se pueden borrar los caracteres tecleados.