una muy simple demostración del poder de fivetouch y de QT .
Code: Select all
#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)+renglon
skip
end
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 nil
function DownloadLocation()
return QStandardPaths():StandardLocations( 14 ):Value( 0 )
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
