FiveTech Software tech support forums

Code: Select all | Expand

// Using controls

#include "FiveWeb.ch"

function Main()

   local oDlg, lValue := .T.
   
   SET COLOR TO "#99CCFF"
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   @ 120,  70 BUTTON "One" SIZE 120, 50 OF oDlg ACTION MsgInfo( "one" )

   @ 120, 220 BUTTON "Two" SIZE 120, 50 OF oDlg ACTION MsgInfo( "two" )

   @ 120, 370 BUTTON "Three" SIZE 120, 50 OF oDlg ACTION MsgInfo( "three" )
   
   @ 200, 160 CHECKBOX lValue PROMPT "Tested" SIZE 150, 40 OF oDlg
   
   ACTIVATE DIALOG oDlg 

return nil

Code: Select all | Expand

#include "FiveWeb.ch"

function Main()

   local oDlg
   
   SET BACKIMAGE TO "http://fiveweb.googlecode.com/svn/trunk/images/beach.jpg"
   
   SetTheme( "cupertino" )
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   ACTIVATE DIALOG oDlg NOWAIT

return nil

Code: Select all | Expand

function Browse()

   local oDlg, oBrw
   local aDatos:={}

   if ! File( "clients.dbf" )
      DbCreate( "clients.dbf", { { "title",   "C", 10, 0 },;
                                 { "family",  "C", 80, 0 },;
                                 { "vorname", "C", 80, 0 } } )
   endif
   
   USE clients SHARED

   aadd( aDatos, {"title","Family","Vorname"} )
   
   go top
   do while !eof()
      aadd(aDatos,{clients->title, clients->family,clients->vorname })
      skip
   enddo

   
   DEFINE DIALOG oDlg TITLE "Clients browse" SIZE 800, 600
   
   @ 10, 10 BROWSE oBrw SIZE 500, 400 OF oDlg ARRAY aDatos
   
   ACTIVATE DIALOG oDlg NOWAIT
   
   USE

return nil
 

Code: Select all | Expand

Function DefineClassLine() //--definimos  un estilo

 ?'<style type="text/css">'
 ?'<!-- '
 ?'.linea { font-family: Verdana, Arial, Helvetica, sans-serif;'
 ?' font-size: 13px;color: #333333; background-color: transparent;'
 ?'}'
 ?'-->'
 ? '</style>'
Return nil

Function DefineClassHead()  //------definimos otro estilo

 ?'<style type="text/css">'
 ?'<!-- '

?' .boxtitulo { '
?'  background-image: url(glbnav_background.gif);'
?'  background-position: 4px;'
?'  border-bottom-color: #333333;'
?'  border-bottom-style: solid;'
?'  border-bottom-width: 1px;'
?'  border-left-color: #333333;'
?'  border-left-style: solid;'
?'  border-left-width: 1px;'
?'  border-right-color: #000000;'
?'  border-right-style: solid;'
?'  border-right-width: 1px;'
?'  border-top-color: #333333;'
?'  border-top-style: solid;'
?'  border-top-width: 1px;'
?'  color: #333333;'
?'  background-color:#a5beb5 ;'
?'  font-family: Verdana, Arial, Helvetica, sans-serif;'
?'  font-size: 12px;'
?'  font-weight: bold;'
?'  height: 18px;'
?'  text-align: center;'

 ?'}'

 ?'-->'
 ? '</style>'

Return nil




//----------------------------------------------------------------------------// 


function Browse()

   local oDlg, oBrw
   local aDatos:={}

   if ! File( "clients.dbf" )
      DbCreate( "clients.dbf", { { "title",   "C", 10, 0 },;
                                 { "family",  "C", 80, 0 },;
                                 { "vorname", "C", 80, 0 } } )
   endif
   
   USE clients SHARED

   aadd( aDatos, {"title","Family","Vorname"} )
   
   go top
   do while !eof()
      aadd(aDatos,{clients->title, clients->family,clients->vorname })
      skip
   enddo

   DefineClassLine()   
   DefineClassHead()  
   
   DEFINE DIALOG oDlg TITLE "Clients browse" SIZE 800, 600
   
   @ 10, 10 BROWSE oBrw SIZE 500, 400 OF oDlg ARRAY aDatos
   
    oBrw:cClassTable:= "" //"browse"
    oBrw:cClassLine:="linea"
    obrw:cClassHead:= "boxtitulo"
    oBrw:lZebra:= .t.

   oBrw:CreateFromCode()
   
   ACTIVATE DIALOG oDlg NOWAIT
   
   USE

return nil

//----------------------------------------------------------------------------//                                  
 

Code: Select all | Expand

function Main()

   local oDlg
   
   SET BACKIMAGE TO "http://fiveweb.googlecode.com/svn/trunk/images/beach.jpg"
   
   SetTheme( "cupertino" )
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
    @ 12, 10 SAY "Hola:" OF oDlg  URL "http://www.google.com"
   
   ACTIVATE DIALOG oDlg NOWAIT

return nil