FiveTech Support Forums

#include "FiveWin.ch"
#include "xBrowse.ch"
#include "tdolphin.ch"

//-------------------------------------------------------------------------------------
Function Main()
Local nAncho:=WndWidth(GetDesktopWindow())
Local nAlto:=WndHeight(GetDesktopWindow())
Local cSeek:=""

Public oSvr:=ConnectTo("1.1.1.1")

   oDbPrint:=tDolphinQry():New("select * from clientes order by RAZON", oSvr)

   DEFINE WINDOW oWn1 FROM 1, 1 TO 25, 79 TITLE "Test xBrowse"

        oBrwPr:=TxBrowse():New(oWn1)
        oBrwPr:nMarqueeStyle := MARQSTYLE_HIGHLROW
        oBrwPr:nColDividerStyle := LINESTYLE_BLACK
        oBrwPr:nRowDividerStyle := LINESTYLE_BLACK
        oBrwPr:lColDividerComplete := .T.
        oBrwPr:l2007:=.T.
        oBrwPr:lAutoSort:=.T.
        oBrwPr:SetDolphin(oDbPrint,.T.,.T.)
        oBrwPr:CreateFromCode()
        oBrwPr:nWidth       := nAncho
        oBrwPr:nHeight      := nAlto

   SET MESSAGE OF oWn1 TO "Previsualizacion"  2007

   DEFINE MSGITEM oBrwPr:oSeek OF oWn1:oMsgBar ;
          PROMPT "Buscando" SIZE 300 COLOR CLR_RED

   ACTIVATE WINDOW oWn1 MAXIMIZED

Return Nil

//---------------------------------------------------------------------------------------------------
FUNCTION ConnectTo(cServer)
         CONNECT oServer HOST cServer USER "xxxxxx" PASSWORD "xxxxxxx" DATABASE "xxxxxxxxx"
RETURN oServer