FiveTech Software tech support forums

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 )