una muy simple demostración del poder de fivetouch y de QT .
Code: Select all | Expand
#include "FiveTouch.ch"#define renglon chr(13) + chr(10)function Main() local oDlg //:= QDialog() Local oText local Elegido:={} Local Capitulo := "Seleccione un libro" LOCAL Buscar:= 'Buscar' Local Salir := "Salir" Local cLibro local cFileLocation, cFile cFileLocation := DownloadLocation()+"/" cFile := "Bibliaforo.dbg" if file( cFileLocation+cFile ) MemoWrit( cFile, MemoRead( cFileLocation+cFile ) ) endif USE Biblia.dbg ALIAS Bibli dbgotop()Elegido = {" ","Mateeo","Marcos","Lucas","Juan","Hechos"} DEFINE DIALOG oDlg size 400,420* oDlg:SetStyleSheet( "background-color: rgba( 255, 255, 255, 255 );border: 0px solid white;" ) cTitulo := Bibli->Titulo cVerso := Bibli->verso cContenido := Bibli->contenido @ 35, 100 Say osay PROMPT Capitulo OF oDlg IF EMPTY(cTitulo) .OR. ; ASCAN(Elegido,cTitulo) == 1 cTitulo:= Elegido[1] ENDIF cTitulo:= SPACE(10) @ 60, 100 COMBOBOX oCbx VAR cTitulo OF oDlg ; SIZE 180, 40; ITEMS Elegido @ 280, 170 BUTTON oBtn1 PROMPT Buscar OF oDlg ; SIZE 160, 40; ACTION Buscar(cTitulo) @ 280,10 BUTTON oBtn2 PROMPT Salir OF oDlg ; SIZE 160, 40; ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED return nil***************************************************function Buscar(cTitulo )Local cTotal:=""local oDlg1 ,oBtn Local Salir:="Salir" if empty(cTitulo) MSGINFO('Debe seleccionar un libro','Informaci?n') RETURN ENDIF define dialog oDlg1 SIZE 400, 480* oDlg1:SetStyleSheet( "background-color: rgba( 250, 250, 250, 250 ) " ) set filter to Titulo = cTitulo dbgotop() while .not.eof()cTotal:= alltrim(cTotal) +""+ alltrim(Bibli->verso) +renglon+ alltrim(Bibli->contenido)+renglonskipend SET( _SET_CODEPAGE, "ESWIN" ) oText = QTextEdit(oDlg1) oText:SetText( cTotal) oText:Resize( 420, 435 ) oText:setFont( QFont( "Comic san", 18 ) ) @ 410, 150 BUTTON oBtn PROMPT Salir OF oDlg1 ; SIZE 160, 40; ACTION oDlg1:End() Activate dialog oDlg1 centered set filter to USE Biblia.dbg ALIAS Bibli dbgotop() return nilfunction DownloadLocation()return QStandardPaths():StandardLocations( 14 ):Value( 0 )
En esta direccion se puede bajar la DBF que se uso para el desarrollo del ejemplo
https://www.dropbox.com/s/uaot4fz79ew2q ... o.prg?dl=0
En una oprtundad durante el dia colocare una imagen del telefono como luce el sencillo ejemplo
https://www.dropbox.com/s/hrkte9xcgs5im ... 0.jpg?dl=0
Enlace para ver la imagen de la aplicasion en el telefono
Cordialmente
Jairo