by willy1701 » Thu Jan 15, 2015 11:44 am
#include "FiveWin.ch"
#include "XBrowse.ch"
//-----------------------------------------------------------------------------------------------------------------
function MiBrowse()
local oDlg, oBrw, oWnd, oCol
SET RESOURCES TO "Mio.dll"
ErrorBlock( { | o | MsgInfo( o:Description ) } )
USE DATOS\Cli ALIAS Cli
DEFINE WINDOW oWnd FROM 2, 2 TO 25, 80
DEFINE DIALOG oDlg RESOURCE "Listado"
oBrw := TXBrowse() :New( oWnd )
oBrw:nColDividerStyle := LINESTYLE_INSET
oBrw:nRowDividerStyle := LINESTYLE_INSET
oBrw:lColDividerComplete := .T.
oBrw:nMarqueeStyle := MARQSTYLE_HIGHCELL
oCol = oBrw:AddCol()
oCol:bStrData = { || Cli->CLIENTE }
oCol:cHeader = "CLIENTES"
oCol:nEditType = 0
oBrw:oClient := oBrw
oBrw:CreateFromResource( 101 )
ACTIVATE DIALOG oDlg CENTER
ACTIVATE WINDOW oWnd MAXIMIZED
return nil
//-------------------------------------------------------------------------------------------
Aclaracion: Es la primera vez que utilizo esta clase, siempre use el tcbrowse de fivewin 2.3 y nunca tuve problemas, usaba el resource workshop, ahora estoy utilizando el resource builder.