Browse Nativo!
Fabio Ramirez
utiliza browse nativo, en visual foxpro 7, mi pregunta es hay alguna
forma de darle color a determinadas Filas... (NO GRID)
Gracias,,
TheNewInquirer
Los creadores de Ruby on Rails (un excelente framework para el
lenguage web Ruby), dan una buena recomendación.
Lee el tema:
"Don't be a yes-man", en el siguiente enlace:
http://gettingreal.37signals.com/GR_esp.php#ch05
La idea es no prestar atención a todo requerimiento que el cliente
solicite.
Por ejemplo, en el subtitulo "No Necesite Formación" menciona que
Google, ni siquiera se preocupa por tener manual:
http://gettingreal.37signals.com/GR_esp.php#ch14
En el subtema: "El Amor es Duro" dice:
"Debes estar dispuesto a decir no a tus clientes"
Claro, que este enfoque no se aplicará a todos los casos, pero en
general, a veces te evitarás mucho estrés diciendo que cierta
característica no es esencial para la funcionalidad del sistema.
Ahora bien, si lo requieren porque es necesario.. Entonces puedes
aprovechar para "iniciar un nuevo desarrollo" pero les costará dinero
y tiempo. La decisión es del cliente. Déjasela a ellos.
Luego, podrás meter tus datos a un grid, por ejemplo y hacer y
deshacer...
Cuidate!
Miguel Canchas
*----------------------------------------
PUBLIC oBrowse, lBrowseSetup
lBrowseSetup=.F.
**USE _samples + "\data\customer" ORDER TAG "Contact"
BROWSE NAME oBrowse WHEN BrowseSetup() NOWAIT
PROCEDURE BrowseSetup
IF NOT lBrowseSetup
WITH oBrowse AS GRID
.LEFT = 50
.TOP = 50
**** Row coloring ------------------------------
* Only works good with no index:
*.SETALL("DynamicBackColor","IIF(RECNO() % 2 = 0, 16777215, 16777088)","Column")
* This one works much better
.SETALL("DynamicBackColor","IIF(oBrowse.ActiveRow%2=0,16777215,16777088)","Column")
*** Fix the first column -----
*.LOCKCOLUMNS = 1
.Columns(1).DynamicBackColor= ""
.Columns(1).BackColor = RGB(255,255,168)
.AUTOFIT()
.HIGHLIGHTSTYLE= 2
* .ALLOWCELLSELECTION = .F.
.HIGHLIGHTBACKCOLOR = RGB(255,128,64)
.HIGHLIGHTFORECOLOR = RGB(0,0,0)
** For Incremental Search:
* .ADDPROPERTY("KeyHandler")
* .KeyHandler = CREATEOBJECT("Keyhandler")
* BINDEVENT(oBrowse,"KeyPress", .KeyHandler,"Keypress")
ENDWITH
lBrowseSetup = .T.
ENDIF
RETURN .T.
*----------------------------------------
DEFINE CLASS KeyHandler AS CUSTOM
LastTime = 0
Searchtext = ""
PROCEDURE KEYPRESS
LPARAMETERS nKey, nCode
cKey = UPPER(CHR(nKey))
IF ISALPHA(cKey) OR cKey $ " .:,;-/"
IF SECONDS() - THIS.LastTime > 3
THIS.Searchtext=""
ENDIF
THIS.LastTime = SECONDS()
THIS.Searchtext = THIS.Searchtext + cKey
SET Message TO This.Searchtext
* SET NEAR ON
* SEEK this.SearchText
* SET NEAR OFF
LOCATE FOR UPPER(contact) = this.Searchtext
NODEFAULT
ENDIF
ENDPROC
ENDDEFINE
-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Fabio Ramirez
Enviado el: viernes, 03 de febrero de 2012 09:31 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Browse Nativo!
Marlon Salomon Cabrera Roque
bindevent hasta eventos le puedes pegar a las columnas y líneas.
-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de Fabio Ramirez
Enviado el: viernes, 03 de febrero de 2012 08:31 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Browse Nativo!
Hola, le estoy dando mantemiento a una aplicacion nativa, donde se utiliza
browse nativo, en visual foxpro 7, mi pregunta es hay alguna forma de darle
color a determinadas Filas... (NO GRID) Gracias,,
-----
Se certificó que el correo no contiene virus.
Comprobada por AVG - www.avg.es
Versión: 2012.0.1913 / Base de datos de virus: 2112/4783 - Fecha de la
versión: 03/02/2012
-----
Se certificó que el correo no contiene virus.
Comprobada por AVG - www.avg.es
Versión: 2012.0.1913 / Base de datos de virus: 2112/4783 - Fecha de la
versión: 03/02/2012
TheNewInquirer
veo que casi no hay imposibles para uds.
Son la NETA del PLANETA jeje !!
Saludos!
