FiveTech Software tech support forums

... rápido. Pero si sales y vuelves a entrar, verás que ahora el desplazamiento es muy lento. ¿Cómo se soluciona? Fácil, en el ACTIVATE WINDOW oWnd agrega la claúsula MODAL ACTIVATE WINDOW oWnd MODAL Ahora notarás que no pierdes velocidad alguna. :P Saludos Fernando Leal

... "Destructors disabled! Destructor of class ''TOLEAUTO" can't be executed". Creo que se puede corregir si en el Method Destroy() se agrega lo siguiente: ...   if ValType(::oRSet) == "O"      ::oRSet := NIL   endif   ::hWnd = 0Return Nil  2.- Genera error al trabajar ...

... un Listbox de una bases de dato filtrada y estoy realizando un refresh() actualizando la visualizacion, el tema que cuando desde otra terminal me agrega un registro desde el Listbox que tengo en ejecuacion NO se actualiza el Index por lo que cuando hago la actualiuzacion muestra cualquier cosa, ...

Acuellar...

Revisa samples/Testxbr3.prg

en la funcion RddBrwAllColsDlg
agrega en la activacion del dialogo

ON INIT ( oBrw:GoBottom(), oBrw:SetFocus() )

a mi me funciona...
no se si tenga algo que ver con la version de FW que usas, sino te sirve prueba GO BOTTOM a la DBF

... http://www.sitasoft.com/fivewin/test/testget2.rar abre TGET.prg BUSCA EN METHOD CreateButton() CLASS TGet    local oThis := Self AGREGA DESPUES    local hBitmap   local nBmpWidth BUSCA          @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;            ACTION ( Eval( ...

... no es tuyo sino mio, he estado esudiando detenidamente tu situacion y encintre estos cambios que me gustaria que hicieras... priemro vamos a agregar esta linea en los metodos NEW y REDEFINE ::oWnd = oWnd solo esa linea en ambos metodos segundo... en "METHOD RedefineButton" despues ...

... := { || space(0) } ya esta no la necesitas oBrwMenu:bLDblClick:={|nRow, nCol| if(nCol == 2, .F., ),MsgInfo("Test"),oBrwMenu:Refresh(),.T.} y agrega esto oBrwMenu:aCols[2]:hChecked := .t.

Estimados consultas de HB_ZipFile y HB_UnZipFile :?: HB_ZipFile: Si el archivo donde se va a generar el ZIP ya existe, agrega el los archivos y los duplica dentro del ZIP :( HB_UnZipFile: Se puede que al querer descargar un archivo y si existe poder dar la opcion de si quiere descargar? ...

... Chr(64+i) + ":" cServer := NetRmtName( cDrive ) IF !Empty( cServer ) ? cDrive, cServer ENDIF NEXT RETURN Agrega CT.LIB de http://www.5volution.com/forum/ct.lib.zip (renomear a CT.LIB) Minha ideia: Function GetDrvMapLetter( cPathName ) LOCAL cDrive, ...

... ubica esta lineas en el metodo RButtonDown de xbrowse If nColPos != 0 .and. nRowPos != 0 return Super:RButtonDown( nRow, nCol, nKeyFlags ) endif y agrega este .or. If nColPos != 0 .and. nRowPos != 0 .or. ::bRClicked != NIL return Super:RButtonDown( nRow, nCol, nKeyFlags ) endif si no quieres modificar ...

creo que no se le puede cambiar el font en la edicion, pero te doy una solucion... en la clase TXBrwColumn agrega una nueva data oEditFont en el metodo Adjust() DEFAULT ::oDataFont := ::oBrw:oFont,; ::oHeaderFont := ::oBrw:oFont,; ...

... .and. lDebHabOK((cAlias)->debe+(cAlias)->haber) ,; (Dbappend(), oBrw:GoLeftMost(), oBrw:Refresh(), oBrw:aCols[ 1 ]:Edit() ),) } //agrega registro y queda en edicion. //COLUMNA 1 oCol = oBrw:AddCol() oCol:bStrData = { || (cAlias)->cta } oCol:cHeader = "CTA" oCol:nEditType = EDIT_GET ...

... del xbrowse y otra mientras estas en estado de edicion de una celda... no soy guro del xbrowse pero me parece una clase muy interesante cambia y agrega esto a ver si te sirve... claro es importante que estes en estado de edicion para que funcione, no lo he probado pero teoricamente deberia funcionar ...

... del xbrowse y otra mientras estas en estado de edicion de una celda... no soy guro del xbrowse pero me parece una clase muy interesante cambia y agrega esto a ver si te sirve... claro es importante que estes en estado de edicion para que funcione, no lo he probado pero teoricamente deberia funcionar ...

agrega estas lineas en la funcion filtro FUNCTION Filtro( oBrw ) .... Se hace el filtro .... .... mas columnas .... oBrw:bBof := { || LIBROSBOOK->( ...