BROWSE

[09466261000176]

Boa noite companheiros.

Gostaria de saber se alguém tem algum exemplo de uso de checkbox dentro de um browse. Se tiver algum exemplo me mostre por favor.

[Kapiaba]

C:\FWH..\SAMPLES\TESTLBX5.PRG

Código: Selecionar todos

#INCLUDE "TESTLBX5.CH"
#INCLUDE "FIVEWIN.CH"

FUNCTION Main()

	local oLbx, oDlg, nItem := 0, oMeter, nMeter
	local n, nSelected := 0, aSel := {}

	DEFINE DIALOG oDlg RESOURCE "REINDEX"

	REDEFINE LISTBOX oLbx VAR nItem ;
		ID RIN_LISTBOX OF oDlg ;
                ITEMS NomiFiles() ;
		BITMAPS { "CHECKON", "CHECKOFF" } ;
		ON DRAWITEM ( IIF(ascan(oLbx:GetSelItems(),nItem)>0, 1, 2) );
		ON CHANGE (nSelected := oLbx:GetSelCount(), oDlg:AevalWhen());
		COLOR "n/w"

	REDEFINE button ID RIN_ALL OF oDLG ;
		ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.t.) }), oLbx:Change())

	REDEFINE button ID RIN_NONE OF oDLG ;
		ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.f.) }), oLbx:Change());
		WHEN nSelected > 0

	REDEFINE button ID RIN_INDEX OF oDLG ;
		ACTION reind(oLbx,"INDEX",oMeter), oLbx:Change();
		WHEN nSelected > 0

	REDEFINE button ID RIN_REINDEX OF oDLG ;
		ACTION reind(oLbx,"REINDEX",oMeter), oLbx:Change();
		WHEN nSelected > 0

	REDEFINE button ID RIN_PACK OF oDLG ;
		ACTION reind(oLbx,"PACK",oMeter), oLbx:Change();
		WHEN nSelected > 0

	REDEFINE button ID RIN_CANCEL of oDLG CANCEL;
		ACTION oDlg:END()

	REDEFINE METER oMeter VAR nMETER ID RIN_METER1 OF oDLG

	ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

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


STATIC FUNCTION REIND(oLbx,cAz,oMeter)

	LOCAL cDbf
	LOCAL cFILE
	LOCAL cIND
	LOCAL aIT := oLbx:GetSelItems(), n, nTag, nM

	oLbx:oWnd:disable()

	FOR n := 1 TO len(aIT)
		Cursorwait()

		oLbx:Select(aIT[n])
		cDbf := upper(oLbx:aItems[aIT[n]])
		cFILE := cFILENOEXT(cDBF)
		cIND := cFILE + ORDBAGEXT()

		oLbx:SetSel(aIt[n],.f.)
		sysrefresh()

	NEXT

	oMETER:SETTOTAL(1)
	oMETER:set(0)

	oLbx:oWnd:enable()
	cursorarrow()

RETURN NIL



STATIC FUNCTION NomiFiles()
RETURN {;
	"TADTABPF.DBF", ;
	"TADHLPPF.DBF", ;
	"TADCLIPF.DBF", ;
	"TADCL2PF.DBF", ;
	"TADCALPF.DBF", ;
	"TADMDIPF.DBF"  ;
	}

http://fivewin.com.br/index.php?/topic/ ... +%2Bbrowse

[09466261000176]

Eu implemento os meus browse da seguinte forma:

Código: Selecionar todos

* Browse Ficha Financeira
oDB_CADFIN                                       := TXBrowse():New( oDld_CAD_ENT_DIV )
oDB_CADFIN:cAlias    			 := 'cadfin'
oDB_CADFIN:bKeyDown  			 :={|nKey|  IF(nkey=13, T_ID_CADFIN:=cadfin->ID_CADFIN,( temp(), ) ) }
oDB_CADFIN:bChange   			 :={|| 					   T_ID_CADFIN:=cadfin->ID_CADFIN }
oDB_CADFIN:bLDblClick			 :={|| 					   T_ID_CADFIN:=cadfin->ID_CADFIN }
oDB_CADFIN:nMarqueeStyle                 := MARQSTYLE_HIGHLROW
oDB_CADFIN:nColDividerStyle              := LINESTYLE_BLACK
oDB_CADFIN:nRowDividerStyle             := LINESTYLE_BLACK
oDB_CADFIN:lColDividerComplete        := .F.
oDB_CADFIN:lFooter                            := .T.
oDB_CADFIN:lRecordSelector               := .T.  
oDB_CADFIN:nHeaderLines                  := 1.5
oDB_CADFIN:nDataLines                      := 1.5
*
oCol 					 		 := oDB_CADFIN:AddCol()
oCol:bStrData      				 := { || DTOC(cadfin->DATA_PGMTO) }
oCol:cHeader       				 := "Data"
oCol:nDataStrAlign                             := AL_LEFT                                                     
oCol:nHeadStrAlign                            := AL_LEFT   
*
oCol 					 		:= oDB_CADFIN:AddCol()
oCol:bStrData      				:= { || TRANSFORM(cadfin->VALOR_PGMTO,"@E 999,999.99") }
oCol:cHeader       				:= "Valor"
oCol:nDataStrAlign                            := AL_LEFT                                                     
oCol:nHeadStrAlign                           := AL_LEFT   
*
oCol 					 	        := oDB_CADFIN:AddCol()
oCol:bStrData      				:= { || cadfin->HISTORICO }
oCol:cHeader       				:= "Histórico"
oCol:nDataStrAlign                            := AL_LEFT                                                     
oCol:nHeadStrAlign                           := AL_LEFT   
*
oDB_CADFIN:CreateFromResource(4043)
*

precisaria de algo dentro deste contexto.

[Kapiaba]

Em realidade, vc. não está usando Browse e sim xBrowse, então fica mais fácil ainda, pois tem muitos exemplos no \samples, no FiveWin Brasil e no FiveWin mundial, basta dar uma procurada por xBrowse. abs.