FiveTech Software tech support forums

... DEFINE BUTTONBAR OF oWndChild _3D @ 2, 0 LISTBOX oLbx FIELDS ; ON RIGHT CLICK MsgInfo( oLbx:cAlias ) ; FONT oFont ; SIZE 400, 200 oWndChild:SetControl( oLbx ) @ 20, 0 TABS oWndChild:oBottom PROMPT "One", "Two" ; OF oWndChild ACTIVATE WINDOW oWndChild MAXIMIZED ; ON RIGHT ...

... ) } This is the safe and recommended way. In the case of your example above, please replace the code: oWIN:oClient:=oBRWoWIN:SetControl(oBRW)ACTIVATE WINDOW oWIN ON INIT WndAdjClient(oWIN:hWnd) ;VALID ( oBrw:bKeyCount:={||0} , oBrw:bKeyNo := {||0} ...

... oBRW:bRClicked :={|R,C| XBRW_POP(R,C,nARG,oINS,oMOD,oCAN,oVIS,oANT,oSTA,oSRC,oFLT,oEXP,bPOP)} oWIN:oClient:=oBRW oWIN:SetControl(oBRW) ACTIVATE WINDOW oWIN ON INIT WndAdjClient(oWIN:hWnd) ; VALID ( oBrw:bKeyCount:={||0} , oBrw:bKeyNo := {||0} , CLOSE_DB(oXDBF) , .T. ...

... OF oWndBmp ; CURSOR oLupa ; on left click (AjustaZoom(OBMP,"A",oSay)) ; on right click (AjustaZoom(OBMP,"R",oSay)) oWndBmp:SetControl( OBMP ) ajustazoom(OBMP,"z",oBar) obmp:HBITMAP:=IMAGE_HBITMAP(cBmpFile ) ACTIVATE WINDOW oWndBmp oFont:End() endif return oWndBmp ...

softruz Utiliza el bloque de codigo bChange oBrw:bChange:={|| SETCONTROL()} FUNCTION SETCONTROL() LOCAL oCol:=oBrw:aCols[MICOLUMNA] IF lCondicion1 oCol:nEditType:=EDIT_GET ENDIF IF lCondicion2 oCol:nEditType:=EDIT_BUTTON ENDIF oCol:Edit() RETURN Para cambiar ...

... 1,1,1 oBrw:nHeightCell += 17 oBrw:nHeightHead := 20 oBrw:nLineStyle := 2 oBrw:SetColor({1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}, CLR_oBrw ) oWnd2:SetControl( oBrw ) ACTIVATE WINDOW oWnd2 RETU[]

... TcColumn():New( "" , , , , , 0 , 10 , , , , , , , ) // oBrw:addcolumn( oCol ) oBrw:lCellStyle = .T. ACTIVATE DIALOG oDlg; ON INIT oDlg:SetControl( oBrw ); CENTER ; VALID MsgYesNo( "Want to exit ?" ) CLOSE RETURN NIL

... = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetControl( oLbx ), Sysrefresh() ) // Disconnecting oSql:Close() oSql:=NIL RETURN (.T.) //------------------------------- STATIC FUNCTION SKIPPER( oRsx, ...

... = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetControl( oLbx ), Sysrefresh() ) // Disconnecting oSql:Close() oSql:=NIL RETURN (.T.) //------------------------------- STATIC FUNCTION SKIPPER( oRsx, ...

... := { | n | oQry:Skip( n ) } :lFooter := .T. :bKeyCount := { | | oQry:RecCount() } :CreateFromCode() END WITH OBJECT oChild :oClient := oBrw :SetControl( oBrw ) END WITH ACTIVATE WINDOW oChild agrego la imagen: http://img696.imageshack.us/img696/8798/capturakf.th.jpg http://img696.imageshack.us/i/capturakf.jpg/ ...

... ) LOCAL oDlg, oRich, cVar := "" DEFINE DIALOG oDlg @ 0, 0 RICHEDIT oRich VAR cVar ACTIVATE DIALOG oDlg; ON INIT oDlg:SetControl( oRich ) ; CENTER ? cVar // nothink FREELIBRARY( hDll ) RETURN NIL this is created by me FUNCTION CREANOTE( ) LOCAL oDlg LOCAL oRich LOCAL ...

... oBrw:AddCol() oCol:cHeader := "Cuenta Contable" oCol:bStrData := {|| BANCO->BCO_CUENTA } oBrw:SetRDD() oBrw:CreateFromCode() oWndBCO:SetControl(oBrw) ACTIVATE WINDOW oWndBCO ; ON INIT oBrw:Refresh() ; oWndPrinc:cascade() oWndBCO:oClient = oBrw oWndBCO:Show() //-----Fin de codigo http://img441.imageshack.us/img441/9403/browsere.jpg

... DEFINE WINDOW oWndBCO MDICHILD OF oWndPrinc oBrw := TXBrowse():New( oWndBCO ) oBrw:cAlias := cAlias oBrw:SetRDD() oBrw:CreateFromCode() oWndBCO:SetControl(oBrw) ACTIVATE WINDOW oWndBCO ; ON INIT oBrw:SetFocus() RETURN NIL Saludos

... DEFINE WINDOW oWndBCO MDICHILD OF oWndPrinc ; oBrw := TXBrowse():New( oWndBCO ) oBrw:cAlias := cAlias oBrw:SetRDD() oBrw:CreateFromCode() oWndBCO:SetControl(oBrw) ACTIVATE WINDOW oWndBCO ; ON INIT oBrw:SetFocus() Ambos cargan bien, el problema es que no me muestra nungun registro del DBF y este ...

... oGraph:AddSerie({2.5,1.5,3.5,4.5,2.5,3.5,1.5,,,,,}, "GRAPH_TYPE_LINE y NO 3D", xRGB(255, 0, 0),GRAPH_TYPE_LINE,.F.) oWndChild:SetControl(oGraph) return NIL Atentamente, Rolando Salazar Ureña http://www.sauro-sys.com email: SauroSrl@entelnet.bo Cochabamba-Bolivia FWH 9.07, xharbor ...