nueva propiedad para folders

[astursoft]

Antonio, Seria muy interesante el poder poner las pestañas de los folders en la parte de abajo ( lo he visto en varios programas para pocket) .
En las pantallas de 240*240 , ganariamos espacio para poder escribir datos y eso es importante .
y de paso otra cosa :
Esta previsto automatizar los dialogos para que cambien de tamaño al desplegar el teclado , o corre de nuestra cuenta ?
Saludso. y Gracias .

[Carles]

Hola Jose Luis,

Despues de mucho tiempo sin vacaciones, me he podido oxigenar un poco y vuelvo con ganas. (No quiero dar envidias a nadie, eh ! )

Te paso un ejemplo que hice un dia que te servira de base para gestionar el teclado. A partir de aqui, lo puedes sofisticar tanto como quieras. Para no poner todo el rollo que uso yo, este ejemplo creo q te servira:

Code: Select all  Expand view  RUN

/*
   Programa    := TestSip.prg
   Autor       := Carles Aubia
   Fecha       := 02.03.2006
   Descripcion := Ejemplo sencillo de gestion de eventos
*/

#include "FWCE.ch"

#define EVENT_SIP      224

STATIC oDlg

*--------------
FUNCTION Main()
*--------------

   DEFINE DIALOG oDlg TITLE "Test Sip()"

       @2, 2 SAY 'Hola maco...' OF oDlg

       oDlg:bSettingChange := {|uVal| PocketEvent( uVal ) }

   ACTIVATE DIALOG oDlg ON INIT Dimensiona()

RETU NIL

*----------------------------------
STATIC FUNCTION PocketEvent( uVal )
*----------------------------------

   DO CASE
      CASE uVal == EVENT_SIP ; Dimensiona()
   ENDCASE

RETU NIL

*---------------------------
STATIC FUNCTION Dimensiona()
*---------------------------

    IF SipInfo()
        MoveWindow( oDlg:hWnd, 28, 10, 220, 180 )
       ELSE
        MoveWindow( oDlg:hWnd, 28, 10, 220, 260 )
    ENDIF

    oDlg:Refresh()

RETU NIL


[astursoft]

Que tal Carles ? , yo he tomado unos dias tambien ,
Había visto este comportamiento ya en tu programa ( cuando lo estuve desmenuzando para ver todas las cosas buenas que llevaba ) , y fué cuando se me ocurrió la idea de copiarte , por eso la pregunta de si lo debemos implementar nosotros .
He mirado , y algunos lenguajes para pocket traen este Extra "De serie"
y pense ¿ Porque nosotros vamos a ser menos... ?
Antonio ? , esta previsto ?
De todas maneras muchas gracias por el ejemplo , lo miraré y lo implementaré en mis programas a ver que tal .
Saludso.y Gracias.

[Antonio Linares]

Carles,

Buen ejemplo, lo vamos a incluir en los ejemplos de FWPPC con tu permiso, gracias.

Jose Luis, nosotros no podemos automatizar ese comportamiento, porque puede haber usuarios que no quieran que sus diálogos se redimensionen sólos.

[astursoft]

De acuerdo .
De todas maneras se podria poner una propiedad lautoajust para poner si se desea o no

Carles , si el say esta fuera del area visible , realiza scroll ? , seria interesante ...

Antonio , respecto a la primera pregunta , (los folder con pestañas abajo), que nos puedes decir ?

[Antonio Linares]

Jose Luis,

Hay que buscar el estilo correspondiente e implementar un método que le asigne ese valor al estilo. Vamos a buscarlo.

[Carles]

Jose Luis,

Yo creo q tendriamos de hacer una reflexion sobre el tipo de aplicacion q hacemos. En principio, es de tipo gestion, y entraremos bastantes datos via teclado. Esto implica q nuestra pantalla la 'capamos' constantemente. A partir de aqui, q preferimos: Un sistema con scroll y buscar los datos para editar o mas bien un acceso rapido 'clicando' una solapa de un folder, un boton a otra pantalla, otra pagina.... Yo creo q este, segundo ejemplo es mas practico para el usuario.

Ahora este tipo de control de redimensionar, puede irnos bien por ejemplo en otros casos, por ejemplo un browse con un get de busqueda, en el q el browse se redimensiona cuando se activa el teclado, pero en el que el get siempre lo tenemos visible, no hace falta que lo busquemos.

[img][img]http://img159.imageshack.us/img159/778/dim1wl.jpg[/img]

No se, algo genérico, lo veo complicado. Ahora recuerdo q Antonio puso un dia un ejemplo de ventana con scroll. Se podria probar, pero yo prefiero mas la opcion de que los datos me vengan a mi y no que yo tenga de ir a los datos

[astursoft]

Totalmente de acuerdo, mejor los folders.

Respecto al ejemplo de scroll ,usa un say para simular el scroll , es una cosa momentanea , no definitiva , esta dentro de los pendientes de Antonio , dejemosle que nos sorprenda , pero sin prisas .
El ejemplo esta en una ventana , yo intente el ejemplo en un dialogo , y no funciono , la verdad que fue un intento rapido y no investige demasiado (tenia mas trabajo ) y de todas las maneras soy muy torpe...
saludos.