Quisiera hacer lo siguiente:
En un dBFBrowse, hacer que si un campo de un registro supera un valor
marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde puedo
enredar o existe algún ejemplo?
Gracias
Paco V
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Color en Dbfbrowse
-
ignacio
- Site Admin
- Mensajes: 9474
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Color en Dbfbrowse
Paco,
Es muy sencillo, tan sólo tienes que capturar el evento OnDraRow() del
Browse.
Algo así:
METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
if ::oDbf:LoQueSea > nMiNumero
oSender:nClrPane := clRed
else
oSender:nClrPane := clWindow
endif
RETURN Nil
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Quisiera hacer lo siguiente:
>
> En un dBFBrowse, hacer que si un campo de un registro supera un valor
> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
> puedo enredar o existe algún ejemplo?
>
> Gracias
>
> Paco V
>
Es muy sencillo, tan sólo tienes que capturar el evento OnDraRow() del
Browse.
Algo así:
METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
if ::oDbf:LoQueSea > nMiNumero
oSender:nClrPane := clRed
else
oSender:nClrPane := clWindow
endif
RETURN Nil
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Quisiera hacer lo siguiente:
>
> En un dBFBrowse, hacer que si un campo de un registro supera un valor
> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
> puedo enredar o existe algún ejemplo?
>
> Gracias
>
> Paco V
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Color en Dbfbrowse
Ignacio,
Esto "pinta" TODA la línea (Row), todo el registro!!!
Pero... ¿como coloreamos una celda en concreto????
OnDawCell ???? no está implementada, creo.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>
> Paco,
>
> Es muy sencillo, tan sólo tienes que capturar el evento OnDraRow() del
> Browse.
>
> Algo así:
>
> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>
> if ::oDbf:LoQueSea > nMiNumero
> oSender:nClrPane := clRed
> else
> oSender:nClrPane := clWindow
> endif
>
> RETURN Nil
>
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Quisiera hacer lo siguiente:
>>
>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>> puedo enredar o existe algún ejemplo?
>>
>> Gracias
>>
>> Paco V
>>
>
>
>
Esto "pinta" TODA la línea (Row), todo el registro!!!
Pero... ¿como coloreamos una celda en concreto????
OnDawCell ???? no está implementada, creo.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>
> Paco,
>
> Es muy sencillo, tan sólo tienes que capturar el evento OnDraRow() del
> Browse.
>
> Algo así:
>
> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>
> if ::oDbf:LoQueSea > nMiNumero
> oSender:nClrPane := clRed
> else
> oSender:nClrPane := clWindow
> endif
>
> RETURN Nil
>
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Quisiera hacer lo siguiente:
>>
>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>> puedo enredar o existe algún ejemplo?
>>
>> Gracias
>>
>> Paco V
>>
>
>
>
-
ignacio
- Site Admin
- Mensajes: 9474
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Color en Dbfbrowse
This is a multi-part message in MIME format.
------=_NextPart_000_0017_01C5C4DB.BBD9C420
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0018_01C5C4DB.BBD9C420"
------=_NextPart_001_0018_01C5C4DB.BBD9C420
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Xevi,=20
Es que =E9l pregunto por la l=EDnea espec=EDficamente:
>marcado, esa >>>
<<< me aparezca en color rojo. =BFEs posible? =BF Por donde=20
Para pintar una celda en concreto. En la documentaci=F3n podr=E1s ver lo =
siguiente:
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:433b9871$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>=20
> Ignacio,
>=20
> Esto "pinta" TODA la l=EDnea (Row), todo el registro!!!
> Pero... =BFcomo coloreamos una celda en concreto????
> OnDawCell ???? no est=E1 implementada, creo.
>=20
>=20
>=20
> Un Saludo,
> Xevi.
>=20
>=20
> "Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje=20
> news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>>
>> Paco,
>>
>> Es muy sencillo, tan s=F3lo tienes que capturar el evento OnDraRow() =
del=20
>> Browse.
>>
>> Algo as=ED:
>>
>> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>>
>> if ::oDbf:LoQueSea > nMiNumero
>> oSender:nClrPane :=3D clRed
>> else
>> oSender:nClrPane :=3D clWindow
>> endif
>>
>> RETURN Nil
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el mensaje=20
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un =
valor=20
>>> marcado, esa fila me aparezca en color rojo. =BFEs posible? =BF Por =
donde=20
>>> puedo enredar o existe alg=FAn ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>>=20
>=20
>=20
>
------=_NextPart_001_0018_01C5C4DB.BBD9C420
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV>Xevi, </DIV>
<DIV>Â</DIV>
<DIV>Es que =E9l pregunto por la l=EDnea espec=EDficamente:</DIV>
<DIV>Â</DIV>
<DIV>>marcado, esa >>></DIV>
<DIV align=3Dleft><STRONG></STRONG>Â</DIV>
<DIV><<< me aparezca en color rojo. =BFEs posible? =BF Por =
donde </DIV>
<DIV>Â</DIV>
<DIV>Para pintar una celda en concreto. En la documentaci=F3n podr=E1s =
ver lo=20
siguiente:</DIV>
<DIV>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:001201c5c4ca$f84c1220$0e00000a@ozlan.local"=20
align=3Dbaseline border=3D0><BR></DIV>
<DIV>Â</DIV>
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
href=3D"news:433b9871$1@ozsrvnegro.ozlan.local">news:433b9871$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>>=20
<BR>> Ignacio,<BR>> <BR>> Esto "pinta" TODA la l=EDnea (Row), =
todo el=20
registro!!!<BR>> Pero... =BFcomo coloreamos una celda en =
concreto????<BR>>=20
OnDawCell ???? no est=E1 implementada, creo.<BR>> <BR>> <BR>> =
<BR>> Un=20
Saludo,<BR>> Xevi.<BR>> <BR>> <BR>> "Ignacio Ortiz de =
Z=FA=F1iga" <<A=20
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>> =
escribi=F3 en=20
el mensaje <BR>> <A=20
href=3D"news:433b9524@ozsrvnegro.ozlan.local">news:433b9524@ozsrvnegro.oz=
lan.local</A>...<BR>>><BR>>>=20
Paco,<BR>>><BR>>> Es muy sencillo, tan s=F3lo tienes que =
capturar el=20
evento OnDraRow() del <BR>>> Browse.<BR>>><BR>>> Algo=20
as=ED:<BR>>><BR>>> METHOD BrwDrawRow( oSender, nRowPos ) =
CLASS=20
TForm1<BR>>><BR>>>ÂÂ if ::oDbf:LoQueSea >=20
nMiNumero<BR> >>ÂÂÂÂ& ;nbsp; oSender:nClrPane =
:=3D=20
clRed<BR>>>ÂÂ =
else<BR> >>ÂÂÂÂ& ;nbsp;=20
oSender:nClrPane :=3D clWindow<BR>>>ÂÂ=20
endif<BR>>><BR>>> RETURN Nil<BR>>><BR>>> "Paco =
V."=20
<<A=20
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <BR>>> <A=20
href=3D"news:433ae026$1@ozsrvnegro.ozlan.local">news:433ae026$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...<BR>>>>=20
Quisiera hacer lo siguiente:<BR>>>><BR>>>> En un =
dBFBrowse,=20
hacer que si un campo de un registro supera un valor <BR>>>> =
marcado,=20
esa fila me aparezca en color rojo. =BFEs posible? =BF Por donde =
<BR>>>>=20
puedo enredar o existe alg=FAn ejemplo?<BR>>>><BR>>>>=20
Gracias<BR>>>><BR>>>> Paco=20
V<BR>>>><BR>>><BR>>> <BR>>> <BR>> <BR>>=20
<BR>></BODY></HTML>
------=_NextPart_001_0018_01C5C4DB.BBD9C420--
------=_NextPart_000_0017_01C5C4DB.BBD9C420
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <001201c5c4ca$f84c1220$0e00000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAnMAAAIbCAMAAAC3yegLAAAAB3RJTUUH1Qkd BzQ6WS32zwAAAAlw
SFlzAAAOwwAADsMBx2+oZAAAAARnQU1BAACxjwv8YQUAAAAYUExURf///wAA AOzp2KyomcDAwAAA
ZszMzGZmZuf+ZQEAACJOSURBVHja7Z2NgpyqsoWr7slO3v+Nb9KtUL+Ato06 ru+c7O5RqCpgDagw
SL8AmAudHQB4HNAcmA00B2YDzYHZQHNgNtAcmA00B74FGcrx139Zon8eM99K O2xkr4NfW6MdNb0c
PqQAD4T+U4xrbqS624kPaLJONJt/RQZNQ3Mf8U3NdVJ/3mS9cDb+igxnheY+ gv57Dam///6Pfv+2
mnshqrZ8HWnFkqbdW+yn2O2qerPo2rFDcx9B//3+B73+O645We2iM1CfKl/N FpkILP6SSlntcZjT
HHHpnPESCXv/aezc8g828B5b//Z24dj6oqM5OQLJdgs6CD1apZpb0uikPifr wDhLZ7IUXYqv47FH
kYNt0H9//vz5Jzj6+/ln89gq9PGrdgW2q6i5A4FmmjNJfU7lwGou7gil0Eop tsUeRA628XdspaWv
+8uA5lxPolXQazeXJ9Kc+ghyurhM19fUnPM5ErsLxwUAhvl3Pbfcs/7+M3I9 F49eG9otacC4PeM0
v7If8sEv6Bp/bdOcNwPN7ePVz9HSzW3q53S1rwOsGmi1q3rgGppjKbN+7KLY 0NxH/NXcnz+/X73c
n6F+rn5TjXM3zVkJQXPz2NzP6a9tzQUDmc/7ieaC+9bAVhyuGlbHY4/Ngw3Q 0sENX8/pr1JHv5Yj
v7xAdEMedD0XBJZqLrFTDg/E7h1Dc/t493Mr+8dWeQ1u7mnVKXG8fuR3sz3N iUcpQTrVrUV2TP52
7DUDNPcR7fnWF0P3EEG7/QoSB3nTo/4j+FHlDbWUnDc6H449CANso72W6cWY 5qK+yLT4r1wA+zQX
OTDp4vM244bYozDAIXQ1F52zh8TzCPmztfs+tkdz1kGqOVcUjpw2Y/elhuaO BeuEwWygOTAbaA7M
BpoDs4HmwGygOTAbaA7MBpoDsyEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAA4FYsu5DP8TU/7/ZsvNUEZ8l42Myc6r8MM6viBM1tN7DZETS3FWju U0fQ3FZYfPJrqH19
4fq9Drx/v3FJqU8wqSNvA8TVZJzZ2dDnFzNL3pZHFb6KICgMF52EPk2saT6X wdeVCigvgHT2DlYV
/qdJcr2eq3W6lFkKpNQam6YQ1amPcJDcZ05tuDi441GFLyOICsNNn1HknXxh gMGRRnFlicO4fxD1
Fy+s/q4syJ33SWPL1LexyWN4yrk0X0OfqSCo7SI8F5zoRJnm/SkYzb3vYYc0 J253y8AV9wS55nQO
4S6KQ/7GBx5rNh2BdFnNtnx6zcX5bIbAvTmSFLepuWmPFabh+zmKKsAfZWeH tdXBfk7Hkab2o4z1
mA1ecSwtn+EBCvNlAXIQYLM77NXYT4LVt7i4onJ7FVy6gL7mWjZCV02PtWex Edju2WexPp33QKvJ
eU4DbJ3vaO7H9XPlmfA6+Jj2C+/F3AmR+V2l1qTIxVEOlywYXloeV1+1ie0d oTbb9ikLWj3H3tla
IIpC9ucjE15zNubnMVj082vo0wjOLwFYgObAbKA5AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAACu
z/+BH87ZCoPmHsf/zlZYpLn/TWCKE+D5W/FnKyzU3AwvFyz5I4DmwGygOTAb aA7MBpoDs7mw5r69
d3qsuZbTn7YV0UlcWnO0tZk3JQ4113QKzR3Cj9LcNk1UzfGgCXcSGtzDLTSn dokTu6qx2MV7PWMS
lQ2/o6K/P+1OdLQern5IfIlMQ3tbuIPmyqfYcG8RXN1FXv5bv4iPsOhEVTWs 9S3sCTvWD2G83cGl
NVcu53WnwpHOYs21BPF2svxQ7df+rftvyXp2dd2NS2tu/Vl0Z+oH0RdxpLn2 7t5xP0dEHNmMfBGh
n9vBHTSXyCke51QianV16npOdV2RzXhMheJ28GM0t/d67uVgzIe/noPi9nAH zZEazoIxT174B/uh
dzVHyoTbt7zubq53IxeZz66xW3FhzX2/6GeX86FAc2A20ByYDTQHZgPNgdlA c2A20Fx5NvI+uv2x
x3iOXbbNgr7tC7wux+M1V/Tm2nG0YQ/UXLBWyi5cYbr9CwWfrrnau0Fzs4Dm XryaUb61tLzE1L4o
VqVZ85Y3npaZCpdXdqXqFesiZ/h2VbI21BvR7wg092KdSCMhq6IumyR817N+ 3bTPa95mzuq/wrl7
V3lZz0UmvtsCzb3goE1z3bBXhjkoeyqKNUfszUWaI7GeAJr7XlAna869EZzI qaPeTYrFBGvqRXg1
CcsBsfzkfCWaM1FBc98I6vx+jgb6OQrymr7OdYXqgxPjNgITFTT3jaDOelby wfUcR5pjLyntrT+2
Ks2hn/teUKc8E2Z930rxfWvwB2LlnBl3lwxULaqf5C2CuJUwltWCPkq62nsB zRmaLTm7mXnziTsA
zRmgua8DzSk6M5nTm5o3Hb4J0ByYDTQHZgPNgdlAcwW78xzzt3fAeyjQ3EK4 w1IiOMjwI6A50g9Y
lZ5izd19LdHZQHNl1QaLyQSxIRiJqQciscPd+9TZdXVDHq+5Mg1VVFXEVU6y /0fdZ3kg4+mak2s8
SM7Xv39UmnNblUB0u3i65ko/J9eXOM3psRb93Gc8XnPrgGqH2HJK/SgXnJxd S7cFmqO34sTl3Mj1
HBS3H2juxXrbqm9U4/tW1cdBe9uB5t5ARfOA5hbK38ecXfifDzS3gsnVWUBz YDbQHJgNNAdm83DN
zV8ix/1zPslwmNwwMu6Ss2R7D2oerjkKK2mHBoez7NPc9ki2aa53EJo7yAs0 B83VoOZrTv45fbJ7
HC0nxdR/+VCb3lBdp6I3plvdedNyDwGbhGRD2lC8BbuPXuhHvD3K7l5A7PPK I+KVQ5ELaK5d9NeH
XFBCLL4F24bI6dZgpxG5fYTKKjdlikzXD1ZmVsr1nA0lssDCVuJHJLOpOcrL DUeBi27FQ3PU0RyR
rVi/a4hMzupr0PrhBycp1VdzLApjwBYPZU9/L/KCQXPdor8+1gFD7ltDRkRs +i3VcKySq53mKOie
nD2VjF0Skax4o0YYsiOyfsw+ebabTvedktbMpj7JHnvtiofmSLRJb2ylpFXY n6TMQqvX88aJTEO2
ehrXzzXzRL3iSAfGyUEXalbx0Bx1xtbl2kWnS9pIXOcQNYSRjVvskhCJhpSG EqmkYyur6KJ87X6u
VWydrFvx0Nzrv41t4MRGckqR6lZwrW5mVfNm5F1zysHOJJN716kh2m1Ol9y3 2n30tB/3C2LumOO8
rrx+Gz7ct454uWDJNzDQuBcFmrsr0NyxQUFzfaC5Y4OC5n4y0ByYDTQHZgPN 3QNz9Ta45M89L7vE
RSA0l3FS8/DI4dHY+HMTXwCay4DmvsXjNTf+LlWzAi2YqWg9/9d21OxEayGe sE5yOl0GEizqMzEJ
y0nxZvJ0zclJVj1faues9Gymn0QdmKssdhqz6nIiLbRO5ALxQUclaRZvJtDc +svfmLUnilqcKJGW
yRXbCf3p8w3hhlFyElMapEg9k8drbsu7VOscvJzmJtecYvFbGcMaK1OihWlB Fn0k0VwcEwdedQlm
8njNvb8Pv0t19KRAH+FW8njMa6Xj0KTP1evGZwLNZe2WXs/Ff/YwfD2XOWoP loNjq45JjK3pBzS3
BDX7vrUONaRbI7pvFSNTvSpK3u0a3be6gTBbiCeNsDfCVp5sY6p7OArLunhB vzyh4h+uuVG6DXNC
h3FToLlBoLnDgOYGgeYOA5oDs4HmwGygOTAbaK4QbfG2Tk2w+BG7Dn8INLcQ vqewPMRim84CGY4D
zZGeWJLiMe9gsl9NSshuEGiurGWr729dezalOf1SQ7zSdT+P11yZ+pLTQyyX QRLJH/JXgFE68ALF
0zUn15WQmsUf0pzp/dDJjfB0zZV+rsz0D2oOr3TdzeM1tw6obojt9nPLj7Wf g+LGgOborTi5jkiM
nFTuKLrXc1DcINDci3LjoK/W5DNhPXzila77gebeQDLzgOYWxBJ08F2guRXM pM4CmgOzgebAbKA5
MBtoLnub2xa25Dp9Cd7OR4n9kDnKFOzg/3jNmRr5SHOcnWgd2q++qTl3OYsX 2jxdc7ZWoLkjnUFz
ruiqPuzrY+pSk/bGc7Wj9FvdRLu8GY/D+9y5XeaSrercvgFsjrJ1krhVmc2W dyomX3eurBhb16KT
qRW/uQJFWy6I4bjmEj9RbTb5b3Vk3sVqkqTuko3r0ni0PZ0t2K2uVXZqxhQk kYUtcYmKh+Ze+KrV
J8gfJZt2THMUmrA/Ones3TFFDkIjPspAmtQqOyduffF1WV8/4h5CFp2MApqa izeeUy8t5XpkTUmq
ZUl91S+W44472dTuSI023O/ORqnt6OK7std3y6pddzjUXHRLztBcLTqtlREO IUuyvG8JP8QFElFb
c9piz13YYSUOvD0dJWfJRvr4uHdMCwPNqaKv1ZIOIa8E5Wi88dxHY2ug4szd 8NgaDprpr5Vzu3Ns
VWHrskJzoujvGqkr4qiMD6Q6rGWEK5XH9v2rouHSTexEDr2ZK4sgGu6Uwlpb 1ZGxZ49yHQHz+1aX
2RTEbURbvimJ4Zmw8TLmhIdSHcZkd2e4heZ6QHNHA831gOaOBpoDs4HmwGyg OTAbaG4Y/WTVn9h7
8ABYPrL4xDFvSLsbaG4Y3nRin+Z2tjd3MrP70kgHzX2z6NvS31hzm+xDc98s +r//uify9qF9/VN9
Mg/kl9TyCMtJhGydHZGaIFd+uBEL6Xi0M173z3Pxi+x6hV9a5NYEBTfiG1xy /3TNpROUcqZTzX+6
1K0VaulkOI29NNZH59LayIL4nUF5hqLojcOOOR9mp+KhOXL1SOVrPKFNjVqn UCrxec6aLXQiv3Ks
FI7iJ2cwiI6Mpdh3YM65HKj4Z2suXnC2nEg1l75b1UzwZ+vsRl8amyyHoxHN xev9fMnIhR2LvLF8
UIyt0Fyn6MuX8DfVi6DVJGHnGBuVH9xwZ+yRStfXXN5xxiPhQAHTfphCi42K f7bmWsNg2s8t54jy
9h8ZW3MBdQfpjuZc/K5bbutKnuMBc8rlQMU/W3Ot+1bbz9lVYmtqdmbcC1ej +9Y6UpFuzN5yODHc
VWdCLI31fsyuZM4NG4f95YPmdr1f8Q/XHGgzIqKNQHOgCTR3bNHPLucdgOaO LfrZ5Xwo0ByYDTQH
ZgPNSfyjTndu4GCcjj+8NvrChdVJQHOSr2iOx5PuMnM7MUJzEmhuBo/XXPAI nsLJgM4ze/GoX88Z
6FkCuxiAl5TH7nF3bZ6uuWwutTdX6uYm7cKPLKmZTltSOlODc7V25vYWQHMv 4ulte44aGWSL9zVH
OpN2ytTxD819Iaj5mpMT5euI6c4RDWiusadbndgnZdM4Zer47+5xd22guRe6 k0m7O+prrje2sj0V
pmz7F2s+CJo7KKhzr+fMWrDB6zkq53lIc6qfi64lP9jj7to8XXPhbai4fdXn sgzitF9bl9y3aqEe
u8fdtXm85i7BPbRyFNDcFYDmTgea+9FAc2A20ByYDTQHZgPNFcRfy9tjLJ9+ 3Gg2/ZpAcwvRy9Dq
n4OyOQA+AJojM10qUmiplS8tzUGOfaC5sqscl1mAtWdTUnsNqurNNaoTrK+W eec4uw4vzOM1VxZo
rGpa1cdOcyT+Uz5F0vISp7Pr7+I8XXNl5rzOvZMVkdJcuYcQk6ku+dkVeG2e rrnSz8mlaC3NUT2k
9SbEeHb9XZzHa24dKt0Q29Zc3sdBcT2gOXorzl+okX5W0tecXBEHcqC5F+Vu oNx71rtRTsZWe0b1
cNBeDjT3hoNv4DtAcwtyGS74KtDcCqZSZwHNgdlAc2A20ByYDTR3xDOO1gNh f4jPvnTc+RyxH3JU
fHZ/Bvl4zZn6+Ehz3DjXOLJffVNz7nIWrbJ5uuZsnUBzxzqD5kzRVW1kG8pt 3BtOvxzVb2bnfdoN
5FKH7t2t6k11OiJtz+8+oJ0kblVmXTpfUF17rqwYW99Ft3VSdnhQ24W4o3In h5KLKEjmM7wtNl9m
mDrUG1GYNX/xfiqkE4hCcpIsLj01YwqSyMKWuErFQ3OlTlx7ihPkj5JNGzVu 0A72d5+dl9ghU2bY
5I7tNeKk0LLPzK1AXAylmLiHqEUn0/5NzY3tDbdJc2ZnHu44lE3tjoh758he Fmdjt7wgs3TrumoV
toYJmluKTmtVhAPIkizvWaKPbZpLT7f6FNvGFFnw9tI4U7c+c9qJOsO6rNBc KfpaKekA8kpQjo7s
Dbd5bA10nDkcHlvDQTP9xXJud46tKmxdVmiuFP1dH/XvG6iMDiRrfXxvOG2G ykDjdrDTx1mE0XBo
DFNVYue+1R7lOgLm960usymIK2j5piSGZ8LKy5gTHkp1INMdznYLzfWA5o4G musBzR0NNAdmA82B
2UBzYDbQ3DD6uao/sffgAbB8YPGJY96QdjfQ3DC86cQ+ze1sb+5kZvelkQ6a +2bRt6W/seY22Yfm
vln0f/91z+PtI/v6l/pkHscvqeURllMI2To7IjU9rvxwIxbS8WhnvO6f5+IX 2c27Y7Mit6YnuBHf
4IL7p2sunZ6U85xq9tOlbq1PS6fCidV/7Xq2fPLUpbWRBfE7g/IMRdEbhx1z PsxOxUNz5OqRytd4
OpsatU6hVOLznDVb6ER+5VgpHMVPzmAQHRlLse/AnHM5UPHP1ly83Gw5kWrO rzpzk/msjer1a+tP
rM54zSWL4WhEc/F6P18ycmHHIm8sHxRjKzTXKfryJfxN9SJoNUnYOcZG5Qc3 3Bl7pNL1NZd3nPFI
OFDAtB+m0GKj4p+tudYwmPZzyzmivP1HxtZcQN1BuqM5F7/rltu6kud4wJxy OVDxz9Zc677V9nN2
jdiamp0ZfbCeYONCn1nbrLcYTgx31ZkQS2O9H7MrmXPDxmF/+aC5Xe9X/MM1 B9qMiGgj0BxoAs0d
W/Szy3kHoLlji352OR8KNAdmA82B2UBzEv+o050bOBin4w+vjerjif1hXANo TvIVzfF40r1moLnP
g4LmtpmB5j4P6qx5CDHH0J1DSLarc3MGepbALgbgJeXRe9xdmadrLptL7c2V urlJu/AjS2qm05aU
zlTLv07mM1wdaO5FPL1tz1Ejg2zvvuZIZ9JOmdr+ufFxB6C5Fywnytehyp0j GtBcY0e3OrFPyqZx
ytT2D819I6hT+jlKmjD9CDXXG1vZngpTNv1Dc98I6tzrObMWbPB6jsp5HtKc 6ueiS7OP9ri7Mk/X
XHgb+v4wd6r6p3S7Or+2Lrlv1UI9eo+7K/N4zV2COyjlOKC5KwDNnQ4096OB 5sBsoDkwG2gOzAaa
e1N3whFPxtYTFBwHu4Hm3oxrDrr7FGiO6vP/VXMSqTky5yG/XUBzpnuTX5bv 8vg6tVDmDV4fZ1fY
vXi85sqbl6i+E6nq6z2lJI6pf4RLvD08XXNqll32cyP/3jnPrq3b8XTN6X6O RvVWVrehn9vO4zWX
Xc+N9XFQ3A6gOfL3rfp6rvHv7Iq6J9Dcm9Z9q+7f5H3rmvnsCrsX0FwDDJ1f AZpLiJ4Pg0OA5jIG
NwEHm4HmwGygOTAbaA7M5uGaSyewuPGTh8eStVxstsQbjrYN+nMsZlp2GOwA zb34UHMDyXgs9YDm
mmtZ9kihHxq3Mm12+XDNpQ14ec3tObk7NGjuKC9ac2rvN3FE/9TaG05mIpl/ zRL/5f/wDnhq87nk
XTlsD0Qb5enT1hkpQSUuayZ3cqDin605tSGN2OihKsT8JKRDMg3Vb/4cax82 k9vVhActZfnDD1NC
Spy9bJaVhJnL/ORIxUNzgR56O9KkeyaJD5GfMsMUSCc27zL08rvTpgSUOFNf 0+ADE9DcSNFfH7zu
SWPf10r6V92fX7KRbguxt6vdt84bFnn7O+BJZ9qNzp/sl2d/a+xwH2nO7B1k yxJWyUDFQ3PvRiRa
P7LByZxfGRhbU8PU10borBdC3y5nzozD7DTG1l1e1jWb5b/usou5U8FOPkum 9SfuGKbAPkeWApn0
83eOc+isVgn1S41+bqMXpblg4Kp3Z35gW40EY6sYd0lkZGtYj40DO+BpS838 jeOsA81C0qUWZl0F
4b51g5cLlvwRQHNgNtAcmA00B2YDzYHZQHNgNtBcwuit/2A67px0z3Kp89P4 o4k0GM5OfFpebueA
5hJmac61P2/Kt4tPjEJzH3mB5nYYheY+8vJeP2ffKUNkZhCI5Il3yjJ3YdLV v/03Js2qtXJev901
XrknHUd+w48o6BqaX1NXY+qZUZmi1K5OzDTF4zXXn4skakx12nScmVQHA5Pt SVA/r9uYWM2D1qsD
4wL1zNgi+dS+7vR07OM1R3m7mXon2/R5+xgj1LFlJUAt/9s8kLMWZWSXzN+t eM1Rlprb0UBz+lc3
WDL3wi5Sex906bqaa7/dVafSo2nQ85h5+PpZk5GzZkRjC6THT/JOXfZgJPV1 IgdXaC4XCOv0+nyc
rqe5/tga97PUiW+8Q42HSW2m07mm4TVjg+aocz3XE0hwVBxpmRzo55ga15N7 PKT9nDhHw2VPRZzW
iQiKoDlxPynGCDdi+Hs3CtOx/GfX3b1/skOeFly0cs87dtGqDzMgi7VxYuBT 8ajwx+9bs9RBndSg
oDn+2AzYCjQHZgPNgdk8XXNgPtAcmA00B2YDzUnMM1/wFaA5CTQ3A2hOAs3N 4PGaG9j9DRzL0zXX
moGE6L4DNPfCTWATQXPfApp70dr9DRwMNPdCLbshjK1fBZpLF4ehn/sST9dc Z/c3yO4LPF5zYDrQ
HJgNNAdmA82B2UBzYDYX1Rz4yVxTc/+bwBQnwHNVzc3wcsGSPwJoDswGmgOz gebAbKA5MJvram5Z
1iFWd4QLPZj3rnTT70bHhP40foDm7JlR6ZS9wKC5uVxXc15NY5ob7vTWvcAI mpvLLTRXl7TJ7c1E
PygOyf++P9jtMbcWnaC5M7iD5sqn+feCs7N1Z3rmMOt6PcfQ3FwurLnaQckt Kb3mRPeVaC7IRtDc
adxCc0FHpfq5um/4Hs0RQ3NTuYPm0h5sSaSPQHNX58qaE3swf3Y9F2etz+cY mpvJHTRHYtS0N58k
Zem+604wvm8lqn9ciD+knsGlNfftop9dzocCzYHZQHNgNtAcmA00B2ZzUc2B n8w1NXf2nyaB73K2
wgLNnV0l4MucrTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAcHMGtvIN
zvt3ggEwit1IP0kSHoLkwB786wkB+C7ZS+TEK+OWrlC+L85swQ/hgg3Yt4f4 j/W9D0EqdwqAPl5z
8lIte4dS+nYcALrInky9h9WehebAQbhXxdXBkqA58A3sG+H2XM9Bd2AL9Zlw fN9KSmfJfSs0B44H
ggKzgebAbKA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcFC5/zf8t B19MPc0sZ2a48dOU
kn1qfXPLH1AOdl8OdnYJzX3q4CKa4x1n+iahuS8DzbmM52uuDLTL/hH/vnD9 rjc5UUfWjSdqztdm
AMWaz2GOvFPX8zoKsSVtaLYdU1IKdTI3xUF0wRFumzCRUOi3BkUyswu+Fcem CtJN087nQzZlHFKk
vZ6rWbm2OalITGvVIyyTU/STzWFPsDqvopDtEJltx9QrBfdDs9ElR9omSiZO /NJIfCNxjFZQ3gI+
n67R4GOsE7T9XP1dzLTCUfqgQKGB0EbcXKSj0JrLNZzFpINoNgI18m/Mm4WQ 5q3lDqrG5KRWHOMV
lCrItVCYl8KgWjjNrb0ei++R5vyQN6o5nWM9JDKK8yzSq1DlL5ccdNOYZBB5 zDa0WgVxEvbenIkB
zbEdXGtZXRPULY2oGcdwBWUtbfIZzenRcdOzj6ifK62daUnkyX/fWv2c95n8 WvqeiRKzvZjiUoz0
CK0kHNXHZs2ZahWa29DzpC3RqyBu1IY2mKbxTdsi0pz5N9JaryPcrtJWq/mL wDCaWk89FbiY7O9w
UoP5iU4S2mIi9+tbhVs58zhGKyiIIzXYarNA3anm7DNhOZCJmzYi06O37hHl SVYflNgglUz3bdl9
K7lRpn3fKkshiysbk109iPvWOK+7b+2ZCJTD8lZJftF3knktunoYryBSRtN8 rlNictEMau5Apnrc
2o3fgkBzn9ualO8coLnDCnWS5s7pq2aX8tvO7lWDa9BHRL3LRvdNcAAAAAC4 LocP45yZ5Tz1jLjA
D4cHj+WnoTnwOdDc47ELzOyT72xhmT6h18yJx+4iZbU9ur7NrwsDP4FogZla tZlN2emJumjqzZxz
KTP38ZQe+DFkM9Dx/DA1kpH6Oj7F7N2n+cGPYFBznbVZYkJ/RHNj69uguR/K mObSvsouNhju5zru
0c/9YKJGj6/OmtdzFGQcGls5To1+7gfjJKLXUJmDRNl9q8pYMolea82b37dW aUfLuCC7n81A+x4k
ASgJDA9l0Bw4jrFHsNAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABO Q+6BH5y1fzmtTvnE
1LE0knKD0TApd86P2DdHoxrqBbbL22F/H7KpunsVdzCce3OR9DQ3Uq7NeQ9M ultzGzJ+6C1t/a16
2FTd0Fwj32dJobl24rmao2CLBzb7Opj3ntTEZQc6Xn8KtqarZszf9YuPai3c ga66NPbLn/+T20JA
5Qi9hqllUZcvdvsCnST4ussbSwNiG4Rk/4Ng+79qUvniMEYVVVyiss1C5w2v m0THtasLtxWp/4/3
L1En5btJyZ1Qpp0jaY0ip3F4kY88R1I8kzp9L2u4SV9efZu9GWtVnGx8RHVM ziRHP6VN3EySyGBv
52i3FUk051sgTNw+krUHNayZZDp57NHn0F7JFC9J7TUXlq2nuXFvw5qjrJzO l8/YiCqt3175d6hu
WHN665ztmote+xm8i1R/mLfgUc2derTvzdNb4w2pwL7kdFhzH3iTqdV7axPN ue3/mprb9HracBfA
sGF2qG2L5rifuHkk7AOoY82kDpO6gJPf/w0qUMFt7Of2evPWmv2cr4OW5lox DjZs2DDf11y6I/Cg
5rhZF9wvYRwK526Cdu0p1FXIRs3t9WY7plRzHNRBc/NSTpKE7UvkbEeVLn81 NomO6y0Mi2NkL8nV
60vV+8t9s69p1phEN63fPd29b412oFM3tdK5vQszOUKvsX02UanUUZId962R NyEpc99oI7J14F8s
G0XdjMolESeMCV/+mRzr9JQi3JAz6+n8NoLmzgCau6q1n8uzNQcAAACAAVh+ 7Bu/2VgxphsHNgeY
nwdXhLtH9zdfTxgf2O9lSl1/T4yQ+Sh9zX1sG5oDEv0MvLkSzU8D5JMHtIyt xgqp4zKhSpUv89q4
VK6/Di1fD5aU0s5GlDTL03qmsx7O3wczvdJaiRZO1b2ONCb32CUO0rucyWRl J0CTQ5eOsrlyHvBc
StmIl0nZAimq+4l0Q43WIHdENbezQt2EwpyMrhEg6XC2ay4vZZg0FptOCs01 WQeHVHN+wVxn0Zsb
MqsVolwwdhSs0bUD7C6VG1mHVjpLtc6BbOBJchP2vkVlD8LXpO+hKNQBJQ1H Kq+yQtY6JTnj3qbX
EVOWcfk+1M+RCzWtqbQXRj/XRFwObR9b5ZVOM286tiY5va+Plso1x9bh6zlK Ag1+I6C5FmLRlKq0
YLWXHnVG7lutFaJsKFXDdXT32ApQ9Tnb1qHl68GCUqrIXbxikXjQZ4JjuXn1 3jz8Z3LzRrt5+M/k
5o128/ABAAAAAAAAAAAAwD34fzxOoLcOmm7oAAAAAElFTkSuQmCC
------=_NextPart_000_0017_01C5C4DB.BBD9C420--
Attached files
------=_NextPart_000_0017_01C5C4DB.BBD9C420
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0018_01C5C4DB.BBD9C420"
------=_NextPart_001_0018_01C5C4DB.BBD9C420
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Xevi,=20
Es que =E9l pregunto por la l=EDnea espec=EDficamente:
>marcado, esa >>>
<<< me aparezca en color rojo. =BFEs posible? =BF Por donde=20
Para pintar una celda en concreto. En la documentaci=F3n podr=E1s ver lo =
siguiente:
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:433b9871$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>=20
> Ignacio,
>=20
> Esto "pinta" TODA la l=EDnea (Row), todo el registro!!!
> Pero... =BFcomo coloreamos una celda en concreto????
> OnDawCell ???? no est=E1 implementada, creo.
>=20
>=20
>=20
> Un Saludo,
> Xevi.
>=20
>=20
> "Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje=20
> news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>>
>> Paco,
>>
>> Es muy sencillo, tan s=F3lo tienes que capturar el evento OnDraRow() =
del=20
>> Browse.
>>
>> Algo as=ED:
>>
>> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>>
>> if ::oDbf:LoQueSea > nMiNumero
>> oSender:nClrPane :=3D clRed
>> else
>> oSender:nClrPane :=3D clWindow
>> endif
>>
>> RETURN Nil
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el mensaje=20
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un =
valor=20
>>> marcado, esa fila me aparezca en color rojo. =BFEs posible? =BF Por =
donde=20
>>> puedo enredar o existe alg=FAn ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>>=20
>=20
>=20
>
------=_NextPart_001_0018_01C5C4DB.BBD9C420
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV>Xevi, </DIV>
<DIV>Â</DIV>
<DIV>Es que =E9l pregunto por la l=EDnea espec=EDficamente:</DIV>
<DIV>Â</DIV>
<DIV>>marcado, esa >>></DIV>
<DIV align=3Dleft><STRONG></STRONG>Â</DIV>
<DIV><<< me aparezca en color rojo. =BFEs posible? =BF Por =
donde </DIV>
<DIV>Â</DIV>
<DIV>Para pintar una celda en concreto. En la documentaci=F3n podr=E1s =
ver lo=20
siguiente:</DIV>
<DIV>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:001201c5c4ca$f84c1220$0e00000a@ozlan.local"=20
align=3Dbaseline border=3D0><BR></DIV>
<DIV>Â</DIV>
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
href=3D"news:433b9871$1@ozsrvnegro.ozlan.local">news:433b9871$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>>=20
<BR>> Ignacio,<BR>> <BR>> Esto "pinta" TODA la l=EDnea (Row), =
todo el=20
registro!!!<BR>> Pero... =BFcomo coloreamos una celda en =
concreto????<BR>>=20
OnDawCell ???? no est=E1 implementada, creo.<BR>> <BR>> <BR>> =
<BR>> Un=20
Saludo,<BR>> Xevi.<BR>> <BR>> <BR>> "Ignacio Ortiz de =
Z=FA=F1iga" <<A=20
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>> =
escribi=F3 en=20
el mensaje <BR>> <A=20
href=3D"news:433b9524@ozsrvnegro.ozlan.local">news:433b9524@ozsrvnegro.oz=
lan.local</A>...<BR>>><BR>>>=20
Paco,<BR>>><BR>>> Es muy sencillo, tan s=F3lo tienes que =
capturar el=20
evento OnDraRow() del <BR>>> Browse.<BR>>><BR>>> Algo=20
as=ED:<BR>>><BR>>> METHOD BrwDrawRow( oSender, nRowPos ) =
CLASS=20
TForm1<BR>>><BR>>>ÂÂ if ::oDbf:LoQueSea >=20
nMiNumero<BR> >>ÂÂÂÂ& ;nbsp; oSender:nClrPane =
:=3D=20
clRed<BR>>>ÂÂ =
else<BR> >>ÂÂÂÂ& ;nbsp;=20
oSender:nClrPane :=3D clWindow<BR>>>ÂÂ=20
endif<BR>>><BR>>> RETURN Nil<BR>>><BR>>> "Paco =
V."=20
<<A=20
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <BR>>> <A=20
href=3D"news:433ae026$1@ozsrvnegro.ozlan.local">news:433ae026$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...<BR>>>>=20
Quisiera hacer lo siguiente:<BR>>>><BR>>>> En un =
dBFBrowse,=20
hacer que si un campo de un registro supera un valor <BR>>>> =
marcado,=20
esa fila me aparezca en color rojo. =BFEs posible? =BF Por donde =
<BR>>>>=20
puedo enredar o existe alg=FAn ejemplo?<BR>>>><BR>>>>=20
Gracias<BR>>>><BR>>>> Paco=20
V<BR>>>><BR>>><BR>>> <BR>>> <BR>> <BR>>=20
<BR>></BODY></HTML>
------=_NextPart_001_0018_01C5C4DB.BBD9C420--
------=_NextPart_000_0017_01C5C4DB.BBD9C420
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <001201c5c4ca$f84c1220$0e00000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAnMAAAIbCAMAAAC3yegLAAAAB3RJTUUH1Qkd BzQ6WS32zwAAAAlw
SFlzAAAOwwAADsMBx2+oZAAAAARnQU1BAACxjwv8YQUAAAAYUExURf///wAA AOzp2KyomcDAwAAA
ZszMzGZmZuf+ZQEAACJOSURBVHja7Z2NgpyqsoWr7slO3v+Nb9KtUL+Ato06 ru+c7O5RqCpgDagw
SL8AmAudHQB4HNAcmA00B2YDzYHZQHNgNtAcmA00B74FGcrx139Zon8eM99K O2xkr4NfW6MdNb0c
PqQAD4T+U4xrbqS624kPaLJONJt/RQZNQ3Mf8U3NdVJ/3mS9cDb+igxnheY+ gv57Dam///6Pfv+2
mnshqrZ8HWnFkqbdW+yn2O2qerPo2rFDcx9B//3+B73+O645We2iM1CfKl/N FpkILP6SSlntcZjT
HHHpnPESCXv/aezc8g828B5b//Z24dj6oqM5OQLJdgs6CD1apZpb0uikPifr wDhLZ7IUXYqv47FH
kYNt0H9//vz5Jzj6+/ln89gq9PGrdgW2q6i5A4FmmjNJfU7lwGou7gil0Eop tsUeRA628XdspaWv
+8uA5lxPolXQazeXJ9Kc+ghyurhM19fUnPM5ErsLxwUAhvl3Pbfcs/7+M3I9 F49eG9otacC4PeM0
v7If8sEv6Bp/bdOcNwPN7ePVz9HSzW3q53S1rwOsGmi1q3rgGppjKbN+7KLY 0NxH/NXcnz+/X73c
n6F+rn5TjXM3zVkJQXPz2NzP6a9tzQUDmc/7ieaC+9bAVhyuGlbHY4/Ngw3Q 0sENX8/pr1JHv5Yj
v7xAdEMedD0XBJZqLrFTDg/E7h1Dc/t493Mr+8dWeQ1u7mnVKXG8fuR3sz3N iUcpQTrVrUV2TP52
7DUDNPcR7fnWF0P3EEG7/QoSB3nTo/4j+FHlDbWUnDc6H449CANso72W6cWY 5qK+yLT4r1wA+zQX
OTDp4vM244bYozDAIXQ1F52zh8TzCPmztfs+tkdz1kGqOVcUjpw2Y/elhuaO BeuEwWygOTAbaA7M
BpoDs4HmwGygOTAbaA7MBpoDsyEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAA4FYsu5DP8TU/7/ZsvNUEZ8l42Myc6r8MM6viBM1tN7DZETS3FWju U0fQ3FZYfPJrqH19
4fq9Drx/v3FJqU8wqSNvA8TVZJzZ2dDnFzNL3pZHFb6KICgMF52EPk2saT6X wdeVCigvgHT2DlYV
/qdJcr2eq3W6lFkKpNQam6YQ1amPcJDcZ05tuDi441GFLyOICsNNn1HknXxh gMGRRnFlicO4fxD1
Fy+s/q4syJ33SWPL1LexyWN4yrk0X0OfqSCo7SI8F5zoRJnm/SkYzb3vYYc0 J253y8AV9wS55nQO
4S6KQ/7GBx5rNh2BdFnNtnx6zcX5bIbAvTmSFLepuWmPFabh+zmKKsAfZWeH tdXBfk7Hkab2o4z1
mA1ecSwtn+EBCvNlAXIQYLM77NXYT4LVt7i4onJ7FVy6gL7mWjZCV02PtWex Edju2WexPp33QKvJ
eU4DbJ3vaO7H9XPlmfA6+Jj2C+/F3AmR+V2l1qTIxVEOlywYXloeV1+1ie0d oTbb9ikLWj3H3tla
IIpC9ucjE15zNubnMVj082vo0wjOLwFYgObAbKA5AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAACu
z/+BH87ZCoPmHsf/zlZYpLn/TWCKE+D5W/FnKyzU3AwvFyz5I4DmwGygOTAb aA7MBpoDs7mw5r69
d3qsuZbTn7YV0UlcWnO0tZk3JQ4113QKzR3Cj9LcNk1UzfGgCXcSGtzDLTSn dokTu6qx2MV7PWMS
lQ2/o6K/P+1OdLQern5IfIlMQ3tbuIPmyqfYcG8RXN1FXv5bv4iPsOhEVTWs 9S3sCTvWD2G83cGl
NVcu53WnwpHOYs21BPF2svxQ7df+rftvyXp2dd2NS2tu/Vl0Z+oH0RdxpLn2 7t5xP0dEHNmMfBGh
n9vBHTSXyCke51QianV16npOdV2RzXhMheJ28GM0t/d67uVgzIe/noPi9nAH zZEazoIxT174B/uh
dzVHyoTbt7zubq53IxeZz66xW3FhzX2/6GeX86FAc2A20ByYDTQHZgPNgdlA c2A20Fx5NvI+uv2x
x3iOXbbNgr7tC7wux+M1V/Tm2nG0YQ/UXLBWyi5cYbr9CwWfrrnau0Fzs4Dm XryaUb61tLzE1L4o
VqVZ85Y3npaZCpdXdqXqFesiZ/h2VbI21BvR7wg092KdSCMhq6IumyR817N+ 3bTPa95mzuq/wrl7
V3lZz0UmvtsCzb3goE1z3bBXhjkoeyqKNUfszUWaI7GeAJr7XlAna869EZzI qaPeTYrFBGvqRXg1
CcsBsfzkfCWaM1FBc98I6vx+jgb6OQrymr7OdYXqgxPjNgITFTT3jaDOelby wfUcR5pjLyntrT+2
Ks2hn/teUKc8E2Z930rxfWvwB2LlnBl3lwxULaqf5C2CuJUwltWCPkq62nsB zRmaLTm7mXnziTsA
zRmgua8DzSk6M5nTm5o3Hb4J0ByYDTQHZgPNgdlAcwW78xzzt3fAeyjQ3EK4 w1IiOMjwI6A50g9Y
lZ5izd19LdHZQHNl1QaLyQSxIRiJqQciscPd+9TZdXVDHq+5Mg1VVFXEVU6y /0fdZ3kg4+mak2s8
SM7Xv39UmnNblUB0u3i65ko/J9eXOM3psRb93Gc8XnPrgGqH2HJK/SgXnJxd S7cFmqO34sTl3Mj1
HBS3H2juxXrbqm9U4/tW1cdBe9uB5t5ARfOA5hbK38ecXfifDzS3gsnVWUBz YDbQHJgNNAdm83DN
zV8ix/1zPslwmNwwMu6Ss2R7D2oerjkKK2mHBoez7NPc9ki2aa53EJo7yAs0 B83VoOZrTv45fbJ7
HC0nxdR/+VCb3lBdp6I3plvdedNyDwGbhGRD2lC8BbuPXuhHvD3K7l5A7PPK I+KVQ5ELaK5d9NeH
XFBCLL4F24bI6dZgpxG5fYTKKjdlikzXD1ZmVsr1nA0lssDCVuJHJLOpOcrL DUeBi27FQ3PU0RyR
rVi/a4hMzupr0PrhBycp1VdzLApjwBYPZU9/L/KCQXPdor8+1gFD7ltDRkRs +i3VcKySq53mKOie
nD2VjF0Skax4o0YYsiOyfsw+ebabTvedktbMpj7JHnvtiofmSLRJb2ylpFXY n6TMQqvX88aJTEO2
ehrXzzXzRL3iSAfGyUEXalbx0Bx1xtbl2kWnS9pIXOcQNYSRjVvskhCJhpSG EqmkYyur6KJ87X6u
VWydrFvx0Nzrv41t4MRGckqR6lZwrW5mVfNm5F1zysHOJJN716kh2m1Ol9y3 2n30tB/3C2LumOO8
rrx+Gz7ct454uWDJNzDQuBcFmrsr0NyxQUFzfaC5Y4OC5n4y0ByYDTQHZgPN 3QNz9Ta45M89L7vE
RSA0l3FS8/DI4dHY+HMTXwCay4DmvsXjNTf+LlWzAi2YqWg9/9d21OxEayGe sE5yOl0GEizqMzEJ
y0nxZvJ0zclJVj1faues9Gymn0QdmKssdhqz6nIiLbRO5ALxQUclaRZvJtDc +svfmLUnilqcKJGW
yRXbCf3p8w3hhlFyElMapEg9k8drbsu7VOscvJzmJtecYvFbGcMaK1OihWlB Fn0k0VwcEwdedQlm
8njNvb8Pv0t19KRAH+FW8njMa6Xj0KTP1evGZwLNZe2WXs/Ff/YwfD2XOWoP loNjq45JjK3pBzS3
BDX7vrUONaRbI7pvFSNTvSpK3u0a3be6gTBbiCeNsDfCVp5sY6p7OArLunhB vzyh4h+uuVG6DXNC
h3FToLlBoLnDgOYGgeYOA5oDs4HmwGygOTAbaK4QbfG2Tk2w+BG7Dn8INLcQ vqewPMRim84CGY4D
zZGeWJLiMe9gsl9NSshuEGiurGWr729dezalOf1SQ7zSdT+P11yZ+pLTQyyX QRLJH/JXgFE68ALF
0zUn15WQmsUf0pzp/dDJjfB0zZV+rsz0D2oOr3TdzeM1tw6obojt9nPLj7Wf g+LGgOborTi5jkiM
nFTuKLrXc1DcINDci3LjoK/W5DNhPXzila77gebeQDLzgOYWxBJ08F2guRXM pM4CmgOzgebAbKA5
MBtoLnub2xa25Dp9Cd7OR4n9kDnKFOzg/3jNmRr5SHOcnWgd2q++qTl3OYsX 2jxdc7ZWoLkjnUFz
ruiqPuzrY+pSk/bGc7Wj9FvdRLu8GY/D+9y5XeaSrercvgFsjrJ1krhVmc2W dyomX3eurBhb16KT
qRW/uQJFWy6I4bjmEj9RbTb5b3Vk3sVqkqTuko3r0ni0PZ0t2K2uVXZqxhQk kYUtcYmKh+Ze+KrV
J8gfJZt2THMUmrA/Ones3TFFDkIjPspAmtQqOyduffF1WV8/4h5CFp2MApqa izeeUy8t5XpkTUmq
ZUl91S+W44472dTuSI023O/ORqnt6OK7std3y6pddzjUXHRLztBcLTqtlREO IUuyvG8JP8QFElFb
c9piz13YYSUOvD0dJWfJRvr4uHdMCwPNqaKv1ZIOIa8E5Wi88dxHY2ug4szd 8NgaDprpr5Vzu3Ns
VWHrskJzoujvGqkr4qiMD6Q6rGWEK5XH9v2rouHSTexEDr2ZK4sgGu6Uwlpb 1ZGxZ49yHQHz+1aX
2RTEbURbvimJ4Zmw8TLmhIdSHcZkd2e4heZ6QHNHA831gOaOBpoDs4HmwGyg OTAbaG4Y/WTVn9h7
8ABYPrL4xDFvSLsbaG4Y3nRin+Z2tjd3MrP70kgHzX2z6NvS31hzm+xDc98s +r//uify9qF9/VN9
Mg/kl9TyCMtJhGydHZGaIFd+uBEL6Xi0M173z3Pxi+x6hV9a5NYEBTfiG1xy /3TNpROUcqZTzX+6
1K0VaulkOI29NNZH59LayIL4nUF5hqLojcOOOR9mp+KhOXL1SOVrPKFNjVqn UCrxec6aLXQiv3Ks
FI7iJ2cwiI6Mpdh3YM65HKj4Z2suXnC2nEg1l75b1UzwZ+vsRl8amyyHoxHN xev9fMnIhR2LvLF8
UIyt0Fyn6MuX8DfVi6DVJGHnGBuVH9xwZ+yRStfXXN5xxiPhQAHTfphCi42K f7bmWsNg2s8t54jy
9h8ZW3MBdQfpjuZc/K5bbutKnuMBc8rlQMU/W3Ot+1bbz9lVYmtqdmbcC1ej +9Y6UpFuzN5yODHc
VWdCLI31fsyuZM4NG4f95YPmdr1f8Q/XHGgzIqKNQHOgCTR3bNHPLucdgOaO LfrZ5Xwo0ByYDTQH
ZgPNSfyjTndu4GCcjj+8NvrChdVJQHOSr2iOx5PuMnM7MUJzEmhuBo/XXPAI nsLJgM4ze/GoX88Z
6FkCuxiAl5TH7nF3bZ6uuWwutTdX6uYm7cKPLKmZTltSOlODc7V25vYWQHMv 4ulte44aGWSL9zVH
OpN2ytTxD819Iaj5mpMT5euI6c4RDWiusadbndgnZdM4Zer47+5xd22guRe6 k0m7O+prrje2sj0V
pmz7F2s+CJo7KKhzr+fMWrDB6zkq53lIc6qfi64lP9jj7to8XXPhbai4fdXn sgzitF9bl9y3aqEe
u8fdtXm85i7BPbRyFNDcFYDmTgea+9FAc2A20ByYDTQHZgPNFcRfy9tjLJ9+ 3Gg2/ZpAcwvRy9Dq
n4OyOQA+AJojM10qUmiplS8tzUGOfaC5sqscl1mAtWdTUnsNqurNNaoTrK+W eec4uw4vzOM1VxZo
rGpa1cdOcyT+Uz5F0vISp7Pr7+I8XXNl5rzOvZMVkdJcuYcQk6ku+dkVeG2e rrnSz8mlaC3NUT2k
9SbEeHb9XZzHa24dKt0Q29Zc3sdBcT2gOXorzl+okX5W0tecXBEHcqC5F+Vu oNx71rtRTsZWe0b1
cNBeDjT3hoNv4DtAcwtyGS74KtDcCqZSZwHNgdlAc2A20ByYDTR3xDOO1gNh f4jPvnTc+RyxH3JU
fHZ/Bvl4zZn6+Ehz3DjXOLJffVNz7nIWrbJ5uuZsnUBzxzqD5kzRVW1kG8pt 3BtOvxzVb2bnfdoN
5FKH7t2t6k11OiJtz+8+oJ0kblVmXTpfUF17rqwYW99Ft3VSdnhQ24W4o3In h5KLKEjmM7wtNl9m
mDrUG1GYNX/xfiqkE4hCcpIsLj01YwqSyMKWuErFQ3OlTlx7ihPkj5JNGzVu 0A72d5+dl9ghU2bY
5I7tNeKk0LLPzK1AXAylmLiHqEUn0/5NzY3tDbdJc2ZnHu44lE3tjoh758he Fmdjt7wgs3TrumoV
toYJmluKTmtVhAPIkizvWaKPbZpLT7f6FNvGFFnw9tI4U7c+c9qJOsO6rNBc KfpaKekA8kpQjo7s
Dbd5bA10nDkcHlvDQTP9xXJud46tKmxdVmiuFP1dH/XvG6iMDiRrfXxvOG2G ykDjdrDTx1mE0XBo
DFNVYue+1R7lOgLm960usymIK2j5piSGZ8LKy5gTHkp1INMdznYLzfWA5o4G musBzR0NNAdmA82B
2UBzYDbQ3DD6uao/sffgAbB8YPGJY96QdjfQ3DC86cQ+ze1sb+5kZvelkQ6a +2bRt6W/seY22Yfm
vln0f/91z+PtI/v6l/pkHscvqeURllMI2To7IjU9rvxwIxbS8WhnvO6f5+IX 2c27Y7Mit6YnuBHf
4IL7p2sunZ6U85xq9tOlbq1PS6fCidV/7Xq2fPLUpbWRBfE7g/IMRdEbhx1z PsxOxUNz5OqRytd4
OpsatU6hVOLznDVb6ER+5VgpHMVPzmAQHRlLse/AnHM5UPHP1ly83Gw5kWrO rzpzk/msjer1a+tP
rM54zSWL4WhEc/F6P18ycmHHIm8sHxRjKzTXKfryJfxN9SJoNUnYOcZG5Qc3 3Bl7pNL1NZd3nPFI
OFDAtB+m0GKj4p+tudYwmPZzyzmivP1HxtZcQN1BuqM5F7/rltu6kud4wJxy OVDxz9Zc677V9nN2
jdiamp0ZfbCeYONCn1nbrLcYTgx31ZkQS2O9H7MrmXPDxmF/+aC5Xe9X/MM1 B9qMiGgj0BxoAs0d
W/Szy3kHoLlji352OR8KNAdmA82B2UBzEv+o050bOBin4w+vjerjif1hXANo TvIVzfF40r1moLnP
g4LmtpmB5j4P6qx5CDHH0J1DSLarc3MGepbALgbgJeXRe9xdmadrLptL7c2V urlJu/AjS2qm05aU
zlTLv07mM1wdaO5FPL1tz1Ejg2zvvuZIZ9JOmdr+ufFxB6C5Fywnytehyp0j GtBcY0e3OrFPyqZx
ytT2D819I6hT+jlKmjD9CDXXG1vZngpTNv1Dc98I6tzrObMWbPB6jsp5HtKc 6ueiS7OP9ri7Mk/X
XHgb+v4wd6r6p3S7Or+2Lrlv1UI9eo+7K/N4zV2COyjlOKC5KwDNnQ4096OB 5sBsoDkwG2gOzAaa
e1N3whFPxtYTFBwHu4Hm3oxrDrr7FGiO6vP/VXMSqTky5yG/XUBzpnuTX5bv 8vg6tVDmDV4fZ1fY
vXi85sqbl6i+E6nq6z2lJI6pf4RLvD08XXNqll32cyP/3jnPrq3b8XTN6X6O RvVWVrehn9vO4zWX
Xc+N9XFQ3A6gOfL3rfp6rvHv7Iq6J9Dcm9Z9q+7f5H3rmvnsCrsX0FwDDJ1f AZpLiJ4Pg0OA5jIG
NwEHm4HmwGygOTAbaA7M5uGaSyewuPGTh8eStVxstsQbjrYN+nMsZlp2GOwA zb34UHMDyXgs9YDm
mmtZ9kihHxq3Mm12+XDNpQ14ec3tObk7NGjuKC9ac2rvN3FE/9TaG05mIpl/ zRL/5f/wDnhq87nk
XTlsD0Qb5enT1hkpQSUuayZ3cqDin605tSGN2OihKsT8JKRDMg3Vb/4cax82 k9vVhActZfnDD1NC
Spy9bJaVhJnL/ORIxUNzgR56O9KkeyaJD5GfMsMUSCc27zL08rvTpgSUOFNf 0+ADE9DcSNFfH7zu
SWPf10r6V92fX7KRbguxt6vdt84bFnn7O+BJZ9qNzp/sl2d/a+xwH2nO7B1k yxJWyUDFQ3PvRiRa
P7LByZxfGRhbU8PU10borBdC3y5nzozD7DTG1l1e1jWb5b/usou5U8FOPkum 9SfuGKbAPkeWApn0
83eOc+isVgn1S41+bqMXpblg4Kp3Z35gW40EY6sYd0lkZGtYj40DO+BpS838 jeOsA81C0qUWZl0F
4b51g5cLlvwRQHNgNtAcmA00B2YDzYHZQHNgNtBcwuit/2A67px0z3Kp89P4 o4k0GM5OfFpebueA
5hJmac61P2/Kt4tPjEJzH3mB5nYYheY+8vJeP2ffKUNkZhCI5Il3yjJ3YdLV v/03Js2qtXJev901
XrknHUd+w48o6BqaX1NXY+qZUZmi1K5OzDTF4zXXn4skakx12nScmVQHA5Pt SVA/r9uYWM2D1qsD
4wL1zNgi+dS+7vR07OM1R3m7mXon2/R5+xgj1LFlJUAt/9s8kLMWZWSXzN+t eM1Rlprb0UBz+lc3
WDL3wi5Sex906bqaa7/dVafSo2nQ85h5+PpZk5GzZkRjC6THT/JOXfZgJPV1 IgdXaC4XCOv0+nyc
rqe5/tga97PUiW+8Q42HSW2m07mm4TVjg+aocz3XE0hwVBxpmRzo55ga15N7 PKT9nDhHw2VPRZzW
iQiKoDlxPynGCDdi+Hs3CtOx/GfX3b1/skOeFly0cs87dtGqDzMgi7VxYuBT 8ajwx+9bs9RBndSg
oDn+2AzYCjQHZgPNgdk8XXNgPtAcmA00B2YDzUnMM1/wFaA5CTQ3A2hOAs3N 4PGaG9j9DRzL0zXX
moGE6L4DNPfCTWATQXPfApp70dr9DRwMNPdCLbshjK1fBZpLF4ehn/sST9dc Z/c3yO4LPF5zYDrQ
HJgNNAdmA82B2UBzYDYX1Rz4yVxTc/+bwBQnwHNVzc3wcsGSPwJoDswGmgOz gebAbKA5MJvram5Z
1iFWd4QLPZj3rnTT70bHhP40foDm7JlR6ZS9wKC5uVxXc15NY5ob7vTWvcAI mpvLLTRXl7TJ7c1E
PygOyf++P9jtMbcWnaC5M7iD5sqn+feCs7N1Z3rmMOt6PcfQ3FwurLnaQckt Kb3mRPeVaC7IRtDc
adxCc0FHpfq5um/4Hs0RQ3NTuYPm0h5sSaSPQHNX58qaE3swf3Y9F2etz+cY mpvJHTRHYtS0N58k
Zem+604wvm8lqn9ciD+knsGlNfftop9dzocCzYHZQHNgNtAcmA00B2ZzUc2B n8w1NXf2nyaB73K2
wgLNnV0l4MucrTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAcHMGtvIN
zvt3ggEwit1IP0kSHoLkwB786wkB+C7ZS+TEK+OWrlC+L85swQ/hgg3Yt4f4 j/W9D0EqdwqAPl5z
8lIte4dS+nYcALrInky9h9WehebAQbhXxdXBkqA58A3sG+H2XM9Bd2AL9Zlw fN9KSmfJfSs0B44H
ggKzgebAbKA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcFC5/zf8t B19MPc0sZ2a48dOU
kn1qfXPLH1AOdl8OdnYJzX3q4CKa4x1n+iahuS8DzbmM52uuDLTL/hH/vnD9 rjc5UUfWjSdqztdm
AMWaz2GOvFPX8zoKsSVtaLYdU1IKdTI3xUF0wRFumzCRUOi3BkUyswu+Fcem CtJN087nQzZlHFKk
vZ6rWbm2OalITGvVIyyTU/STzWFPsDqvopDtEJltx9QrBfdDs9ElR9omSiZO /NJIfCNxjFZQ3gI+
n67R4GOsE7T9XP1dzLTCUfqgQKGB0EbcXKSj0JrLNZzFpINoNgI18m/Mm4WQ 5q3lDqrG5KRWHOMV
lCrItVCYl8KgWjjNrb0ei++R5vyQN6o5nWM9JDKK8yzSq1DlL5ccdNOYZBB5 zDa0WgVxEvbenIkB
zbEdXGtZXRPULY2oGcdwBWUtbfIZzenRcdOzj6ifK62daUnkyX/fWv2c95n8 WvqeiRKzvZjiUoz0
CK0kHNXHZs2ZahWa29DzpC3RqyBu1IY2mKbxTdsi0pz5N9JaryPcrtJWq/mL wDCaWk89FbiY7O9w
UoP5iU4S2mIi9+tbhVs58zhGKyiIIzXYarNA3anm7DNhOZCJmzYi06O37hHl SVYflNgglUz3bdl9
K7lRpn3fKkshiysbk109iPvWOK+7b+2ZCJTD8lZJftF3knktunoYryBSRtN8 rlNictEMau5Apnrc
2o3fgkBzn9ualO8coLnDCnWS5s7pq2aX8tvO7lWDa9BHRL3LRvdNcAAAAAC4 LocP45yZ5Tz1jLjA
D4cHj+WnoTnwOdDc47ELzOyT72xhmT6h18yJx+4iZbU9ur7NrwsDP4FogZla tZlN2emJumjqzZxz
KTP38ZQe+DFkM9Dx/DA1kpH6Oj7F7N2n+cGPYFBznbVZYkJ/RHNj69uguR/K mObSvsouNhju5zru
0c/9YKJGj6/OmtdzFGQcGls5To1+7gfjJKLXUJmDRNl9q8pYMolea82b37dW aUfLuCC7n81A+x4k
ASgJDA9l0Bw4jrFHsNAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABO Q+6BH5y1fzmtTvnE
1LE0knKD0TApd86P2DdHoxrqBbbL22F/H7KpunsVdzCce3OR9DQ3Uq7NeQ9M ultzGzJ+6C1t/a16
2FTd0Fwj32dJobl24rmao2CLBzb7Opj3ntTEZQc6Xn8KtqarZszf9YuPai3c ga66NPbLn/+T20JA
5Qi9hqllUZcvdvsCnST4ussbSwNiG4Rk/4Ng+79qUvniMEYVVVyiss1C5w2v m0THtasLtxWp/4/3
L1En5btJyZ1Qpp0jaY0ip3F4kY88R1I8kzp9L2u4SV9efZu9GWtVnGx8RHVM ziRHP6VN3EySyGBv
52i3FUk051sgTNw+krUHNayZZDp57NHn0F7JFC9J7TUXlq2nuXFvw5qjrJzO l8/YiCqt3175d6hu
WHN665ztmote+xm8i1R/mLfgUc2derTvzdNb4w2pwL7kdFhzH3iTqdV7axPN ue3/mprb9HracBfA
sGF2qG2L5rifuHkk7AOoY82kDpO6gJPf/w0qUMFt7Of2evPWmv2cr4OW5lox DjZs2DDf11y6I/Cg
5rhZF9wvYRwK526Cdu0p1FXIRs3t9WY7plRzHNRBc/NSTpKE7UvkbEeVLn81 NomO6y0Mi2NkL8nV
60vV+8t9s69p1phEN63fPd29b412oFM3tdK5vQszOUKvsX02UanUUZId962R NyEpc99oI7J14F8s
G0XdjMolESeMCV/+mRzr9JQi3JAz6+n8NoLmzgCau6q1n8uzNQcAAACAAVh+ 7Bu/2VgxphsHNgeY
nwdXhLtH9zdfTxgf2O9lSl1/T4yQ+Sh9zX1sG5oDEv0MvLkSzU8D5JMHtIyt xgqp4zKhSpUv89q4
VK6/Di1fD5aU0s5GlDTL03qmsx7O3wczvdJaiRZO1b2ONCb32CUO0rucyWRl J0CTQ5eOsrlyHvBc
StmIl0nZAimq+4l0Q43WIHdENbezQt2EwpyMrhEg6XC2ay4vZZg0FptOCs01 WQeHVHN+wVxn0Zsb
MqsVolwwdhSs0bUD7C6VG1mHVjpLtc6BbOBJchP2vkVlD8LXpO+hKNQBJQ1H Kq+yQtY6JTnj3qbX
EVOWcfk+1M+RCzWtqbQXRj/XRFwObR9b5ZVOM286tiY5va+Plso1x9bh6zlK Ag1+I6C5FmLRlKq0
YLWXHnVG7lutFaJsKFXDdXT32ApQ9Tnb1qHl68GCUqrIXbxikXjQZ4JjuXn1 3jz8Z3LzRrt5+M/k
5o128/ABAAAAAAAAAAAAwD34fzxOoLcOmm7oAAAAAElFTkSuQmCC
------=_NextPart_000_0017_01C5C4DB.BBD9C420--
Attached files
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Color en Dbfbrowse
This is a multi-part message in MIME format.
------=_NextPart_000_000E_01C5C4E5.A6E5CC80
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000F_01C5C4E5.A6E5CC80"
------=_NextPart_001_000F_01C5C4E5.A6E5CC80
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Pues... porque no me tienes delante, porque estoy mas rojo que un =
tomate!!!
No hab=EDa buscado en la ayuda...
Me hab=EDa limitado a mirar los eventos del Browse en el inspector de =
objetos, mea culpa, Sorry.!!!
Gracias,
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje news:433b9d9f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,=20
Es que =E9l pregunto por la l=EDnea espec=EDficamente:
>marcado, esa >>>
<<< me aparezca en color rojo. =BFEs posible? =BF Por donde=20
Para pintar una celda en concreto. En la documentaci=F3n podr=E1s ver =
lo siguiente:
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:433b9871$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>=20
> Ignacio,
>=20
> Esto "pinta" TODA la l=EDnea (Row), todo el registro!!!
> Pero... =BFcomo coloreamos una celda en concreto????
> OnDawCell ???? no est=E1 implementada, creo.
>=20
>=20
>=20
> Un Saludo,
> Xevi.
>=20
>=20
> "Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje=20
> news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>>
>> Paco,
>>
>> Es muy sencillo, tan s=F3lo tienes que capturar el evento =
OnDraRow() del=20
>> Browse.
>>
>> Algo as=ED:
>>
>> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>>
>> if ::oDbf:LoQueSea > nMiNumero
>> oSender:nClrPane :=3D clRed
>> else
>> oSender:nClrPane :=3D clWindow
>> endif
>>
>> RETURN Nil
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el mensaje=20
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un =
valor=20
>>> marcado, esa fila me aparezca en color rojo. =BFEs posible? =BF =
Por donde=20
>>> puedo enredar o existe alg=FAn ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>>=20
>=20
>=20
>
------=_NextPart_001_000F_01C5C4E5.A6E5CC80
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Pues... porque no me tienes delante, =
porque estoy=20
mas rojo que un tomate!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No hab=EDa buscado en la =
ayuda...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me hab=EDa limitado a mirar los eventos =
del Browse en=20
el inspector de objetos, mea culpa, Sorry.!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>> =
escribi=F3=20
en el mensaje <A=20
=
href=3D"news:433b9d9f$1@ozsrvnegro.ozlan.local">news:433b9d9f$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV>Xevi, </DIV>
<DIV>Â</DIV>
<DIV>Es que =E9l pregunto por la l=EDnea espec=EDficamente:</DIV>
<DIV>Â</DIV>
<DIV>>marcado, esa >>></DIV>
<DIV align=3Dleft><STRONG></STRONG>Â</DIV>
<DIV><<< me aparezca en color rojo. =BFEs posible? =BF Por =
donde </DIV>
<DIV>Â</DIV>
<DIV>Para pintar una celda en concreto. En la documentaci=F3n podr=E1s =
ver lo=20
siguiente:</DIV>
<DIV>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:000901c5c4d4$e3535f90$[email=0ac8a8c0@Xevi]0ac8a8c0@Xevi[/email]"=20
align=3Dbaseline border=3D0><BR></DIV>
<DIV>Â</DIV>
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:433b9871$1@ozsrvnegro.ozlan.local">news:433b9871$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>>=20
<BR>> Ignacio,<BR>> <BR>> Esto "pinta" TODA la l=EDnea (Row), =
todo el=20
registro!!!<BR>> Pero... =BFcomo coloreamos una celda en =
concreto????<BR>>=20
OnDawCell ???? no est=E1 implementada, creo.<BR>> <BR>> <BR>> =
<BR>>=20
Un Saludo,<BR>> Xevi.<BR>> <BR>> <BR>> "Ignacio Ortiz de =
Z=FA=F1iga"=20
<<A =
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>>=20
escribi=F3 en el mensaje <BR>> <A=20
=
href=3D"news:433b9524@ozsrvnegro.ozlan.local">news:433b9524@ozsrvnegro.oz=
lan.local</A>...<BR>>><BR>>>=20
Paco,<BR>>><BR>>> Es muy sencillo, tan s=F3lo tienes que =
capturar el=20
evento OnDraRow() del <BR>>> Browse.<BR>>><BR>>> =
Algo=20
as=ED:<BR>>><BR>>> METHOD BrwDrawRow( oSender, nRowPos ) =
CLASS=20
TForm1<BR>>><BR>>>ÂÂ if ::oDbf:LoQueSea >=20
nMiNumero<BR> >>ÂÂÂÂ& ;nbsp; oSender:nClrPane =
:=3D=20
clRed<BR>>>ÂÂ =
else<BR> >>ÂÂÂÂ& ;nbsp;=20
oSender:nClrPane :=3D clWindow<BR>>>ÂÂ=20
endif<BR>>><BR>>> RETURN Nil<BR>>><BR>>> "Paco =
V."=20
<<A=20
=
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <BR>>> <A=20
=
href=3D"news:433ae026$1@ozsrvnegro.ozlan.local">news:433ae026$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...<BR>>>>=20
Quisiera hacer lo siguiente:<BR>>>><BR>>>> En un =
dBFBrowse,=20
hacer que si un campo de un registro supera un valor <BR>>>> =
marcado,=20
esa fila me aparezca en color rojo. =BFEs posible? =BF Por donde =
<BR>>>>=20
puedo enredar o existe alg=FAn =
ejemplo?<BR>>>><BR>>>>=20
Gracias<BR>>>><BR>>>> Paco=20
V<BR>>>><BR>>><BR>>> <BR>>> <BR>> =
<BR>>=20
<BR>> </BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_000F_01C5C4E5.A6E5CC80--
------=_NextPart_000_000E_01C5C4E5.A6E5CC80
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <000901c5c4d4$e3535f90$[email=0ac8a8c0@Xevi]0ac8a8c0@Xevi[/email]>
iVBORw0KGgoAAAANSUhEUgAAAnMAAAIbCAMAAAC3yegLAAAAB3RJTUUH1Qkd BzQ6WS32zwAAAAlw
SFlzAAAOwwAADsMBx2+oZAAAAARnQU1BAACxjwv8YQUAAAAYUExURf///wAA AOzp2KyomcDAwAAA
ZszMzGZmZuf+ZQEAACJOSURBVHja7Z2NgpyqsoWr7slO3v+Nb9KtUL+Ato06 ru+c7O5RqCpgDagw
SL8AmAudHQB4HNAcmA00B2YDzYHZQHNgNtAcmA00B74FGcrx139Zon8eM99K O2xkr4NfW6MdNb0c
PqQAD4T+U4xrbqS624kPaLJONJt/RQZNQ3Mf8U3NdVJ/3mS9cDb+igxnheY+ gv57Dam///6Pfv+2
mnshqrZ8HWnFkqbdW+yn2O2qerPo2rFDcx9B//3+B73+O645We2iM1CfKl/N FpkILP6SSlntcZjT
HHHpnPESCXv/aezc8g828B5b//Z24dj6oqM5OQLJdgs6CD1apZpb0uikPifr wDhLZ7IUXYqv47FH
kYNt0H9//vz5Jzj6+/ln89gq9PGrdgW2q6i5A4FmmjNJfU7lwGou7gil0Eop tsUeRA628XdspaWv
+8uA5lxPolXQazeXJ9Kc+ghyurhM19fUnPM5ErsLxwUAhvl3Pbfcs/7+M3I9 F49eG9otacC4PeM0
v7If8sEv6Bp/bdOcNwPN7ePVz9HSzW3q53S1rwOsGmi1q3rgGppjKbN+7KLY 0NxH/NXcnz+/X73c
n6F+rn5TjXM3zVkJQXPz2NzP6a9tzQUDmc/7ieaC+9bAVhyuGlbHY4/Ngw3Q 0sENX8/pr1JHv5Yj
v7xAdEMedD0XBJZqLrFTDg/E7h1Dc/t493Mr+8dWeQ1u7mnVKXG8fuR3sz3N iUcpQTrVrUV2TP52
7DUDNPcR7fnWF0P3EEG7/QoSB3nTo/4j+FHlDbWUnDc6H449CANso72W6cWY 5qK+yLT4r1wA+zQX
OTDp4vM244bYozDAIXQ1F52zh8TzCPmztfs+tkdz1kGqOVcUjpw2Y/elhuaO BeuEwWygOTAbaA7M
BpoDs4HmwGygOTAbaA7MBpoDsyEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAA4FYsu5DP8TU/7/ZsvNUEZ8l42Myc6r8MM6viBM1tN7DZETS3FWju U0fQ3FZYfPJrqH19
4fq9Drx/v3FJqU8wqSNvA8TVZJzZ2dDnFzNL3pZHFb6KICgMF52EPk2saT6X wdeVCigvgHT2DlYV
/qdJcr2eq3W6lFkKpNQam6YQ1amPcJDcZ05tuDi441GFLyOICsNNn1HknXxh gMGRRnFlicO4fxD1
Fy+s/q4syJ33SWPL1LexyWN4yrk0X0OfqSCo7SI8F5zoRJnm/SkYzb3vYYc0 J253y8AV9wS55nQO
4S6KQ/7GBx5rNh2BdFnNtnx6zcX5bIbAvTmSFLepuWmPFabh+zmKKsAfZWeH tdXBfk7Hkab2o4z1
mA1ecSwtn+EBCvNlAXIQYLM77NXYT4LVt7i4onJ7FVy6gL7mWjZCV02PtWex Edju2WexPp33QKvJ
eU4DbJ3vaO7H9XPlmfA6+Jj2C+/F3AmR+V2l1qTIxVEOlywYXloeV1+1ie0d oTbb9ikLWj3H3tla
IIpC9ucjE15zNubnMVj082vo0wjOLwFYgObAbKA5AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAACu
z/+BH87ZCoPmHsf/zlZYpLn/TWCKE+D5W/FnKyzU3AwvFyz5I4DmwGygOTAb aA7MBpoDs7mw5r69
d3qsuZbTn7YV0UlcWnO0tZk3JQ4113QKzR3Cj9LcNk1UzfGgCXcSGtzDLTSn dokTu6qx2MV7PWMS
lQ2/o6K/P+1OdLQern5IfIlMQ3tbuIPmyqfYcG8RXN1FXv5bv4iPsOhEVTWs 9S3sCTvWD2G83cGl
NVcu53WnwpHOYs21BPF2svxQ7df+rftvyXp2dd2NS2tu/Vl0Z+oH0RdxpLn2 7t5xP0dEHNmMfBGh
n9vBHTSXyCke51QianV16npOdV2RzXhMheJ28GM0t/d67uVgzIe/noPi9nAH zZEazoIxT174B/uh
dzVHyoTbt7zubq53IxeZz66xW3FhzX2/6GeX86FAc2A20ByYDTQHZgPNgdlA c2A20Fx5NvI+uv2x
x3iOXbbNgr7tC7wux+M1V/Tm2nG0YQ/UXLBWyi5cYbr9CwWfrrnau0Fzs4Dm XryaUb61tLzE1L4o
VqVZ85Y3npaZCpdXdqXqFesiZ/h2VbI21BvR7wg092KdSCMhq6IumyR817N+ 3bTPa95mzuq/wrl7
V3lZz0UmvtsCzb3goE1z3bBXhjkoeyqKNUfszUWaI7GeAJr7XlAna869EZzI qaPeTYrFBGvqRXg1
CcsBsfzkfCWaM1FBc98I6vx+jgb6OQrymr7OdYXqgxPjNgITFTT3jaDOelby wfUcR5pjLyntrT+2
Ks2hn/teUKc8E2Z930rxfWvwB2LlnBl3lwxULaqf5C2CuJUwltWCPkq62nsB zRmaLTm7mXnziTsA
zRmgua8DzSk6M5nTm5o3Hb4J0ByYDTQHZgPNgdlAcwW78xzzt3fAeyjQ3EK4 w1IiOMjwI6A50g9Y
lZ5izd19LdHZQHNl1QaLyQSxIRiJqQciscPd+9TZdXVDHq+5Mg1VVFXEVU6y /0fdZ3kg4+mak2s8
SM7Xv39UmnNblUB0u3i65ko/J9eXOM3psRb93Gc8XnPrgGqH2HJK/SgXnJxd S7cFmqO34sTl3Mj1
HBS3H2juxXrbqm9U4/tW1cdBe9uB5t5ARfOA5hbK38ecXfifDzS3gsnVWUBz YDbQHJgNNAdm83DN
zV8ix/1zPslwmNwwMu6Ss2R7D2oerjkKK2mHBoez7NPc9ki2aa53EJo7yAs0 B83VoOZrTv45fbJ7
HC0nxdR/+VCb3lBdp6I3plvdedNyDwGbhGRD2lC8BbuPXuhHvD3K7l5A7PPK I+KVQ5ELaK5d9NeH
XFBCLL4F24bI6dZgpxG5fYTKKjdlikzXD1ZmVsr1nA0lssDCVuJHJLOpOcrL DUeBi27FQ3PU0RyR
rVi/a4hMzupr0PrhBycp1VdzLApjwBYPZU9/L/KCQXPdor8+1gFD7ltDRkRs +i3VcKySq53mKOie
nD2VjF0Skax4o0YYsiOyfsw+ebabTvedktbMpj7JHnvtiofmSLRJb2ylpFXY n6TMQqvX88aJTEO2
ehrXzzXzRL3iSAfGyUEXalbx0Bx1xtbl2kWnS9pIXOcQNYSRjVvskhCJhpSG EqmkYyur6KJ87X6u
VWydrFvx0Nzrv41t4MRGckqR6lZwrW5mVfNm5F1zysHOJJN716kh2m1Ol9y3 2n30tB/3C2LumOO8
rrx+Gz7ct454uWDJNzDQuBcFmrsr0NyxQUFzfaC5Y4OC5n4y0ByYDTQHZgPN 3QNz9Ta45M89L7vE
RSA0l3FS8/DI4dHY+HMTXwCay4DmvsXjNTf+LlWzAi2YqWg9/9d21OxEayGe sE5yOl0GEizqMzEJ
y0nxZvJ0zclJVj1faues9Gymn0QdmKssdhqz6nIiLbRO5ALxQUclaRZvJtDc +svfmLUnilqcKJGW
yRXbCf3p8w3hhlFyElMapEg9k8drbsu7VOscvJzmJtecYvFbGcMaK1OihWlB Fn0k0VwcEwdedQlm
8njNvb8Pv0t19KRAH+FW8njMa6Xj0KTP1evGZwLNZe2WXs/Ff/YwfD2XOWoP loNjq45JjK3pBzS3
BDX7vrUONaRbI7pvFSNTvSpK3u0a3be6gTBbiCeNsDfCVp5sY6p7OArLunhB vzyh4h+uuVG6DXNC
h3FToLlBoLnDgOYGgeYOA5oDs4HmwGygOTAbaK4QbfG2Tk2w+BG7Dn8INLcQ vqewPMRim84CGY4D
zZGeWJLiMe9gsl9NSshuEGiurGWr729dezalOf1SQ7zSdT+P11yZ+pLTQyyX QRLJH/JXgFE68ALF
0zUn15WQmsUf0pzp/dDJjfB0zZV+rsz0D2oOr3TdzeM1tw6obojt9nPLj7Wf g+LGgOborTi5jkiM
nFTuKLrXc1DcINDci3LjoK/W5DNhPXzila77gebeQDLzgOYWxBJ08F2guRXM pM4CmgOzgebAbKA5
MBtoLnub2xa25Dp9Cd7OR4n9kDnKFOzg/3jNmRr5SHOcnWgd2q++qTl3OYsX 2jxdc7ZWoLkjnUFz
ruiqPuzrY+pSk/bGc7Wj9FvdRLu8GY/D+9y5XeaSrercvgFsjrJ1krhVmc2W dyomX3eurBhb16KT
qRW/uQJFWy6I4bjmEj9RbTb5b3Vk3sVqkqTuko3r0ni0PZ0t2K2uVXZqxhQk kYUtcYmKh+Ze+KrV
J8gfJZt2THMUmrA/Ones3TFFDkIjPspAmtQqOyduffF1WV8/4h5CFp2MApqa izeeUy8t5XpkTUmq
ZUl91S+W44472dTuSI023O/ORqnt6OK7std3y6pddzjUXHRLztBcLTqtlREO IUuyvG8JP8QFElFb
c9piz13YYSUOvD0dJWfJRvr4uHdMCwPNqaKv1ZIOIa8E5Wi88dxHY2ug4szd 8NgaDprpr5Vzu3Ns
VWHrskJzoujvGqkr4qiMD6Q6rGWEK5XH9v2rouHSTexEDr2ZK4sgGu6Uwlpb 1ZGxZ49yHQHz+1aX
2RTEbURbvimJ4Zmw8TLmhIdSHcZkd2e4heZ6QHNHA831gOaOBpoDs4HmwGyg OTAbaG4Y/WTVn9h7
8ABYPrL4xDFvSLsbaG4Y3nRin+Z2tjd3MrP70kgHzX2z6NvS31hzm+xDc98s +r//uify9qF9/VN9
Mg/kl9TyCMtJhGydHZGaIFd+uBEL6Xi0M173z3Pxi+x6hV9a5NYEBTfiG1xy /3TNpROUcqZTzX+6
1K0VaulkOI29NNZH59LayIL4nUF5hqLojcOOOR9mp+KhOXL1SOVrPKFNjVqn UCrxec6aLXQiv3Ks
FI7iJ2cwiI6Mpdh3YM65HKj4Z2suXnC2nEg1l75b1UzwZ+vsRl8amyyHoxHN xev9fMnIhR2LvLF8
UIyt0Fyn6MuX8DfVi6DVJGHnGBuVH9xwZ+yRStfXXN5xxiPhQAHTfphCi42K f7bmWsNg2s8t54jy
9h8ZW3MBdQfpjuZc/K5bbutKnuMBc8rlQMU/W3Ot+1bbz9lVYmtqdmbcC1ej +9Y6UpFuzN5yODHc
VWdCLI31fsyuZM4NG4f95YPmdr1f8Q/XHGgzIqKNQHOgCTR3bNHPLucdgOaO LfrZ5Xwo0ByYDTQH
ZgPNSfyjTndu4GCcjj+8NvrChdVJQHOSr2iOx5PuMnM7MUJzEmhuBo/XXPAI nsLJgM4ze/GoX88Z
6FkCuxiAl5TH7nF3bZ6uuWwutTdX6uYm7cKPLKmZTltSOlODc7V25vYWQHMv 4ulte44aGWSL9zVH
OpN2ytTxD819Iaj5mpMT5euI6c4RDWiusadbndgnZdM4Zer47+5xd22guRe6 k0m7O+prrje2sj0V
pmz7F2s+CJo7KKhzr+fMWrDB6zkq53lIc6qfi64lP9jj7to8XXPhbai4fdXn sgzitF9bl9y3aqEe
u8fdtXm85i7BPbRyFNDcFYDmTgea+9FAc2A20ByYDTQHZgPNFcRfy9tjLJ9+ 3Gg2/ZpAcwvRy9Dq
n4OyOQA+AJojM10qUmiplS8tzUGOfaC5sqscl1mAtWdTUnsNqurNNaoTrK+W eec4uw4vzOM1VxZo
rGpa1cdOcyT+Uz5F0vISp7Pr7+I8XXNl5rzOvZMVkdJcuYcQk6ku+dkVeG2e rrnSz8mlaC3NUT2k
9SbEeHb9XZzHa24dKt0Q29Zc3sdBcT2gOXorzl+okX5W0tecXBEHcqC5F+Vu oNx71rtRTsZWe0b1
cNBeDjT3hoNv4DtAcwtyGS74KtDcCqZSZwHNgdlAc2A20ByYDTR3xDOO1gNh f4jPvnTc+RyxH3JU
fHZ/Bvl4zZn6+Ehz3DjXOLJffVNz7nIWrbJ5uuZsnUBzxzqD5kzRVW1kG8pt 3BtOvxzVb2bnfdoN
5FKH7t2t6k11OiJtz+8+oJ0kblVmXTpfUF17rqwYW99Ft3VSdnhQ24W4o3In h5KLKEjmM7wtNl9m
mDrUG1GYNX/xfiqkE4hCcpIsLj01YwqSyMKWuErFQ3OlTlx7ihPkj5JNGzVu 0A72d5+dl9ghU2bY
5I7tNeKk0LLPzK1AXAylmLiHqEUn0/5NzY3tDbdJc2ZnHu44lE3tjoh758he Fmdjt7wgs3TrumoV
toYJmluKTmtVhAPIkizvWaKPbZpLT7f6FNvGFFnw9tI4U7c+c9qJOsO6rNBc KfpaKekA8kpQjo7s
Dbd5bA10nDkcHlvDQTP9xXJud46tKmxdVmiuFP1dH/XvG6iMDiRrfXxvOG2G ykDjdrDTx1mE0XBo
DFNVYue+1R7lOgLm960usymIK2j5piSGZ8LKy5gTHkp1INMdznYLzfWA5o4G musBzR0NNAdmA82B
2UBzYDbQ3DD6uao/sffgAbB8YPGJY96QdjfQ3DC86cQ+ze1sb+5kZvelkQ6a +2bRt6W/seY22Yfm
vln0f/91z+PtI/v6l/pkHscvqeURllMI2To7IjU9rvxwIxbS8WhnvO6f5+IX 2c27Y7Mit6YnuBHf
4IL7p2sunZ6U85xq9tOlbq1PS6fCidV/7Xq2fPLUpbWRBfE7g/IMRdEbhx1z PsxOxUNz5OqRytd4
OpsatU6hVOLznDVb6ER+5VgpHMVPzmAQHRlLse/AnHM5UPHP1ly83Gw5kWrO rzpzk/msjer1a+tP
rM54zSWL4WhEc/F6P18ycmHHIm8sHxRjKzTXKfryJfxN9SJoNUnYOcZG5Qc3 3Bl7pNL1NZd3nPFI
OFDAtB+m0GKj4p+tudYwmPZzyzmivP1HxtZcQN1BuqM5F7/rltu6kud4wJxy OVDxz9Zc677V9nN2
jdiamp0ZfbCeYONCn1nbrLcYTgx31ZkQS2O9H7MrmXPDxmF/+aC5Xe9X/MM1 B9qMiGgj0BxoAs0d
W/Szy3kHoLlji352OR8KNAdmA82B2UBzEv+o050bOBin4w+vjerjif1hXANo TvIVzfF40r1moLnP
g4LmtpmB5j4P6qx5CDHH0J1DSLarc3MGepbALgbgJeXRe9xdmadrLptL7c2V urlJu/AjS2qm05aU
zlTLv07mM1wdaO5FPL1tz1Ejg2zvvuZIZ9JOmdr+ufFxB6C5Fywnytehyp0j GtBcY0e3OrFPyqZx
ytT2D819I6hT+jlKmjD9CDXXG1vZngpTNv1Dc98I6tzrObMWbPB6jsp5HtKc 6ueiS7OP9ri7Mk/X
XHgb+v4wd6r6p3S7Or+2Lrlv1UI9eo+7K/N4zV2COyjlOKC5KwDNnQ4096OB 5sBsoDkwG2gOzAaa
e1N3whFPxtYTFBwHu4Hm3oxrDrr7FGiO6vP/VXMSqTky5yG/XUBzpnuTX5bv 8vg6tVDmDV4fZ1fY
vXi85sqbl6i+E6nq6z2lJI6pf4RLvD08XXNqll32cyP/3jnPrq3b8XTN6X6O RvVWVrehn9vO4zWX
Xc+N9XFQ3A6gOfL3rfp6rvHv7Iq6J9Dcm9Z9q+7f5H3rmvnsCrsX0FwDDJ1f AZpLiJ4Pg0OA5jIG
NwEHm4HmwGygOTAbaA7M5uGaSyewuPGTh8eStVxstsQbjrYN+nMsZlp2GOwA zb34UHMDyXgs9YDm
mmtZ9kihHxq3Mm12+XDNpQ14ec3tObk7NGjuKC9ac2rvN3FE/9TaG05mIpl/ zRL/5f/wDnhq87nk
XTlsD0Qb5enT1hkpQSUuayZ3cqDin605tSGN2OihKsT8JKRDMg3Vb/4cax82 k9vVhActZfnDD1NC
Spy9bJaVhJnL/ORIxUNzgR56O9KkeyaJD5GfMsMUSCc27zL08rvTpgSUOFNf 0+ADE9DcSNFfH7zu
SWPf10r6V92fX7KRbguxt6vdt84bFnn7O+BJZ9qNzp/sl2d/a+xwH2nO7B1k yxJWyUDFQ3PvRiRa
P7LByZxfGRhbU8PU10borBdC3y5nzozD7DTG1l1e1jWb5b/usou5U8FOPkum 9SfuGKbAPkeWApn0
83eOc+isVgn1S41+bqMXpblg4Kp3Z35gW40EY6sYd0lkZGtYj40DO+BpS838 jeOsA81C0qUWZl0F
4b51g5cLlvwRQHNgNtAcmA00B2YDzYHZQHNgNtBcwuit/2A67px0z3Kp89P4 o4k0GM5OfFpebueA
5hJmac61P2/Kt4tPjEJzH3mB5nYYheY+8vJeP2ffKUNkZhCI5Il3yjJ3YdLV v/03Js2qtXJev901
XrknHUd+w48o6BqaX1NXY+qZUZmi1K5OzDTF4zXXn4skakx12nScmVQHA5Pt SVA/r9uYWM2D1qsD
4wL1zNgi+dS+7vR07OM1R3m7mXon2/R5+xgj1LFlJUAt/9s8kLMWZWSXzN+t eM1Rlprb0UBz+lc3
WDL3wi5Sex906bqaa7/dVafSo2nQ85h5+PpZk5GzZkRjC6THT/JOXfZgJPV1 IgdXaC4XCOv0+nyc
rqe5/tga97PUiW+8Q42HSW2m07mm4TVjg+aocz3XE0hwVBxpmRzo55ga15N7 PKT9nDhHw2VPRZzW
iQiKoDlxPynGCDdi+Hs3CtOx/GfX3b1/skOeFly0cs87dtGqDzMgi7VxYuBT 8ajwx+9bs9RBndSg
oDn+2AzYCjQHZgPNgdk8XXNgPtAcmA00B2YDzUnMM1/wFaA5CTQ3A2hOAs3N 4PGaG9j9DRzL0zXX
moGE6L4DNPfCTWATQXPfApp70dr9DRwMNPdCLbshjK1fBZpLF4ehn/sST9dc Z/c3yO4LPF5zYDrQ
HJgNNAdmA82B2UBzYDYX1Rz4yVxTc/+bwBQnwHNVzc3wcsGSPwJoDswGmgOz gebAbKA5MJvram5Z
1iFWd4QLPZj3rnTT70bHhP40foDm7JlR6ZS9wKC5uVxXc15NY5ob7vTWvcAI mpvLLTRXl7TJ7c1E
PygOyf++P9jtMbcWnaC5M7iD5sqn+feCs7N1Z3rmMOt6PcfQ3FwurLnaQckt Kb3mRPeVaC7IRtDc
adxCc0FHpfq5um/4Hs0RQ3NTuYPm0h5sSaSPQHNX58qaE3swf3Y9F2etz+cY mpvJHTRHYtS0N58k
Zem+604wvm8lqn9ciD+knsGlNfftop9dzocCzYHZQHNgNtAcmA00B2ZzUc2B n8w1NXf2nyaB73K2
wgLNnV0l4MucrTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAcHMGtvIN
zvt3ggEwit1IP0kSHoLkwB786wkB+C7ZS+TEK+OWrlC+L85swQ/hgg3Yt4f4 j/W9D0EqdwqAPl5z
8lIte4dS+nYcALrInky9h9WehebAQbhXxdXBkqA58A3sG+H2XM9Bd2AL9Zlw fN9KSmfJfSs0B44H
ggKzgebAbKA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcFC5/zf8t B19MPc0sZ2a48dOU
kn1qfXPLH1AOdl8OdnYJzX3q4CKa4x1n+iahuS8DzbmM52uuDLTL/hH/vnD9 rjc5UUfWjSdqztdm
AMWaz2GOvFPX8zoKsSVtaLYdU1IKdTI3xUF0wRFumzCRUOi3BkUyswu+Fcem CtJN087nQzZlHFKk
vZ6rWbm2OalITGvVIyyTU/STzWFPsDqvopDtEJltx9QrBfdDs9ElR9omSiZO /NJIfCNxjFZQ3gI+
n67R4GOsE7T9XP1dzLTCUfqgQKGB0EbcXKSj0JrLNZzFpINoNgI18m/Mm4WQ 5q3lDqrG5KRWHOMV
lCrItVCYl8KgWjjNrb0ei++R5vyQN6o5nWM9JDKK8yzSq1DlL5ccdNOYZBB5 zDa0WgVxEvbenIkB
zbEdXGtZXRPULY2oGcdwBWUtbfIZzenRcdOzj6ifK62daUnkyX/fWv2c95n8 WvqeiRKzvZjiUoz0
CK0kHNXHZs2ZahWa29DzpC3RqyBu1IY2mKbxTdsi0pz5N9JaryPcrtJWq/mL wDCaWk89FbiY7O9w
UoP5iU4S2mIi9+tbhVs58zhGKyiIIzXYarNA3anm7DNhOZCJmzYi06O37hHl SVYflNgglUz3bdl9
K7lRpn3fKkshiysbk109iPvWOK+7b+2ZCJTD8lZJftF3knktunoYryBSRtN8 rlNictEMau5Apnrc
2o3fgkBzn9ualO8coLnDCnWS5s7pq2aX8tvO7lWDa9BHRL3LRvdNcAAAAAC4 LocP45yZ5Tz1jLjA
D4cHj+WnoTnwOdDc47ELzOyT72xhmT6h18yJx+4iZbU9ur7NrwsDP4FogZla tZlN2emJumjqzZxz
KTP38ZQe+DFkM9Dx/DA1kpH6Oj7F7N2n+cGPYFBznbVZYkJ/RHNj69uguR/K mObSvsouNhju5zru
0c/9YKJGj6/OmtdzFGQcGls5To1+7gfjJKLXUJmDRNl9q8pYMolea82b37dW aUfLuCC7n81A+x4k
ASgJDA9l0Bw4jrFHsNAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABO Q+6BH5y1fzmtTvnE
1LE0knKD0TApd86P2DdHoxrqBbbL22F/H7KpunsVdzCce3OR9DQ3Uq7NeQ9M ultzGzJ+6C1t/a16
2FTd0Fwj32dJobl24rmao2CLBzb7Opj3ntTEZQc6Xn8KtqarZszf9YuPai3c ga66NPbLn/+T20JA
5Qi9hqllUZcvdvsCnST4ussbSwNiG4Rk/4Ng+79qUvniMEYVVVyiss1C5w2v m0THtasLtxWp/4/3
L1En5btJyZ1Qpp0jaY0ip3F4kY88R1I8kzp9L2u4SV9efZu9GWtVnGx8RHVM ziRHP6VN3EySyGBv
52i3FUk051sgTNw+krUHNayZZDp57NHn0F7JFC9J7TUXlq2nuXFvw5qjrJzO l8/YiCqt3175d6hu
WHN665ztmote+xm8i1R/mLfgUc2derTvzdNb4w2pwL7kdFhzH3iTqdV7axPN ue3/mprb9HracBfA
sGF2qG2L5rifuHkk7AOoY82kDpO6gJPf/w0qUMFt7Of2evPWmv2cr4OW5lox DjZs2DDf11y6I/Cg
5rhZF9wvYRwK526Cdu0p1FXIRs3t9WY7plRzHNRBc/NSTpKE7UvkbEeVLn81 NomO6y0Mi2NkL8nV
60vV+8t9s69p1phEN63fPd29b412oFM3tdK5vQszOUKvsX02UanUUZId962R NyEpc99oI7J14F8s
G0XdjMolESeMCV/+mRzr9JQi3JAz6+n8NoLmzgCau6q1n8uzNQcAAACAAVh+ 7Bu/2VgxphsHNgeY
nwdXhLtH9zdfTxgf2O9lSl1/T4yQ+Sh9zX1sG5oDEv0MvLkSzU8D5JMHtIyt xgqp4zKhSpUv89q4
VK6/Di1fD5aU0s5GlDTL03qmsx7O3wczvdJaiRZO1b2ONCb32CUO0rucyWRl J0CTQ5eOsrlyHvBc
StmIl0nZAimq+4l0Q43WIHdENbezQt2EwpyMrhEg6XC2ay4vZZg0FptOCs01 WQeHVHN+wVxn0Zsb
MqsVolwwdhSs0bUD7C6VG1mHVjpLtc6BbOBJchP2vkVlD8LXpO+hKNQBJQ1H Kq+yQtY6JTnj3qbX
EVOWcfk+1M+RCzWtqbQXRj/XRFwObR9b5ZVOM286tiY5va+Plso1x9bh6zlK Ag1+I6C5FmLRlKq0
YLWXHnVG7lutFaJsKFXDdXT32ApQ9Tnb1qHl68GCUqrIXbxikXjQZ4JjuXn1 3jz8Z3LzRrt5+M/k
5o128/ABAAAAAAAAAAAAwD34fzxOoLcOmm7oAAAAAElFTkSuQmCC
------=_NextPart_000_000E_01C5C4E5.A6E5CC80--
Attached files
------=_NextPart_000_000E_01C5C4E5.A6E5CC80
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000F_01C5C4E5.A6E5CC80"
------=_NextPart_001_000F_01C5C4E5.A6E5CC80
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Pues... porque no me tienes delante, porque estoy mas rojo que un =
tomate!!!
No hab=EDa buscado en la ayuda...
Me hab=EDa limitado a mirar los eventos del Browse en el inspector de =
objetos, mea culpa, Sorry.!!!
Gracias,
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje news:433b9d9f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,=20
Es que =E9l pregunto por la l=EDnea espec=EDficamente:
>marcado, esa >>>
<<< me aparezca en color rojo. =BFEs posible? =BF Por donde=20
Para pintar una celda en concreto. En la documentaci=F3n podr=E1s ver =
lo siguiente:
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:433b9871$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>=20
> Ignacio,
>=20
> Esto "pinta" TODA la l=EDnea (Row), todo el registro!!!
> Pero... =BFcomo coloreamos una celda en concreto????
> OnDawCell ???? no est=E1 implementada, creo.
>=20
>=20
>=20
> Un Saludo,
> Xevi.
>=20
>=20
> "Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje=20
> news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>>
>> Paco,
>>
>> Es muy sencillo, tan s=F3lo tienes que capturar el evento =
OnDraRow() del=20
>> Browse.
>>
>> Algo as=ED:
>>
>> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>>
>> if ::oDbf:LoQueSea > nMiNumero
>> oSender:nClrPane :=3D clRed
>> else
>> oSender:nClrPane :=3D clWindow
>> endif
>>
>> RETURN Nil
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el mensaje=20
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un =
valor=20
>>> marcado, esa fila me aparezca en color rojo. =BFEs posible? =BF =
Por donde=20
>>> puedo enredar o existe alg=FAn ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>>=20
>=20
>=20
>
------=_NextPart_001_000F_01C5C4E5.A6E5CC80
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Pues... porque no me tienes delante, =
porque estoy=20
mas rojo que un tomate!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No hab=EDa buscado en la =
ayuda...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me hab=EDa limitado a mirar los eventos =
del Browse en=20
el inspector de objetos, mea culpa, Sorry.!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>> =
escribi=F3=20
en el mensaje <A=20
=
href=3D"news:433b9d9f$1@ozsrvnegro.ozlan.local">news:433b9d9f$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV>Xevi, </DIV>
<DIV>Â</DIV>
<DIV>Es que =E9l pregunto por la l=EDnea espec=EDficamente:</DIV>
<DIV>Â</DIV>
<DIV>>marcado, esa >>></DIV>
<DIV align=3Dleft><STRONG></STRONG>Â</DIV>
<DIV><<< me aparezca en color rojo. =BFEs posible? =BF Por =
donde </DIV>
<DIV>Â</DIV>
<DIV>Para pintar una celda en concreto. En la documentaci=F3n podr=E1s =
ver lo=20
siguiente:</DIV>
<DIV>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:000901c5c4d4$e3535f90$[email=0ac8a8c0@Xevi]0ac8a8c0@Xevi[/email]"=20
align=3Dbaseline border=3D0><BR></DIV>
<DIV>Â</DIV>
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:433b9871$1@ozsrvnegro.ozlan.local">news:433b9871$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>>=20
<BR>> Ignacio,<BR>> <BR>> Esto "pinta" TODA la l=EDnea (Row), =
todo el=20
registro!!!<BR>> Pero... =BFcomo coloreamos una celda en =
concreto????<BR>>=20
OnDawCell ???? no est=E1 implementada, creo.<BR>> <BR>> <BR>> =
<BR>>=20
Un Saludo,<BR>> Xevi.<BR>> <BR>> <BR>> "Ignacio Ortiz de =
Z=FA=F1iga"=20
<<A =
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>>=20
escribi=F3 en el mensaje <BR>> <A=20
=
href=3D"news:433b9524@ozsrvnegro.ozlan.local">news:433b9524@ozsrvnegro.oz=
lan.local</A>...<BR>>><BR>>>=20
Paco,<BR>>><BR>>> Es muy sencillo, tan s=F3lo tienes que =
capturar el=20
evento OnDraRow() del <BR>>> Browse.<BR>>><BR>>> =
Algo=20
as=ED:<BR>>><BR>>> METHOD BrwDrawRow( oSender, nRowPos ) =
CLASS=20
TForm1<BR>>><BR>>>ÂÂ if ::oDbf:LoQueSea >=20
nMiNumero<BR> >>ÂÂÂÂ& ;nbsp; oSender:nClrPane =
:=3D=20
clRed<BR>>>ÂÂ =
else<BR> >>ÂÂÂÂ& ;nbsp;=20
oSender:nClrPane :=3D clWindow<BR>>>ÂÂ=20
endif<BR>>><BR>>> RETURN Nil<BR>>><BR>>> "Paco =
V."=20
<<A=20
=
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <BR>>> <A=20
=
href=3D"news:433ae026$1@ozsrvnegro.ozlan.local">news:433ae026$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...<BR>>>>=20
Quisiera hacer lo siguiente:<BR>>>><BR>>>> En un =
dBFBrowse,=20
hacer que si un campo de un registro supera un valor <BR>>>> =
marcado,=20
esa fila me aparezca en color rojo. =BFEs posible? =BF Por donde =
<BR>>>>=20
puedo enredar o existe alg=FAn =
ejemplo?<BR>>>><BR>>>>=20
Gracias<BR>>>><BR>>>> Paco=20
V<BR>>>><BR>>><BR>>> <BR>>> <BR>> =
<BR>>=20
<BR>> </BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_000F_01C5C4E5.A6E5CC80--
------=_NextPart_000_000E_01C5C4E5.A6E5CC80
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <000901c5c4d4$e3535f90$[email=0ac8a8c0@Xevi]0ac8a8c0@Xevi[/email]>
iVBORw0KGgoAAAANSUhEUgAAAnMAAAIbCAMAAAC3yegLAAAAB3RJTUUH1Qkd BzQ6WS32zwAAAAlw
SFlzAAAOwwAADsMBx2+oZAAAAARnQU1BAACxjwv8YQUAAAAYUExURf///wAA AOzp2KyomcDAwAAA
ZszMzGZmZuf+ZQEAACJOSURBVHja7Z2NgpyqsoWr7slO3v+Nb9KtUL+Ato06 ru+c7O5RqCpgDagw
SL8AmAudHQB4HNAcmA00B2YDzYHZQHNgNtAcmA00B74FGcrx139Zon8eM99K O2xkr4NfW6MdNb0c
PqQAD4T+U4xrbqS624kPaLJONJt/RQZNQ3Mf8U3NdVJ/3mS9cDb+igxnheY+ gv57Dam///6Pfv+2
mnshqrZ8HWnFkqbdW+yn2O2qerPo2rFDcx9B//3+B73+O645We2iM1CfKl/N FpkILP6SSlntcZjT
HHHpnPESCXv/aezc8g828B5b//Z24dj6oqM5OQLJdgs6CD1apZpb0uikPifr wDhLZ7IUXYqv47FH
kYNt0H9//vz5Jzj6+/ln89gq9PGrdgW2q6i5A4FmmjNJfU7lwGou7gil0Eop tsUeRA628XdspaWv
+8uA5lxPolXQazeXJ9Kc+ghyurhM19fUnPM5ErsLxwUAhvl3Pbfcs/7+M3I9 F49eG9otacC4PeM0
v7If8sEv6Bp/bdOcNwPN7ePVz9HSzW3q53S1rwOsGmi1q3rgGppjKbN+7KLY 0NxH/NXcnz+/X73c
n6F+rn5TjXM3zVkJQXPz2NzP6a9tzQUDmc/7ieaC+9bAVhyuGlbHY4/Ngw3Q 0sENX8/pr1JHv5Yj
v7xAdEMedD0XBJZqLrFTDg/E7h1Dc/t493Mr+8dWeQ1u7mnVKXG8fuR3sz3N iUcpQTrVrUV2TP52
7DUDNPcR7fnWF0P3EEG7/QoSB3nTo/4j+FHlDbWUnDc6H449CANso72W6cWY 5qK+yLT4r1wA+zQX
OTDp4vM244bYozDAIXQ1F52zh8TzCPmztfs+tkdz1kGqOVcUjpw2Y/elhuaO BeuEwWygOTAbaA7M
BpoDs4HmwGygOTAbaA7MBpoDsyEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAA4FYsu5DP8TU/7/ZsvNUEZ8l42Myc6r8MM6viBM1tN7DZETS3FWju U0fQ3FZYfPJrqH19
4fq9Drx/v3FJqU8wqSNvA8TVZJzZ2dDnFzNL3pZHFb6KICgMF52EPk2saT6X wdeVCigvgHT2DlYV
/qdJcr2eq3W6lFkKpNQam6YQ1amPcJDcZ05tuDi441GFLyOICsNNn1HknXxh gMGRRnFlicO4fxD1
Fy+s/q4syJ33SWPL1LexyWN4yrk0X0OfqSCo7SI8F5zoRJnm/SkYzb3vYYc0 J253y8AV9wS55nQO
4S6KQ/7GBx5rNh2BdFnNtnx6zcX5bIbAvTmSFLepuWmPFabh+zmKKsAfZWeH tdXBfk7Hkab2o4z1
mA1ecSwtn+EBCvNlAXIQYLM77NXYT4LVt7i4onJ7FVy6gL7mWjZCV02PtWex Edju2WexPp33QKvJ
eU4DbJ3vaO7H9XPlmfA6+Jj2C+/F3AmR+V2l1qTIxVEOlywYXloeV1+1ie0d oTbb9ikLWj3H3tla
IIpC9ucjE15zNubnMVj082vo0wjOLwFYgObAbKA5AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAACu
z/+BH87ZCoPmHsf/zlZYpLn/TWCKE+D5W/FnKyzU3AwvFyz5I4DmwGygOTAb aA7MBpoDs7mw5r69
d3qsuZbTn7YV0UlcWnO0tZk3JQ4113QKzR3Cj9LcNk1UzfGgCXcSGtzDLTSn dokTu6qx2MV7PWMS
lQ2/o6K/P+1OdLQern5IfIlMQ3tbuIPmyqfYcG8RXN1FXv5bv4iPsOhEVTWs 9S3sCTvWD2G83cGl
NVcu53WnwpHOYs21BPF2svxQ7df+rftvyXp2dd2NS2tu/Vl0Z+oH0RdxpLn2 7t5xP0dEHNmMfBGh
n9vBHTSXyCke51QianV16npOdV2RzXhMheJ28GM0t/d67uVgzIe/noPi9nAH zZEazoIxT174B/uh
dzVHyoTbt7zubq53IxeZz66xW3FhzX2/6GeX86FAc2A20ByYDTQHZgPNgdlA c2A20Fx5NvI+uv2x
x3iOXbbNgr7tC7wux+M1V/Tm2nG0YQ/UXLBWyi5cYbr9CwWfrrnau0Fzs4Dm XryaUb61tLzE1L4o
VqVZ85Y3npaZCpdXdqXqFesiZ/h2VbI21BvR7wg092KdSCMhq6IumyR817N+ 3bTPa95mzuq/wrl7
V3lZz0UmvtsCzb3goE1z3bBXhjkoeyqKNUfszUWaI7GeAJr7XlAna869EZzI qaPeTYrFBGvqRXg1
CcsBsfzkfCWaM1FBc98I6vx+jgb6OQrymr7OdYXqgxPjNgITFTT3jaDOelby wfUcR5pjLyntrT+2
Ks2hn/teUKc8E2Z930rxfWvwB2LlnBl3lwxULaqf5C2CuJUwltWCPkq62nsB zRmaLTm7mXnziTsA
zRmgua8DzSk6M5nTm5o3Hb4J0ByYDTQHZgPNgdlAcwW78xzzt3fAeyjQ3EK4 w1IiOMjwI6A50g9Y
lZ5izd19LdHZQHNl1QaLyQSxIRiJqQciscPd+9TZdXVDHq+5Mg1VVFXEVU6y /0fdZ3kg4+mak2s8
SM7Xv39UmnNblUB0u3i65ko/J9eXOM3psRb93Gc8XnPrgGqH2HJK/SgXnJxd S7cFmqO34sTl3Mj1
HBS3H2juxXrbqm9U4/tW1cdBe9uB5t5ARfOA5hbK38ecXfifDzS3gsnVWUBz YDbQHJgNNAdm83DN
zV8ix/1zPslwmNwwMu6Ss2R7D2oerjkKK2mHBoez7NPc9ki2aa53EJo7yAs0 B83VoOZrTv45fbJ7
HC0nxdR/+VCb3lBdp6I3plvdedNyDwGbhGRD2lC8BbuPXuhHvD3K7l5A7PPK I+KVQ5ELaK5d9NeH
XFBCLL4F24bI6dZgpxG5fYTKKjdlikzXD1ZmVsr1nA0lssDCVuJHJLOpOcrL DUeBi27FQ3PU0RyR
rVi/a4hMzupr0PrhBycp1VdzLApjwBYPZU9/L/KCQXPdor8+1gFD7ltDRkRs +i3VcKySq53mKOie
nD2VjF0Skax4o0YYsiOyfsw+ebabTvedktbMpj7JHnvtiofmSLRJb2ylpFXY n6TMQqvX88aJTEO2
ehrXzzXzRL3iSAfGyUEXalbx0Bx1xtbl2kWnS9pIXOcQNYSRjVvskhCJhpSG EqmkYyur6KJ87X6u
VWydrFvx0Nzrv41t4MRGckqR6lZwrW5mVfNm5F1zysHOJJN716kh2m1Ol9y3 2n30tB/3C2LumOO8
rrx+Gz7ct454uWDJNzDQuBcFmrsr0NyxQUFzfaC5Y4OC5n4y0ByYDTQHZgPN 3QNz9Ta45M89L7vE
RSA0l3FS8/DI4dHY+HMTXwCay4DmvsXjNTf+LlWzAi2YqWg9/9d21OxEayGe sE5yOl0GEizqMzEJ
y0nxZvJ0zclJVj1faues9Gymn0QdmKssdhqz6nIiLbRO5ALxQUclaRZvJtDc +svfmLUnilqcKJGW
yRXbCf3p8w3hhlFyElMapEg9k8drbsu7VOscvJzmJtecYvFbGcMaK1OihWlB Fn0k0VwcEwdedQlm
8njNvb8Pv0t19KRAH+FW8njMa6Xj0KTP1evGZwLNZe2WXs/Ff/YwfD2XOWoP loNjq45JjK3pBzS3
BDX7vrUONaRbI7pvFSNTvSpK3u0a3be6gTBbiCeNsDfCVp5sY6p7OArLunhB vzyh4h+uuVG6DXNC
h3FToLlBoLnDgOYGgeYOA5oDs4HmwGygOTAbaK4QbfG2Tk2w+BG7Dn8INLcQ vqewPMRim84CGY4D
zZGeWJLiMe9gsl9NSshuEGiurGWr729dezalOf1SQ7zSdT+P11yZ+pLTQyyX QRLJH/JXgFE68ALF
0zUn15WQmsUf0pzp/dDJjfB0zZV+rsz0D2oOr3TdzeM1tw6obojt9nPLj7Wf g+LGgOborTi5jkiM
nFTuKLrXc1DcINDci3LjoK/W5DNhPXzila77gebeQDLzgOYWxBJ08F2guRXM pM4CmgOzgebAbKA5
MBtoLnub2xa25Dp9Cd7OR4n9kDnKFOzg/3jNmRr5SHOcnWgd2q++qTl3OYsX 2jxdc7ZWoLkjnUFz
ruiqPuzrY+pSk/bGc7Wj9FvdRLu8GY/D+9y5XeaSrercvgFsjrJ1krhVmc2W dyomX3eurBhb16KT
qRW/uQJFWy6I4bjmEj9RbTb5b3Vk3sVqkqTuko3r0ni0PZ0t2K2uVXZqxhQk kYUtcYmKh+Ze+KrV
J8gfJZt2THMUmrA/Ones3TFFDkIjPspAmtQqOyduffF1WV8/4h5CFp2MApqa izeeUy8t5XpkTUmq
ZUl91S+W44472dTuSI023O/ORqnt6OK7std3y6pddzjUXHRLztBcLTqtlREO IUuyvG8JP8QFElFb
c9piz13YYSUOvD0dJWfJRvr4uHdMCwPNqaKv1ZIOIa8E5Wi88dxHY2ug4szd 8NgaDprpr5Vzu3Ns
VWHrskJzoujvGqkr4qiMD6Q6rGWEK5XH9v2rouHSTexEDr2ZK4sgGu6Uwlpb 1ZGxZ49yHQHz+1aX
2RTEbURbvimJ4Zmw8TLmhIdSHcZkd2e4heZ6QHNHA831gOaOBpoDs4HmwGyg OTAbaG4Y/WTVn9h7
8ABYPrL4xDFvSLsbaG4Y3nRin+Z2tjd3MrP70kgHzX2z6NvS31hzm+xDc98s +r//uify9qF9/VN9
Mg/kl9TyCMtJhGydHZGaIFd+uBEL6Xi0M173z3Pxi+x6hV9a5NYEBTfiG1xy /3TNpROUcqZTzX+6
1K0VaulkOI29NNZH59LayIL4nUF5hqLojcOOOR9mp+KhOXL1SOVrPKFNjVqn UCrxec6aLXQiv3Ks
FI7iJ2cwiI6Mpdh3YM65HKj4Z2suXnC2nEg1l75b1UzwZ+vsRl8amyyHoxHN xev9fMnIhR2LvLF8
UIyt0Fyn6MuX8DfVi6DVJGHnGBuVH9xwZ+yRStfXXN5xxiPhQAHTfphCi42K f7bmWsNg2s8t54jy
9h8ZW3MBdQfpjuZc/K5bbutKnuMBc8rlQMU/W3Ot+1bbz9lVYmtqdmbcC1ej +9Y6UpFuzN5yODHc
VWdCLI31fsyuZM4NG4f95YPmdr1f8Q/XHGgzIqKNQHOgCTR3bNHPLucdgOaO LfrZ5Xwo0ByYDTQH
ZgPNSfyjTndu4GCcjj+8NvrChdVJQHOSr2iOx5PuMnM7MUJzEmhuBo/XXPAI nsLJgM4ze/GoX88Z
6FkCuxiAl5TH7nF3bZ6uuWwutTdX6uYm7cKPLKmZTltSOlODc7V25vYWQHMv 4ulte44aGWSL9zVH
OpN2ytTxD819Iaj5mpMT5euI6c4RDWiusadbndgnZdM4Zer47+5xd22guRe6 k0m7O+prrje2sj0V
pmz7F2s+CJo7KKhzr+fMWrDB6zkq53lIc6qfi64lP9jj7to8XXPhbai4fdXn sgzitF9bl9y3aqEe
u8fdtXm85i7BPbRyFNDcFYDmTgea+9FAc2A20ByYDTQHZgPNFcRfy9tjLJ9+ 3Gg2/ZpAcwvRy9Dq
n4OyOQA+AJojM10qUmiplS8tzUGOfaC5sqscl1mAtWdTUnsNqurNNaoTrK+W eec4uw4vzOM1VxZo
rGpa1cdOcyT+Uz5F0vISp7Pr7+I8XXNl5rzOvZMVkdJcuYcQk6ku+dkVeG2e rrnSz8mlaC3NUT2k
9SbEeHb9XZzHa24dKt0Q29Zc3sdBcT2gOXorzl+okX5W0tecXBEHcqC5F+Vu oNx71rtRTsZWe0b1
cNBeDjT3hoNv4DtAcwtyGS74KtDcCqZSZwHNgdlAc2A20ByYDTR3xDOO1gNh f4jPvnTc+RyxH3JU
fHZ/Bvl4zZn6+Ehz3DjXOLJffVNz7nIWrbJ5uuZsnUBzxzqD5kzRVW1kG8pt 3BtOvxzVb2bnfdoN
5FKH7t2t6k11OiJtz+8+oJ0kblVmXTpfUF17rqwYW99Ft3VSdnhQ24W4o3In h5KLKEjmM7wtNl9m
mDrUG1GYNX/xfiqkE4hCcpIsLj01YwqSyMKWuErFQ3OlTlx7ihPkj5JNGzVu 0A72d5+dl9ghU2bY
5I7tNeKk0LLPzK1AXAylmLiHqEUn0/5NzY3tDbdJc2ZnHu44lE3tjoh758he Fmdjt7wgs3TrumoV
toYJmluKTmtVhAPIkizvWaKPbZpLT7f6FNvGFFnw9tI4U7c+c9qJOsO6rNBc KfpaKekA8kpQjo7s
Dbd5bA10nDkcHlvDQTP9xXJud46tKmxdVmiuFP1dH/XvG6iMDiRrfXxvOG2G ykDjdrDTx1mE0XBo
DFNVYue+1R7lOgLm960usymIK2j5piSGZ8LKy5gTHkp1INMdznYLzfWA5o4G musBzR0NNAdmA82B
2UBzYDbQ3DD6uao/sffgAbB8YPGJY96QdjfQ3DC86cQ+ze1sb+5kZvelkQ6a +2bRt6W/seY22Yfm
vln0f/91z+PtI/v6l/pkHscvqeURllMI2To7IjU9rvxwIxbS8WhnvO6f5+IX 2c27Y7Mit6YnuBHf
4IL7p2sunZ6U85xq9tOlbq1PS6fCidV/7Xq2fPLUpbWRBfE7g/IMRdEbhx1z PsxOxUNz5OqRytd4
OpsatU6hVOLznDVb6ER+5VgpHMVPzmAQHRlLse/AnHM5UPHP1ly83Gw5kWrO rzpzk/msjer1a+tP
rM54zSWL4WhEc/F6P18ycmHHIm8sHxRjKzTXKfryJfxN9SJoNUnYOcZG5Qc3 3Bl7pNL1NZd3nPFI
OFDAtB+m0GKj4p+tudYwmPZzyzmivP1HxtZcQN1BuqM5F7/rltu6kud4wJxy OVDxz9Zc677V9nN2
jdiamp0ZfbCeYONCn1nbrLcYTgx31ZkQS2O9H7MrmXPDxmF/+aC5Xe9X/MM1 B9qMiGgj0BxoAs0d
W/Szy3kHoLlji352OR8KNAdmA82B2UBzEv+o050bOBin4w+vjerjif1hXANo TvIVzfF40r1moLnP
g4LmtpmB5j4P6qx5CDHH0J1DSLarc3MGepbALgbgJeXRe9xdmadrLptL7c2V urlJu/AjS2qm05aU
zlTLv07mM1wdaO5FPL1tz1Ejg2zvvuZIZ9JOmdr+ufFxB6C5Fywnytehyp0j GtBcY0e3OrFPyqZx
ytT2D819I6hT+jlKmjD9CDXXG1vZngpTNv1Dc98I6tzrObMWbPB6jsp5HtKc 6ueiS7OP9ri7Mk/X
XHgb+v4wd6r6p3S7Or+2Lrlv1UI9eo+7K/N4zV2COyjlOKC5KwDNnQ4096OB 5sBsoDkwG2gOzAaa
e1N3whFPxtYTFBwHu4Hm3oxrDrr7FGiO6vP/VXMSqTky5yG/XUBzpnuTX5bv 8vg6tVDmDV4fZ1fY
vXi85sqbl6i+E6nq6z2lJI6pf4RLvD08XXNqll32cyP/3jnPrq3b8XTN6X6O RvVWVrehn9vO4zWX
Xc+N9XFQ3A6gOfL3rfp6rvHv7Iq6J9Dcm9Z9q+7f5H3rmvnsCrsX0FwDDJ1f AZpLiJ4Pg0OA5jIG
NwEHm4HmwGygOTAbaA7M5uGaSyewuPGTh8eStVxstsQbjrYN+nMsZlp2GOwA zb34UHMDyXgs9YDm
mmtZ9kihHxq3Mm12+XDNpQ14ec3tObk7NGjuKC9ac2rvN3FE/9TaG05mIpl/ zRL/5f/wDnhq87nk
XTlsD0Qb5enT1hkpQSUuayZ3cqDin605tSGN2OihKsT8JKRDMg3Vb/4cax82 k9vVhActZfnDD1NC
Spy9bJaVhJnL/ORIxUNzgR56O9KkeyaJD5GfMsMUSCc27zL08rvTpgSUOFNf 0+ADE9DcSNFfH7zu
SWPf10r6V92fX7KRbguxt6vdt84bFnn7O+BJZ9qNzp/sl2d/a+xwH2nO7B1k yxJWyUDFQ3PvRiRa
P7LByZxfGRhbU8PU10borBdC3y5nzozD7DTG1l1e1jWb5b/usou5U8FOPkum 9SfuGKbAPkeWApn0
83eOc+isVgn1S41+bqMXpblg4Kp3Z35gW40EY6sYd0lkZGtYj40DO+BpS838 jeOsA81C0qUWZl0F
4b51g5cLlvwRQHNgNtAcmA00B2YDzYHZQHNgNtBcwuit/2A67px0z3Kp89P4 o4k0GM5OfFpebueA
5hJmac61P2/Kt4tPjEJzH3mB5nYYheY+8vJeP2ffKUNkZhCI5Il3yjJ3YdLV v/03Js2qtXJev901
XrknHUd+w48o6BqaX1NXY+qZUZmi1K5OzDTF4zXXn4skakx12nScmVQHA5Pt SVA/r9uYWM2D1qsD
4wL1zNgi+dS+7vR07OM1R3m7mXon2/R5+xgj1LFlJUAt/9s8kLMWZWSXzN+t eM1Rlprb0UBz+lc3
WDL3wi5Sex906bqaa7/dVafSo2nQ85h5+PpZk5GzZkRjC6THT/JOXfZgJPV1 IgdXaC4XCOv0+nyc
rqe5/tga97PUiW+8Q42HSW2m07mm4TVjg+aocz3XE0hwVBxpmRzo55ga15N7 PKT9nDhHw2VPRZzW
iQiKoDlxPynGCDdi+Hs3CtOx/GfX3b1/skOeFly0cs87dtGqDzMgi7VxYuBT 8ajwx+9bs9RBndSg
oDn+2AzYCjQHZgPNgdk8XXNgPtAcmA00B2YDzUnMM1/wFaA5CTQ3A2hOAs3N 4PGaG9j9DRzL0zXX
moGE6L4DNPfCTWATQXPfApp70dr9DRwMNPdCLbshjK1fBZpLF4ehn/sST9dc Z/c3yO4LPF5zYDrQ
HJgNNAdmA82B2UBzYDYX1Rz4yVxTc/+bwBQnwHNVzc3wcsGSPwJoDswGmgOz gebAbKA5MJvram5Z
1iFWd4QLPZj3rnTT70bHhP40foDm7JlR6ZS9wKC5uVxXc15NY5ob7vTWvcAI mpvLLTRXl7TJ7c1E
PygOyf++P9jtMbcWnaC5M7iD5sqn+feCs7N1Z3rmMOt6PcfQ3FwurLnaQckt Kb3mRPeVaC7IRtDc
adxCc0FHpfq5um/4Hs0RQ3NTuYPm0h5sSaSPQHNX58qaE3swf3Y9F2etz+cY mpvJHTRHYtS0N58k
Zem+604wvm8lqn9ciD+knsGlNfftop9dzocCzYHZQHNgNtAcmA00B2ZzUc2B n8w1NXf2nyaB73K2
wgLNnV0l4MucrTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAcHMGtvIN
zvt3ggEwit1IP0kSHoLkwB786wkB+C7ZS+TEK+OWrlC+L85swQ/hgg3Yt4f4 j/W9D0EqdwqAPl5z
8lIte4dS+nYcALrInky9h9WehebAQbhXxdXBkqA58A3sG+H2XM9Bd2AL9Zlw fN9KSmfJfSs0B44H
ggKzgebAbKA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcFC5/zf8t B19MPc0sZ2a48dOU
kn1qfXPLH1AOdl8OdnYJzX3q4CKa4x1n+iahuS8DzbmM52uuDLTL/hH/vnD9 rjc5UUfWjSdqztdm
AMWaz2GOvFPX8zoKsSVtaLYdU1IKdTI3xUF0wRFumzCRUOi3BkUyswu+Fcem CtJN087nQzZlHFKk
vZ6rWbm2OalITGvVIyyTU/STzWFPsDqvopDtEJltx9QrBfdDs9ElR9omSiZO /NJIfCNxjFZQ3gI+
n67R4GOsE7T9XP1dzLTCUfqgQKGB0EbcXKSj0JrLNZzFpINoNgI18m/Mm4WQ 5q3lDqrG5KRWHOMV
lCrItVCYl8KgWjjNrb0ei++R5vyQN6o5nWM9JDKK8yzSq1DlL5ccdNOYZBB5 zDa0WgVxEvbenIkB
zbEdXGtZXRPULY2oGcdwBWUtbfIZzenRcdOzj6ifK62daUnkyX/fWv2c95n8 WvqeiRKzvZjiUoz0
CK0kHNXHZs2ZahWa29DzpC3RqyBu1IY2mKbxTdsi0pz5N9JaryPcrtJWq/mL wDCaWk89FbiY7O9w
UoP5iU4S2mIi9+tbhVs58zhGKyiIIzXYarNA3anm7DNhOZCJmzYi06O37hHl SVYflNgglUz3bdl9
K7lRpn3fKkshiysbk109iPvWOK+7b+2ZCJTD8lZJftF3knktunoYryBSRtN8 rlNictEMau5Apnrc
2o3fgkBzn9ualO8coLnDCnWS5s7pq2aX8tvO7lWDa9BHRL3LRvdNcAAAAAC4 LocP45yZ5Tz1jLjA
D4cHj+WnoTnwOdDc47ELzOyT72xhmT6h18yJx+4iZbU9ur7NrwsDP4FogZla tZlN2emJumjqzZxz
KTP38ZQe+DFkM9Dx/DA1kpH6Oj7F7N2n+cGPYFBznbVZYkJ/RHNj69uguR/K mObSvsouNhju5zru
0c/9YKJGj6/OmtdzFGQcGls5To1+7gfjJKLXUJmDRNl9q8pYMolea82b37dW aUfLuCC7n81A+x4k
ASgJDA9l0Bw4jrFHsNAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABO Q+6BH5y1fzmtTvnE
1LE0knKD0TApd86P2DdHoxrqBbbL22F/H7KpunsVdzCce3OR9DQ3Uq7NeQ9M ultzGzJ+6C1t/a16
2FTd0Fwj32dJobl24rmao2CLBzb7Opj3ntTEZQc6Xn8KtqarZszf9YuPai3c ga66NPbLn/+T20JA
5Qi9hqllUZcvdvsCnST4ussbSwNiG4Rk/4Ng+79qUvniMEYVVVyiss1C5w2v m0THtasLtxWp/4/3
L1En5btJyZ1Qpp0jaY0ip3F4kY88R1I8kzp9L2u4SV9efZu9GWtVnGx8RHVM ziRHP6VN3EySyGBv
52i3FUk051sgTNw+krUHNayZZDp57NHn0F7JFC9J7TUXlq2nuXFvw5qjrJzO l8/YiCqt3175d6hu
WHN665ztmote+xm8i1R/mLfgUc2derTvzdNb4w2pwL7kdFhzH3iTqdV7axPN ue3/mprb9HracBfA
sGF2qG2L5rifuHkk7AOoY82kDpO6gJPf/w0qUMFt7Of2evPWmv2cr4OW5lox DjZs2DDf11y6I/Cg
5rhZF9wvYRwK526Cdu0p1FXIRs3t9WY7plRzHNRBc/NSTpKE7UvkbEeVLn81 NomO6y0Mi2NkL8nV
60vV+8t9s69p1phEN63fPd29b412oFM3tdK5vQszOUKvsX02UanUUZId962R NyEpc99oI7J14F8s
G0XdjMolESeMCV/+mRzr9JQi3JAz6+n8NoLmzgCau6q1n8uzNQcAAACAAVh+ 7Bu/2VgxphsHNgeY
nwdXhLtH9zdfTxgf2O9lSl1/T4yQ+Sh9zX1sG5oDEv0MvLkSzU8D5JMHtIyt xgqp4zKhSpUv89q4
VK6/Di1fD5aU0s5GlDTL03qmsx7O3wczvdJaiRZO1b2ONCb32CUO0rucyWRl J0CTQ5eOsrlyHvBc
StmIl0nZAimq+4l0Q43WIHdENbezQt2EwpyMrhEg6XC2ay4vZZg0FptOCs01 WQeHVHN+wVxn0Zsb
MqsVolwwdhSs0bUD7C6VG1mHVjpLtc6BbOBJchP2vkVlD8LXpO+hKNQBJQ1H Kq+yQtY6JTnj3qbX
EVOWcfk+1M+RCzWtqbQXRj/XRFwObR9b5ZVOM286tiY5va+Plso1x9bh6zlK Ag1+I6C5FmLRlKq0
YLWXHnVG7lutFaJsKFXDdXT32ApQ9Tnb1qHl68GCUqrIXbxikXjQZ4JjuXn1 3jz8Z3LzRrt5+M/k
5o128/ABAAAAAAAAAAAAwD34fzxOoLcOmm7oAAAAAElFTkSuQmCC
------=_NextPart_000_000E_01C5C4E5.A6E5CC80--
Attached files
Color en Dbfbrowse
This is a multi-part message in MIME format.
------=_NextPart_000_0055_01C5C531.4A8BEA40
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0056_01C5C531.4A8BEA40"
------=_NextPart_001_0056_01C5C531.4A8BEA40
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Ignacio:
Probado lo que me has indicado y funciona, pero solo me pinta una linea. =
Quisiera que pintara todas las que cumplen la condicion dada. =BFDeberia =
ser asi?
Paco V
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:[email=433bae42@ozsrvnegro.ozlan.local...]433bae42@ozsrvnegro.ozlan.local...[/email]
Pues... porque no me tienes delante, porque estoy mas rojo que un =
tomate!!!
No hab=EDa buscado en la ayuda...
Me hab=EDa limitado a mirar los eventos del Browse en el inspector de =
objetos, mea culpa, Sorry.!!!
Gracias,
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje news:433b9d9f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,=20
Es que =E9l pregunto por la l=EDnea espec=EDficamente:
>marcado, esa >>>
<<< me aparezca en color rojo. =BFEs posible? =BF Por donde=20
Para pintar una celda en concreto. En la documentaci=F3n podr=E1s =
ver lo siguiente:
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:433b9871$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>=20
> Ignacio,
>=20
> Esto "pinta" TODA la l=EDnea (Row), todo el registro!!!
> Pero... =BFcomo coloreamos una celda en concreto????
> OnDawCell ???? no est=E1 implementada, creo.
>=20
>=20
>=20
> Un Saludo,
> Xevi.
>=20
>=20
> "Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 =
en el mensaje=20
> news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>>
>> Paco,
>>
>> Es muy sencillo, tan s=F3lo tienes que capturar el evento =
OnDraRow() del=20
>> Browse.
>>
>> Algo as=ED:
>>
>> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>>
>> if ::oDbf:LoQueSea > nMiNumero
>> oSender:nClrPane :=3D clRed
>> else
>> oSender:nClrPane :=3D clWindow
>> endif
>>
>> RETURN Nil
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el mensaje =
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un =
valor=20
>>> marcado, esa fila me aparezca en color rojo. =BFEs posible? =BF =
Por donde=20
>>> puedo enredar o existe alg=FAn ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>>=20
>=20
>=20
>
------=_NextPart_001_0056_01C5C531.4A8BEA40
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Ignacio:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Probado lo que me has indicado y =
funciona, pero=20
solo me pinta una linea. Quisiera que pintara todas las que cumplen la =
condicion=20
dada. =BFDeberia ser asi?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Paco V</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:433bae42@ozsrvnegro.ozlan.local">news:433bae42@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Pues... porque no me tienes delante, =
porque estoy=20
mas rojo que un tomate!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No hab=EDa buscado en la =
ayuda...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me hab=EDa limitado a mirar los =
eventos del Browse=20
en el inspector de objetos, mea culpa, Sorry.!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
=
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>> =
escribi=F3=20
en el mensaje <A=20
=
href=3D"news:433b9d9f$1@ozsrvnegro.ozlan.local">news:433b9d9f$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV>Xevi, </DIV>
<DIV>Â</DIV>
<DIV>Es que =E9l pregunto por la l=EDnea espec=EDficamente:</DIV>
<DIV>Â</DIV>
<DIV>>marcado, esa >>></DIV>
<DIV align=3Dleft><STRONG></STRONG>Â</DIV>
<DIV><<< me aparezca en color rojo. =BFEs posible? =BF Por =
donde </DIV>
<DIV>Â</DIV>
<DIV>Para pintar una celda en concreto. En la documentaci=F3n =
podr=E1s ver lo=20
siguiente:</DIV>
<DIV>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:005001c5c520$85db8a30$[email=f656fed5@mcs]f656fed5@mcs[/email]"=20
align=3Dbaseline border=3D0><BR></DIV>
<DIV>Â</DIV>
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:433b9871$1@ozsrvnegro.ozlan.local">news:433b9871$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>>=20
<BR>> Ignacio,<BR>> <BR>> Esto "pinta" TODA la l=EDnea =
(Row), todo el=20
registro!!!<BR>> Pero... =BFcomo coloreamos una celda en=20
concreto????<BR>> OnDawCell ???? no est=E1 implementada, =
creo.<BR>>=20
<BR>> <BR>> <BR>> Un Saludo,<BR>> Xevi.<BR>> <BR>> =
<BR>> "Ignacio Ortiz de Z=FA=F1iga" <<A=20
=
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>> =
escribi=F3=20
en el mensaje <BR>> <A=20
=
href=3D"news:433b9524@ozsrvnegro.ozlan.local">news:433b9524@ozsrvnegro.oz=
lan.local</A>...<BR>>><BR>>>=20
Paco,<BR>>><BR>>> Es muy sencillo, tan s=F3lo tienes que =
capturar=20
el evento OnDraRow() del <BR>>> =
Browse.<BR>>><BR>>> Algo=20
as=ED:<BR>>><BR>>> METHOD BrwDrawRow( oSender, nRowPos ) =
CLASS=20
TForm1<BR>>><BR>>>ÂÂ if ::oDbf:LoQueSea >=20
nMiNumero<BR> >>ÂÂÂÂ& ;nbsp; oSender:nClrPane =
:=3D=20
clRed<BR>>>ÂÂ =
else<BR> >>ÂÂÂÂ& ;nbsp;=20
oSender:nClrPane :=3D clWindow<BR>>>ÂÂ=20
endif<BR>>><BR>>> RETURN Nil<BR>>><BR>>> =
"Paco V."=20
<<A=20
=
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <BR>>> <A=20
=
href=3D"news:433ae026$1@ozsrvnegro.ozlan.local">news:433ae026$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...<BR>>>>=20
Quisiera hacer lo siguiente:<BR>>>><BR>>>> En un=20
dBFBrowse, hacer que si un campo de un registro supera un valor=20
<BR>>>> marcado, esa fila me aparezca en color rojo. =BFEs =
posible? =BF=20
Por donde <BR>>>> puedo enredar o existe alg=FAn=20
ejemplo?<BR>>>><BR>>>>=20
Gracias<BR>>>><BR>>>> Paco=20
V<BR>>>><BR>>><BR>>> <BR>>> <BR>> =
<BR>>=20
<BR>> </BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_0056_01C5C531.4A8BEA40--
------=_NextPart_000_0055_01C5C531.4A8BEA40
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <005001c5c520$85db8a30$[email=f656fed5@mcs]f656fed5@mcs[/email]>
iVBORw0KGgoAAAANSUhEUgAAAnMAAAIbCAMAAAC3yegLAAAAB3RJTUUH1Qkd BzQ6WS32zwAAAAlw
SFlzAAAOwwAADsMBx2+oZAAAAARnQU1BAACxjwv8YQUAAAAYUExURf///wAA AOzp2KyomcDAwAAA
ZszMzGZmZuf+ZQEAACJOSURBVHja7Z2NgpyqsoWr7slO3v+Nb9KtUL+Ato06 ru+c7O5RqCpgDagw
SL8AmAudHQB4HNAcmA00B2YDzYHZQHNgNtAcmA00B74FGcrx139Zon8eM99K O2xkr4NfW6MdNb0c
PqQAD4T+U4xrbqS624kPaLJONJt/RQZNQ3Mf8U3NdVJ/3mS9cDb+igxnheY+ gv57Dam///6Pfv+2
mnshqrZ8HWnFkqbdW+yn2O2qerPo2rFDcx9B//3+B73+O645We2iM1CfKl/N FpkILP6SSlntcZjT
HHHpnPESCXv/aezc8g828B5b//Z24dj6oqM5OQLJdgs6CD1apZpb0uikPifr wDhLZ7IUXYqv47FH
kYNt0H9//vz5Jzj6+/ln89gq9PGrdgW2q6i5A4FmmjNJfU7lwGou7gil0Eop tsUeRA628XdspaWv
+8uA5lxPolXQazeXJ9Kc+ghyurhM19fUnPM5ErsLxwUAhvl3Pbfcs/7+M3I9 F49eG9otacC4PeM0
v7If8sEv6Bp/bdOcNwPN7ePVz9HSzW3q53S1rwOsGmi1q3rgGppjKbN+7KLY 0NxH/NXcnz+/X73c
n6F+rn5TjXM3zVkJQXPz2NzP6a9tzQUDmc/7ieaC+9bAVhyuGlbHY4/Ngw3Q 0sENX8/pr1JHv5Yj
v7xAdEMedD0XBJZqLrFTDg/E7h1Dc/t493Mr+8dWeQ1u7mnVKXG8fuR3sz3N iUcpQTrVrUV2TP52
7DUDNPcR7fnWF0P3EEG7/QoSB3nTo/4j+FHlDbWUnDc6H449CANso72W6cWY 5qK+yLT4r1wA+zQX
OTDp4vM244bYozDAIXQ1F52zh8TzCPmztfs+tkdz1kGqOVcUjpw2Y/elhuaO BeuEwWygOTAbaA7M
BpoDs4HmwGygOTAbaA7MBpoDsyEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAA4FYsu5DP8TU/7/ZsvNUEZ8l42Myc6r8MM6viBM1tN7DZETS3FWju U0fQ3FZYfPJrqH19
4fq9Drx/v3FJqU8wqSNvA8TVZJzZ2dDnFzNL3pZHFb6KICgMF52EPk2saT6X wdeVCigvgHT2DlYV
/qdJcr2eq3W6lFkKpNQam6YQ1amPcJDcZ05tuDi441GFLyOICsNNn1HknXxh gMGRRnFlicO4fxD1
Fy+s/q4syJ33SWPL1LexyWN4yrk0X0OfqSCo7SI8F5zoRJnm/SkYzb3vYYc0 J253y8AV9wS55nQO
4S6KQ/7GBx5rNh2BdFnNtnx6zcX5bIbAvTmSFLepuWmPFabh+zmKKsAfZWeH tdXBfk7Hkab2o4z1
mA1ecSwtn+EBCvNlAXIQYLM77NXYT4LVt7i4onJ7FVy6gL7mWjZCV02PtWex Edju2WexPp33QKvJ
eU4DbJ3vaO7H9XPlmfA6+Jj2C+/F3AmR+V2l1qTIxVEOlywYXloeV1+1ie0d oTbb9ikLWj3H3tla
IIpC9ucjE15zNubnMVj082vo0wjOLwFYgObAbKA5AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAACu
z/+BH87ZCoPmHsf/zlZYpLn/TWCKE+D5W/FnKyzU3AwvFyz5I4DmwGygOTAb aA7MBpoDs7mw5r69
d3qsuZbTn7YV0UlcWnO0tZk3JQ4113QKzR3Cj9LcNk1UzfGgCXcSGtzDLTSn dokTu6qx2MV7PWMS
lQ2/o6K/P+1OdLQern5IfIlMQ3tbuIPmyqfYcG8RXN1FXv5bv4iPsOhEVTWs 9S3sCTvWD2G83cGl
NVcu53WnwpHOYs21BPF2svxQ7df+rftvyXp2dd2NS2tu/Vl0Z+oH0RdxpLn2 7t5xP0dEHNmMfBGh
n9vBHTSXyCke51QianV16npOdV2RzXhMheJ28GM0t/d67uVgzIe/noPi9nAH zZEazoIxT174B/uh
dzVHyoTbt7zubq53IxeZz66xW3FhzX2/6GeX86FAc2A20ByYDTQHZgPNgdlA c2A20Fx5NvI+uv2x
x3iOXbbNgr7tC7wux+M1V/Tm2nG0YQ/UXLBWyi5cYbr9CwWfrrnau0Fzs4Dm XryaUb61tLzE1L4o
VqVZ85Y3npaZCpdXdqXqFesiZ/h2VbI21BvR7wg092KdSCMhq6IumyR817N+ 3bTPa95mzuq/wrl7
V3lZz0UmvtsCzb3goE1z3bBXhjkoeyqKNUfszUWaI7GeAJr7XlAna869EZzI qaPeTYrFBGvqRXg1
CcsBsfzkfCWaM1FBc98I6vx+jgb6OQrymr7OdYXqgxPjNgITFTT3jaDOelby wfUcR5pjLyntrT+2
Ks2hn/teUKc8E2Z930rxfWvwB2LlnBl3lwxULaqf5C2CuJUwltWCPkq62nsB zRmaLTm7mXnziTsA
zRmgua8DzSk6M5nTm5o3Hb4J0ByYDTQHZgPNgdlAcwW78xzzt3fAeyjQ3EK4 w1IiOMjwI6A50g9Y
lZ5izd19LdHZQHNl1QaLyQSxIRiJqQciscPd+9TZdXVDHq+5Mg1VVFXEVU6y /0fdZ3kg4+mak2s8
SM7Xv39UmnNblUB0u3i65ko/J9eXOM3psRb93Gc8XnPrgGqH2HJK/SgXnJxd S7cFmqO34sTl3Mj1
HBS3H2juxXrbqm9U4/tW1cdBe9uB5t5ARfOA5hbK38ecXfifDzS3gsnVWUBz YDbQHJgNNAdm83DN
zV8ix/1zPslwmNwwMu6Ss2R7D2oerjkKK2mHBoez7NPc9ki2aa53EJo7yAs0 B83VoOZrTv45fbJ7
HC0nxdR/+VCb3lBdp6I3plvdedNyDwGbhGRD2lC8BbuPXuhHvD3K7l5A7PPK I+KVQ5ELaK5d9NeH
XFBCLL4F24bI6dZgpxG5fYTKKjdlikzXD1ZmVsr1nA0lssDCVuJHJLOpOcrL DUeBi27FQ3PU0RyR
rVi/a4hMzupr0PrhBycp1VdzLApjwBYPZU9/L/KCQXPdor8+1gFD7ltDRkRs +i3VcKySq53mKOie
nD2VjF0Skax4o0YYsiOyfsw+ebabTvedktbMpj7JHnvtiofmSLRJb2ylpFXY n6TMQqvX88aJTEO2
ehrXzzXzRL3iSAfGyUEXalbx0Bx1xtbl2kWnS9pIXOcQNYSRjVvskhCJhpSG EqmkYyur6KJ87X6u
VWydrFvx0Nzrv41t4MRGckqR6lZwrW5mVfNm5F1zysHOJJN716kh2m1Ol9y3 2n30tB/3C2LumOO8
rrx+Gz7ct454uWDJNzDQuBcFmrsr0NyxQUFzfaC5Y4OC5n4y0ByYDTQHZgPN 3QNz9Ta45M89L7vE
RSA0l3FS8/DI4dHY+HMTXwCay4DmvsXjNTf+LlWzAi2YqWg9/9d21OxEayGe sE5yOl0GEizqMzEJ
y0nxZvJ0zclJVj1faues9Gymn0QdmKssdhqz6nIiLbRO5ALxQUclaRZvJtDc +svfmLUnilqcKJGW
yRXbCf3p8w3hhlFyElMapEg9k8drbsu7VOscvJzmJtecYvFbGcMaK1OihWlB Fn0k0VwcEwdedQlm
8njNvb8Pv0t19KRAH+FW8njMa6Xj0KTP1evGZwLNZe2WXs/Ff/YwfD2XOWoP loNjq45JjK3pBzS3
BDX7vrUONaRbI7pvFSNTvSpK3u0a3be6gTBbiCeNsDfCVp5sY6p7OArLunhB vzyh4h+uuVG6DXNC
h3FToLlBoLnDgOYGgeYOA5oDs4HmwGygOTAbaK4QbfG2Tk2w+BG7Dn8INLcQ vqewPMRim84CGY4D
zZGeWJLiMe9gsl9NSshuEGiurGWr729dezalOf1SQ7zSdT+P11yZ+pLTQyyX QRLJH/JXgFE68ALF
0zUn15WQmsUf0pzp/dDJjfB0zZV+rsz0D2oOr3TdzeM1tw6obojt9nPLj7Wf g+LGgOborTi5jkiM
nFTuKLrXc1DcINDci3LjoK/W5DNhPXzila77gebeQDLzgOYWxBJ08F2guRXM pM4CmgOzgebAbKA5
MBtoLnub2xa25Dp9Cd7OR4n9kDnKFOzg/3jNmRr5SHOcnWgd2q++qTl3OYsX 2jxdc7ZWoLkjnUFz
ruiqPuzrY+pSk/bGc7Wj9FvdRLu8GY/D+9y5XeaSrercvgFsjrJ1krhVmc2W dyomX3eurBhb16KT
qRW/uQJFWy6I4bjmEj9RbTb5b3Vk3sVqkqTuko3r0ni0PZ0t2K2uVXZqxhQk kYUtcYmKh+Ze+KrV
J8gfJZt2THMUmrA/Ones3TFFDkIjPspAmtQqOyduffF1WV8/4h5CFp2MApqa izeeUy8t5XpkTUmq
ZUl91S+W44472dTuSI023O/ORqnt6OK7std3y6pddzjUXHRLztBcLTqtlREO IUuyvG8JP8QFElFb
c9piz13YYSUOvD0dJWfJRvr4uHdMCwPNqaKv1ZIOIa8E5Wi88dxHY2ug4szd 8NgaDprpr5Vzu3Ns
VWHrskJzoujvGqkr4qiMD6Q6rGWEK5XH9v2rouHSTexEDr2ZK4sgGu6Uwlpb 1ZGxZ49yHQHz+1aX
2RTEbURbvimJ4Zmw8TLmhIdSHcZkd2e4heZ6QHNHA831gOaOBpoDs4HmwGyg OTAbaG4Y/WTVn9h7
8ABYPrL4xDFvSLsbaG4Y3nRin+Z2tjd3MrP70kgHzX2z6NvS31hzm+xDc98s +r//uify9qF9/VN9
Mg/kl9TyCMtJhGydHZGaIFd+uBEL6Xi0M173z3Pxi+x6hV9a5NYEBTfiG1xy /3TNpROUcqZTzX+6
1K0VaulkOI29NNZH59LayIL4nUF5hqLojcOOOR9mp+KhOXL1SOVrPKFNjVqn UCrxec6aLXQiv3Ks
FI7iJ2cwiI6Mpdh3YM65HKj4Z2suXnC2nEg1l75b1UzwZ+vsRl8amyyHoxHN xev9fMnIhR2LvLF8
UIyt0Fyn6MuX8DfVi6DVJGHnGBuVH9xwZ+yRStfXXN5xxiPhQAHTfphCi42K f7bmWsNg2s8t54jy
9h8ZW3MBdQfpjuZc/K5bbutKnuMBc8rlQMU/W3Ot+1bbz9lVYmtqdmbcC1ej +9Y6UpFuzN5yODHc
VWdCLI31fsyuZM4NG4f95YPmdr1f8Q/XHGgzIqKNQHOgCTR3bNHPLucdgOaO LfrZ5Xwo0ByYDTQH
ZgPNSfyjTndu4GCcjj+8NvrChdVJQHOSr2iOx5PuMnM7MUJzEmhuBo/XXPAI nsLJgM4ze/GoX88Z
6FkCuxiAl5TH7nF3bZ6uuWwutTdX6uYm7cKPLKmZTltSOlODc7V25vYWQHMv 4ulte44aGWSL9zVH
OpN2ytTxD819Iaj5mpMT5euI6c4RDWiusadbndgnZdM4Zer47+5xd22guRe6 k0m7O+prrje2sj0V
pmz7F2s+CJo7KKhzr+fMWrDB6zkq53lIc6qfi64lP9jj7to8XXPhbai4fdXn sgzitF9bl9y3aqEe
u8fdtXm85i7BPbRyFNDcFYDmTgea+9FAc2A20ByYDTQHZgPNFcRfy9tjLJ9+ 3Gg2/ZpAcwvRy9Dq
n4OyOQA+AJojM10qUmiplS8tzUGOfaC5sqscl1mAtWdTUnsNqurNNaoTrK+W eec4uw4vzOM1VxZo
rGpa1cdOcyT+Uz5F0vISp7Pr7+I8XXNl5rzOvZMVkdJcuYcQk6ku+dkVeG2e rrnSz8mlaC3NUT2k
9SbEeHb9XZzHa24dKt0Q29Zc3sdBcT2gOXorzl+okX5W0tecXBEHcqC5F+Vu oNx71rtRTsZWe0b1
cNBeDjT3hoNv4DtAcwtyGS74KtDcCqZSZwHNgdlAc2A20ByYDTR3xDOO1gNh f4jPvnTc+RyxH3JU
fHZ/Bvl4zZn6+Ehz3DjXOLJffVNz7nIWrbJ5uuZsnUBzxzqD5kzRVW1kG8pt 3BtOvxzVb2bnfdoN
5FKH7t2t6k11OiJtz+8+oJ0kblVmXTpfUF17rqwYW99Ft3VSdnhQ24W4o3In h5KLKEjmM7wtNl9m
mDrUG1GYNX/xfiqkE4hCcpIsLj01YwqSyMKWuErFQ3OlTlx7ihPkj5JNGzVu 0A72d5+dl9ghU2bY
5I7tNeKk0LLPzK1AXAylmLiHqEUn0/5NzY3tDbdJc2ZnHu44lE3tjoh758he Fmdjt7wgs3TrumoV
toYJmluKTmtVhAPIkizvWaKPbZpLT7f6FNvGFFnw9tI4U7c+c9qJOsO6rNBc KfpaKekA8kpQjo7s
Dbd5bA10nDkcHlvDQTP9xXJud46tKmxdVmiuFP1dH/XvG6iMDiRrfXxvOG2G ykDjdrDTx1mE0XBo
DFNVYue+1R7lOgLm960usymIK2j5piSGZ8LKy5gTHkp1INMdznYLzfWA5o4G musBzR0NNAdmA82B
2UBzYDbQ3DD6uao/sffgAbB8YPGJY96QdjfQ3DC86cQ+ze1sb+5kZvelkQ6a +2bRt6W/seY22Yfm
vln0f/91z+PtI/v6l/pkHscvqeURllMI2To7IjU9rvxwIxbS8WhnvO6f5+IX 2c27Y7Mit6YnuBHf
4IL7p2sunZ6U85xq9tOlbq1PS6fCidV/7Xq2fPLUpbWRBfE7g/IMRdEbhx1z PsxOxUNz5OqRytd4
OpsatU6hVOLznDVb6ER+5VgpHMVPzmAQHRlLse/AnHM5UPHP1ly83Gw5kWrO rzpzk/msjer1a+tP
rM54zSWL4WhEc/F6P18ycmHHIm8sHxRjKzTXKfryJfxN9SJoNUnYOcZG5Qc3 3Bl7pNL1NZd3nPFI
OFDAtB+m0GKj4p+tudYwmPZzyzmivP1HxtZcQN1BuqM5F7/rltu6kud4wJxy OVDxz9Zc677V9nN2
jdiamp0ZfbCeYONCn1nbrLcYTgx31ZkQS2O9H7MrmXPDxmF/+aC5Xe9X/MM1 B9qMiGgj0BxoAs0d
W/Szy3kHoLlji352OR8KNAdmA82B2UBzEv+o050bOBin4w+vjerjif1hXANo TvIVzfF40r1moLnP
g4LmtpmB5j4P6qx5CDHH0J1DSLarc3MGepbALgbgJeXRe9xdmadrLptL7c2V urlJu/AjS2qm05aU
zlTLv07mM1wdaO5FPL1tz1Ejg2zvvuZIZ9JOmdr+ufFxB6C5Fywnytehyp0j GtBcY0e3OrFPyqZx
ytT2D819I6hT+jlKmjD9CDXXG1vZngpTNv1Dc98I6tzrObMWbPB6jsp5HtKc 6ueiS7OP9ri7Mk/X
XHgb+v4wd6r6p3S7Or+2Lrlv1UI9eo+7K/N4zV2COyjlOKC5KwDNnQ4096OB 5sBsoDkwG2gOzAaa
e1N3whFPxtYTFBwHu4Hm3oxrDrr7FGiO6vP/VXMSqTky5yG/XUBzpnuTX5bv 8vg6tVDmDV4fZ1fY
vXi85sqbl6i+E6nq6z2lJI6pf4RLvD08XXNqll32cyP/3jnPrq3b8XTN6X6O RvVWVrehn9vO4zWX
Xc+N9XFQ3A6gOfL3rfp6rvHv7Iq6J9Dcm9Z9q+7f5H3rmvnsCrsX0FwDDJ1f AZpLiJ4Pg0OA5jIG
NwEHm4HmwGygOTAbaA7M5uGaSyewuPGTh8eStVxstsQbjrYN+nMsZlp2GOwA zb34UHMDyXgs9YDm
mmtZ9kihHxq3Mm12+XDNpQ14ec3tObk7NGjuKC9ac2rvN3FE/9TaG05mIpl/ zRL/5f/wDnhq87nk
XTlsD0Qb5enT1hkpQSUuayZ3cqDin605tSGN2OihKsT8JKRDMg3Vb/4cax82 k9vVhActZfnDD1NC
Spy9bJaVhJnL/ORIxUNzgR56O9KkeyaJD5GfMsMUSCc27zL08rvTpgSUOFNf 0+ADE9DcSNFfH7zu
SWPf10r6V92fX7KRbguxt6vdt84bFnn7O+BJZ9qNzp/sl2d/a+xwH2nO7B1k yxJWyUDFQ3PvRiRa
P7LByZxfGRhbU8PU10borBdC3y5nzozD7DTG1l1e1jWb5b/usou5U8FOPkum 9SfuGKbAPkeWApn0
83eOc+isVgn1S41+bqMXpblg4Kp3Z35gW40EY6sYd0lkZGtYj40DO+BpS838 jeOsA81C0qUWZl0F
4b51g5cLlvwRQHNgNtAcmA00B2YDzYHZQHNgNtBcwuit/2A67px0z3Kp89P4 o4k0GM5OfFpebueA
5hJmac61P2/Kt4tPjEJzH3mB5nYYheY+8vJeP2ffKUNkZhCI5Il3yjJ3YdLV v/03Js2qtXJev901
XrknHUd+w48o6BqaX1NXY+qZUZmi1K5OzDTF4zXXn4skakx12nScmVQHA5Pt SVA/r9uYWM2D1qsD
4wL1zNgi+dS+7vR07OM1R3m7mXon2/R5+xgj1LFlJUAt/9s8kLMWZWSXzN+t eM1Rlprb0UBz+lc3
WDL3wi5Sex906bqaa7/dVafSo2nQ85h5+PpZk5GzZkRjC6THT/JOXfZgJPV1 IgdXaC4XCOv0+nyc
rqe5/tga97PUiW+8Q42HSW2m07mm4TVjg+aocz3XE0hwVBxpmRzo55ga15N7 PKT9nDhHw2VPRZzW
iQiKoDlxPynGCDdi+Hs3CtOx/GfX3b1/skOeFly0cs87dtGqDzMgi7VxYuBT 8ajwx+9bs9RBndSg
oDn+2AzYCjQHZgPNgdk8XXNgPtAcmA00B2YDzUnMM1/wFaA5CTQ3A2hOAs3N 4PGaG9j9DRzL0zXX
moGE6L4DNPfCTWATQXPfApp70dr9DRwMNPdCLbshjK1fBZpLF4ehn/sST9dc Z/c3yO4LPF5zYDrQ
HJgNNAdmA82B2UBzYDYX1Rz4yVxTc/+bwBQnwHNVzc3wcsGSPwJoDswGmgOz gebAbKA5MJvram5Z
1iFWd4QLPZj3rnTT70bHhP40foDm7JlR6ZS9wKC5uVxXc15NY5ob7vTWvcAI mpvLLTRXl7TJ7c1E
PygOyf++P9jtMbcWnaC5M7iD5sqn+feCs7N1Z3rmMOt6PcfQ3FwurLnaQckt Kb3mRPeVaC7IRtDc
adxCc0FHpfq5um/4Hs0RQ3NTuYPm0h5sSaSPQHNX58qaE3swf3Y9F2etz+cY mpvJHTRHYtS0N58k
Zem+604wvm8lqn9ciD+knsGlNfftop9dzocCzYHZQHNgNtAcmA00B2ZzUc2B n8w1NXf2nyaB73K2
wgLNnV0l4MucrTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAcHMGtvIN
zvt3ggEwit1IP0kSHoLkwB786wkB+C7ZS+TEK+OWrlC+L85swQ/hgg3Yt4f4 j/W9D0EqdwqAPl5z
8lIte4dS+nYcALrInky9h9WehebAQbhXxdXBkqA58A3sG+H2XM9Bd2AL9Zlw fN9KSmfJfSs0B44H
ggKzgebAbKA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcFC5/zf8t B19MPc0sZ2a48dOU
kn1qfXPLH1AOdl8OdnYJzX3q4CKa4x1n+iahuS8DzbmM52uuDLTL/hH/vnD9 rjc5UUfWjSdqztdm
AMWaz2GOvFPX8zoKsSVtaLYdU1IKdTI3xUF0wRFumzCRUOi3BkUyswu+Fcem CtJN087nQzZlHFKk
vZ6rWbm2OalITGvVIyyTU/STzWFPsDqvopDtEJltx9QrBfdDs9ElR9omSiZO /NJIfCNxjFZQ3gI+
n67R4GOsE7T9XP1dzLTCUfqgQKGB0EbcXKSj0JrLNZzFpINoNgI18m/Mm4WQ 5q3lDqrG5KRWHOMV
lCrItVCYl8KgWjjNrb0ei++R5vyQN6o5nWM9JDKK8yzSq1DlL5ccdNOYZBB5 zDa0WgVxEvbenIkB
zbEdXGtZXRPULY2oGcdwBWUtbfIZzenRcdOzj6ifK62daUnkyX/fWv2c95n8 WvqeiRKzvZjiUoz0
CK0kHNXHZs2ZahWa29DzpC3RqyBu1IY2mKbxTdsi0pz5N9JaryPcrtJWq/mL wDCaWk89FbiY7O9w
UoP5iU4S2mIi9+tbhVs58zhGKyiIIzXYarNA3anm7DNhOZCJmzYi06O37hHl SVYflNgglUz3bdl9
K7lRpn3fKkshiysbk109iPvWOK+7b+2ZCJTD8lZJftF3knktunoYryBSRtN8 rlNictEMau5Apnrc
2o3fgkBzn9ualO8coLnDCnWS5s7pq2aX8tvO7lWDa9BHRL3LRvdNcAAAAAC4 LocP45yZ5Tz1jLjA
D4cHj+WnoTnwOdDc47ELzOyT72xhmT6h18yJx+4iZbU9ur7NrwsDP4FogZla tZlN2emJumjqzZxz
KTP38ZQe+DFkM9Dx/DA1kpH6Oj7F7N2n+cGPYFBznbVZYkJ/RHNj69uguR/K mObSvsouNhju5zru
0c/9YKJGj6/OmtdzFGQcGls5To1+7gfjJKLXUJmDRNl9q8pYMolea82b37dW aUfLuCC7n81A+x4k
ASgJDA9l0Bw4jrFHsNAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABO Q+6BH5y1fzmtTvnE
1LE0knKD0TApd86P2DdHoxrqBbbL22F/H7KpunsVdzCce3OR9DQ3Uq7NeQ9M ultzGzJ+6C1t/a16
2FTd0Fwj32dJobl24rmao2CLBzb7Opj3ntTEZQc6Xn8KtqarZszf9YuPai3c ga66NPbLn/+T20JA
5Qi9hqllUZcvdvsCnST4ussbSwNiG4Rk/4Ng+79qUvniMEYVVVyiss1C5w2v m0THtasLtxWp/4/3
L1En5btJyZ1Qpp0jaY0ip3F4kY88R1I8kzp9L2u4SV9efZu9GWtVnGx8RHVM ziRHP6VN3EySyGBv
52i3FUk051sgTNw+krUHNayZZDp57NHn0F7JFC9J7TUXlq2nuXFvw5qjrJzO l8/YiCqt3175d6hu
WHN665ztmote+xm8i1R/mLfgUc2derTvzdNb4w2pwL7kdFhzH3iTqdV7axPN ue3/mprb9HracBfA
sGF2qG2L5rifuHkk7AOoY82kDpO6gJPf/w0qUMFt7Of2evPWmv2cr4OW5lox DjZs2DDf11y6I/Cg
5rhZF9wvYRwK526Cdu0p1FXIRs3t9WY7plRzHNRBc/NSTpKE7UvkbEeVLn81 NomO6y0Mi2NkL8nV
60vV+8t9s69p1phEN63fPd29b412oFM3tdK5vQszOUKvsX02UanUUZId962R NyEpc99oI7J14F8s
G0XdjMolESeMCV/+mRzr9JQi3JAz6+n8NoLmzgCau6q1n8uzNQcAAACAAVh+ 7Bu/2VgxphsHNgeY
nwdXhLtH9zdfTxgf2O9lSl1/T4yQ+Sh9zX1sG5oDEv0MvLkSzU8D5JMHtIyt xgqp4zKhSpUv89q4
VK6/Di1fD5aU0s5GlDTL03qmsx7O3wczvdJaiRZO1b2ONCb32CUO0rucyWRl J0CTQ5eOsrlyHvBc
StmIl0nZAimq+4l0Q43WIHdENbezQt2EwpyMrhEg6XC2ay4vZZg0FptOCs01 WQeHVHN+wVxn0Zsb
MqsVolwwdhSs0bUD7C6VG1mHVjpLtc6BbOBJchP2vkVlD8LXpO+hKNQBJQ1H Kq+yQtY6JTnj3qbX
EVOWcfk+1M+RCzWtqbQXRj/XRFwObR9b5ZVOM286tiY5va+Plso1x9bh6zlK Ag1+I6C5FmLRlKq0
YLWXHnVG7lutFaJsKFXDdXT32ApQ9Tnb1qHl68GCUqrIXbxikXjQZ4JjuXn1 3jz8Z3LzRrt5+M/k
5o128/ABAAAAAAAAAAAAwD34fzxOoLcOmm7oAAAAAElFTkSuQmCC
------=_NextPart_000_0055_01C5C531.4A8BEA40--
Attached files
------=_NextPart_000_0055_01C5C531.4A8BEA40
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0056_01C5C531.4A8BEA40"
------=_NextPart_001_0056_01C5C531.4A8BEA40
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Ignacio:
Probado lo que me has indicado y funciona, pero solo me pinta una linea. =
Quisiera que pintara todas las que cumplen la condicion dada. =BFDeberia =
ser asi?
Paco V
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:[email=433bae42@ozsrvnegro.ozlan.local...]433bae42@ozsrvnegro.ozlan.local...[/email]
Pues... porque no me tienes delante, porque estoy mas rojo que un =
tomate!!!
No hab=EDa buscado en la ayuda...
Me hab=EDa limitado a mirar los eventos del Browse en el inspector de =
objetos, mea culpa, Sorry.!!!
Gracias,
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje news:433b9d9f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,=20
Es que =E9l pregunto por la l=EDnea espec=EDficamente:
>marcado, esa >>>
<<< me aparezca en color rojo. =BFEs posible? =BF Por donde=20
Para pintar una celda en concreto. En la documentaci=F3n podr=E1s =
ver lo siguiente:
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:433b9871$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>=20
> Ignacio,
>=20
> Esto "pinta" TODA la l=EDnea (Row), todo el registro!!!
> Pero... =BFcomo coloreamos una celda en concreto????
> OnDawCell ???? no est=E1 implementada, creo.
>=20
>=20
>=20
> Un Saludo,
> Xevi.
>=20
>=20
> "Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 =
en el mensaje=20
> news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>>
>> Paco,
>>
>> Es muy sencillo, tan s=F3lo tienes que capturar el evento =
OnDraRow() del=20
>> Browse.
>>
>> Algo as=ED:
>>
>> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>>
>> if ::oDbf:LoQueSea > nMiNumero
>> oSender:nClrPane :=3D clRed
>> else
>> oSender:nClrPane :=3D clWindow
>> endif
>>
>> RETURN Nil
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el mensaje =
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un =
valor=20
>>> marcado, esa fila me aparezca en color rojo. =BFEs posible? =BF =
Por donde=20
>>> puedo enredar o existe alg=FAn ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>>=20
>=20
>=20
>
------=_NextPart_001_0056_01C5C531.4A8BEA40
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Ignacio:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Probado lo que me has indicado y =
funciona, pero=20
solo me pinta una linea. Quisiera que pintara todas las que cumplen la =
condicion=20
dada. =BFDeberia ser asi?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Paco V</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:433bae42@ozsrvnegro.ozlan.local">news:433bae42@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Pues... porque no me tienes delante, =
porque estoy=20
mas rojo que un tomate!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No hab=EDa buscado en la =
ayuda...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me hab=EDa limitado a mirar los =
eventos del Browse=20
en el inspector de objetos, mea culpa, Sorry.!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
=
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>> =
escribi=F3=20
en el mensaje <A=20
=
href=3D"news:433b9d9f$1@ozsrvnegro.ozlan.local">news:433b9d9f$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV>Xevi, </DIV>
<DIV>Â</DIV>
<DIV>Es que =E9l pregunto por la l=EDnea espec=EDficamente:</DIV>
<DIV>Â</DIV>
<DIV>>marcado, esa >>></DIV>
<DIV align=3Dleft><STRONG></STRONG>Â</DIV>
<DIV><<< me aparezca en color rojo. =BFEs posible? =BF Por =
donde </DIV>
<DIV>Â</DIV>
<DIV>Para pintar una celda en concreto. En la documentaci=F3n =
podr=E1s ver lo=20
siguiente:</DIV>
<DIV>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:005001c5c520$85db8a30$[email=f656fed5@mcs]f656fed5@mcs[/email]"=20
align=3Dbaseline border=3D0><BR></DIV>
<DIV>Â</DIV>
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:433b9871$1@ozsrvnegro.ozlan.local">news:433b9871$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>>=20
<BR>> Ignacio,<BR>> <BR>> Esto "pinta" TODA la l=EDnea =
(Row), todo el=20
registro!!!<BR>> Pero... =BFcomo coloreamos una celda en=20
concreto????<BR>> OnDawCell ???? no est=E1 implementada, =
creo.<BR>>=20
<BR>> <BR>> <BR>> Un Saludo,<BR>> Xevi.<BR>> <BR>> =
<BR>> "Ignacio Ortiz de Z=FA=F1iga" <<A=20
=
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>> =
escribi=F3=20
en el mensaje <BR>> <A=20
=
href=3D"news:433b9524@ozsrvnegro.ozlan.local">news:433b9524@ozsrvnegro.oz=
lan.local</A>...<BR>>><BR>>>=20
Paco,<BR>>><BR>>> Es muy sencillo, tan s=F3lo tienes que =
capturar=20
el evento OnDraRow() del <BR>>> =
Browse.<BR>>><BR>>> Algo=20
as=ED:<BR>>><BR>>> METHOD BrwDrawRow( oSender, nRowPos ) =
CLASS=20
TForm1<BR>>><BR>>>ÂÂ if ::oDbf:LoQueSea >=20
nMiNumero<BR> >>ÂÂÂÂ& ;nbsp; oSender:nClrPane =
:=3D=20
clRed<BR>>>ÂÂ =
else<BR> >>ÂÂÂÂ& ;nbsp;=20
oSender:nClrPane :=3D clWindow<BR>>>ÂÂ=20
endif<BR>>><BR>>> RETURN Nil<BR>>><BR>>> =
"Paco V."=20
<<A=20
=
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <BR>>> <A=20
=
href=3D"news:433ae026$1@ozsrvnegro.ozlan.local">news:433ae026$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...<BR>>>>=20
Quisiera hacer lo siguiente:<BR>>>><BR>>>> En un=20
dBFBrowse, hacer que si un campo de un registro supera un valor=20
<BR>>>> marcado, esa fila me aparezca en color rojo. =BFEs =
posible? =BF=20
Por donde <BR>>>> puedo enredar o existe alg=FAn=20
ejemplo?<BR>>>><BR>>>>=20
Gracias<BR>>>><BR>>>> Paco=20
V<BR>>>><BR>>><BR>>> <BR>>> <BR>> =
<BR>>=20
<BR>> </BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_0056_01C5C531.4A8BEA40--
------=_NextPart_000_0055_01C5C531.4A8BEA40
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <005001c5c520$85db8a30$[email=f656fed5@mcs]f656fed5@mcs[/email]>
iVBORw0KGgoAAAANSUhEUgAAAnMAAAIbCAMAAAC3yegLAAAAB3RJTUUH1Qkd BzQ6WS32zwAAAAlw
SFlzAAAOwwAADsMBx2+oZAAAAARnQU1BAACxjwv8YQUAAAAYUExURf///wAA AOzp2KyomcDAwAAA
ZszMzGZmZuf+ZQEAACJOSURBVHja7Z2NgpyqsoWr7slO3v+Nb9KtUL+Ato06 ru+c7O5RqCpgDagw
SL8AmAudHQB4HNAcmA00B2YDzYHZQHNgNtAcmA00B74FGcrx139Zon8eM99K O2xkr4NfW6MdNb0c
PqQAD4T+U4xrbqS624kPaLJONJt/RQZNQ3Mf8U3NdVJ/3mS9cDb+igxnheY+ gv57Dam///6Pfv+2
mnshqrZ8HWnFkqbdW+yn2O2qerPo2rFDcx9B//3+B73+O645We2iM1CfKl/N FpkILP6SSlntcZjT
HHHpnPESCXv/aezc8g828B5b//Z24dj6oqM5OQLJdgs6CD1apZpb0uikPifr wDhLZ7IUXYqv47FH
kYNt0H9//vz5Jzj6+/ln89gq9PGrdgW2q6i5A4FmmjNJfU7lwGou7gil0Eop tsUeRA628XdspaWv
+8uA5lxPolXQazeXJ9Kc+ghyurhM19fUnPM5ErsLxwUAhvl3Pbfcs/7+M3I9 F49eG9otacC4PeM0
v7If8sEv6Bp/bdOcNwPN7ePVz9HSzW3q53S1rwOsGmi1q3rgGppjKbN+7KLY 0NxH/NXcnz+/X73c
n6F+rn5TjXM3zVkJQXPz2NzP6a9tzQUDmc/7ieaC+9bAVhyuGlbHY4/Ngw3Q 0sENX8/pr1JHv5Yj
v7xAdEMedD0XBJZqLrFTDg/E7h1Dc/t493Mr+8dWeQ1u7mnVKXG8fuR3sz3N iUcpQTrVrUV2TP52
7DUDNPcR7fnWF0P3EEG7/QoSB3nTo/4j+FHlDbWUnDc6H449CANso72W6cWY 5qK+yLT4r1wA+zQX
OTDp4vM244bYozDAIXQ1F52zh8TzCPmztfs+tkdz1kGqOVcUjpw2Y/elhuaO BeuEwWygOTAbaA7M
BpoDs4HmwGygOTAbaA7MBpoDsyEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAA4FYsu5DP8TU/7/ZsvNUEZ8l42Myc6r8MM6viBM1tN7DZETS3FWju U0fQ3FZYfPJrqH19
4fq9Drx/v3FJqU8wqSNvA8TVZJzZ2dDnFzNL3pZHFb6KICgMF52EPk2saT6X wdeVCigvgHT2DlYV
/qdJcr2eq3W6lFkKpNQam6YQ1amPcJDcZ05tuDi441GFLyOICsNNn1HknXxh gMGRRnFlicO4fxD1
Fy+s/q4syJ33SWPL1LexyWN4yrk0X0OfqSCo7SI8F5zoRJnm/SkYzb3vYYc0 J253y8AV9wS55nQO
4S6KQ/7GBx5rNh2BdFnNtnx6zcX5bIbAvTmSFLepuWmPFabh+zmKKsAfZWeH tdXBfk7Hkab2o4z1
mA1ecSwtn+EBCvNlAXIQYLM77NXYT4LVt7i4onJ7FVy6gL7mWjZCV02PtWex Edju2WexPp33QKvJ
eU4DbJ3vaO7H9XPlmfA6+Jj2C+/F3AmR+V2l1qTIxVEOlywYXloeV1+1ie0d oTbb9ikLWj3H3tla
IIpC9ucjE15zNubnMVj082vo0wjOLwFYgObAbKA5AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAACu
z/+BH87ZCoPmHsf/zlZYpLn/TWCKE+D5W/FnKyzU3AwvFyz5I4DmwGygOTAb aA7MBpoDs7mw5r69
d3qsuZbTn7YV0UlcWnO0tZk3JQ4113QKzR3Cj9LcNk1UzfGgCXcSGtzDLTSn dokTu6qx2MV7PWMS
lQ2/o6K/P+1OdLQern5IfIlMQ3tbuIPmyqfYcG8RXN1FXv5bv4iPsOhEVTWs 9S3sCTvWD2G83cGl
NVcu53WnwpHOYs21BPF2svxQ7df+rftvyXp2dd2NS2tu/Vl0Z+oH0RdxpLn2 7t5xP0dEHNmMfBGh
n9vBHTSXyCke51QianV16npOdV2RzXhMheJ28GM0t/d67uVgzIe/noPi9nAH zZEazoIxT174B/uh
dzVHyoTbt7zubq53IxeZz66xW3FhzX2/6GeX86FAc2A20ByYDTQHZgPNgdlA c2A20Fx5NvI+uv2x
x3iOXbbNgr7tC7wux+M1V/Tm2nG0YQ/UXLBWyi5cYbr9CwWfrrnau0Fzs4Dm XryaUb61tLzE1L4o
VqVZ85Y3npaZCpdXdqXqFesiZ/h2VbI21BvR7wg092KdSCMhq6IumyR817N+ 3bTPa95mzuq/wrl7
V3lZz0UmvtsCzb3goE1z3bBXhjkoeyqKNUfszUWaI7GeAJr7XlAna869EZzI qaPeTYrFBGvqRXg1
CcsBsfzkfCWaM1FBc98I6vx+jgb6OQrymr7OdYXqgxPjNgITFTT3jaDOelby wfUcR5pjLyntrT+2
Ks2hn/teUKc8E2Z930rxfWvwB2LlnBl3lwxULaqf5C2CuJUwltWCPkq62nsB zRmaLTm7mXnziTsA
zRmgua8DzSk6M5nTm5o3Hb4J0ByYDTQHZgPNgdlAcwW78xzzt3fAeyjQ3EK4 w1IiOMjwI6A50g9Y
lZ5izd19LdHZQHNl1QaLyQSxIRiJqQciscPd+9TZdXVDHq+5Mg1VVFXEVU6y /0fdZ3kg4+mak2s8
SM7Xv39UmnNblUB0u3i65ko/J9eXOM3psRb93Gc8XnPrgGqH2HJK/SgXnJxd S7cFmqO34sTl3Mj1
HBS3H2juxXrbqm9U4/tW1cdBe9uB5t5ARfOA5hbK38ecXfifDzS3gsnVWUBz YDbQHJgNNAdm83DN
zV8ix/1zPslwmNwwMu6Ss2R7D2oerjkKK2mHBoez7NPc9ki2aa53EJo7yAs0 B83VoOZrTv45fbJ7
HC0nxdR/+VCb3lBdp6I3plvdedNyDwGbhGRD2lC8BbuPXuhHvD3K7l5A7PPK I+KVQ5ELaK5d9NeH
XFBCLL4F24bI6dZgpxG5fYTKKjdlikzXD1ZmVsr1nA0lssDCVuJHJLOpOcrL DUeBi27FQ3PU0RyR
rVi/a4hMzupr0PrhBycp1VdzLApjwBYPZU9/L/KCQXPdor8+1gFD7ltDRkRs +i3VcKySq53mKOie
nD2VjF0Skax4o0YYsiOyfsw+ebabTvedktbMpj7JHnvtiofmSLRJb2ylpFXY n6TMQqvX88aJTEO2
ehrXzzXzRL3iSAfGyUEXalbx0Bx1xtbl2kWnS9pIXOcQNYSRjVvskhCJhpSG EqmkYyur6KJ87X6u
VWydrFvx0Nzrv41t4MRGckqR6lZwrW5mVfNm5F1zysHOJJN716kh2m1Ol9y3 2n30tB/3C2LumOO8
rrx+Gz7ct454uWDJNzDQuBcFmrsr0NyxQUFzfaC5Y4OC5n4y0ByYDTQHZgPN 3QNz9Ta45M89L7vE
RSA0l3FS8/DI4dHY+HMTXwCay4DmvsXjNTf+LlWzAi2YqWg9/9d21OxEayGe sE5yOl0GEizqMzEJ
y0nxZvJ0zclJVj1faues9Gymn0QdmKssdhqz6nIiLbRO5ALxQUclaRZvJtDc +svfmLUnilqcKJGW
yRXbCf3p8w3hhlFyElMapEg9k8drbsu7VOscvJzmJtecYvFbGcMaK1OihWlB Fn0k0VwcEwdedQlm
8njNvb8Pv0t19KRAH+FW8njMa6Xj0KTP1evGZwLNZe2WXs/Ff/YwfD2XOWoP loNjq45JjK3pBzS3
BDX7vrUONaRbI7pvFSNTvSpK3u0a3be6gTBbiCeNsDfCVp5sY6p7OArLunhB vzyh4h+uuVG6DXNC
h3FToLlBoLnDgOYGgeYOA5oDs4HmwGygOTAbaK4QbfG2Tk2w+BG7Dn8INLcQ vqewPMRim84CGY4D
zZGeWJLiMe9gsl9NSshuEGiurGWr729dezalOf1SQ7zSdT+P11yZ+pLTQyyX QRLJH/JXgFE68ALF
0zUn15WQmsUf0pzp/dDJjfB0zZV+rsz0D2oOr3TdzeM1tw6obojt9nPLj7Wf g+LGgOborTi5jkiM
nFTuKLrXc1DcINDci3LjoK/W5DNhPXzila77gebeQDLzgOYWxBJ08F2guRXM pM4CmgOzgebAbKA5
MBtoLnub2xa25Dp9Cd7OR4n9kDnKFOzg/3jNmRr5SHOcnWgd2q++qTl3OYsX 2jxdc7ZWoLkjnUFz
ruiqPuzrY+pSk/bGc7Wj9FvdRLu8GY/D+9y5XeaSrercvgFsjrJ1krhVmc2W dyomX3eurBhb16KT
qRW/uQJFWy6I4bjmEj9RbTb5b3Vk3sVqkqTuko3r0ni0PZ0t2K2uVXZqxhQk kYUtcYmKh+Ze+KrV
J8gfJZt2THMUmrA/Ones3TFFDkIjPspAmtQqOyduffF1WV8/4h5CFp2MApqa izeeUy8t5XpkTUmq
ZUl91S+W44472dTuSI023O/ORqnt6OK7std3y6pddzjUXHRLztBcLTqtlREO IUuyvG8JP8QFElFb
c9piz13YYSUOvD0dJWfJRvr4uHdMCwPNqaKv1ZIOIa8E5Wi88dxHY2ug4szd 8NgaDprpr5Vzu3Ns
VWHrskJzoujvGqkr4qiMD6Q6rGWEK5XH9v2rouHSTexEDr2ZK4sgGu6Uwlpb 1ZGxZ49yHQHz+1aX
2RTEbURbvimJ4Zmw8TLmhIdSHcZkd2e4heZ6QHNHA831gOaOBpoDs4HmwGyg OTAbaG4Y/WTVn9h7
8ABYPrL4xDFvSLsbaG4Y3nRin+Z2tjd3MrP70kgHzX2z6NvS31hzm+xDc98s +r//uify9qF9/VN9
Mg/kl9TyCMtJhGydHZGaIFd+uBEL6Xi0M173z3Pxi+x6hV9a5NYEBTfiG1xy /3TNpROUcqZTzX+6
1K0VaulkOI29NNZH59LayIL4nUF5hqLojcOOOR9mp+KhOXL1SOVrPKFNjVqn UCrxec6aLXQiv3Ks
FI7iJ2cwiI6Mpdh3YM65HKj4Z2suXnC2nEg1l75b1UzwZ+vsRl8amyyHoxHN xev9fMnIhR2LvLF8
UIyt0Fyn6MuX8DfVi6DVJGHnGBuVH9xwZ+yRStfXXN5xxiPhQAHTfphCi42K f7bmWsNg2s8t54jy
9h8ZW3MBdQfpjuZc/K5bbutKnuMBc8rlQMU/W3Ot+1bbz9lVYmtqdmbcC1ej +9Y6UpFuzN5yODHc
VWdCLI31fsyuZM4NG4f95YPmdr1f8Q/XHGgzIqKNQHOgCTR3bNHPLucdgOaO LfrZ5Xwo0ByYDTQH
ZgPNSfyjTndu4GCcjj+8NvrChdVJQHOSr2iOx5PuMnM7MUJzEmhuBo/XXPAI nsLJgM4ze/GoX88Z
6FkCuxiAl5TH7nF3bZ6uuWwutTdX6uYm7cKPLKmZTltSOlODc7V25vYWQHMv 4ulte44aGWSL9zVH
OpN2ytTxD819Iaj5mpMT5euI6c4RDWiusadbndgnZdM4Zer47+5xd22guRe6 k0m7O+prrje2sj0V
pmz7F2s+CJo7KKhzr+fMWrDB6zkq53lIc6qfi64lP9jj7to8XXPhbai4fdXn sgzitF9bl9y3aqEe
u8fdtXm85i7BPbRyFNDcFYDmTgea+9FAc2A20ByYDTQHZgPNFcRfy9tjLJ9+ 3Gg2/ZpAcwvRy9Dq
n4OyOQA+AJojM10qUmiplS8tzUGOfaC5sqscl1mAtWdTUnsNqurNNaoTrK+W eec4uw4vzOM1VxZo
rGpa1cdOcyT+Uz5F0vISp7Pr7+I8XXNl5rzOvZMVkdJcuYcQk6ku+dkVeG2e rrnSz8mlaC3NUT2k
9SbEeHb9XZzHa24dKt0Q29Zc3sdBcT2gOXorzl+okX5W0tecXBEHcqC5F+Vu oNx71rtRTsZWe0b1
cNBeDjT3hoNv4DtAcwtyGS74KtDcCqZSZwHNgdlAc2A20ByYDTR3xDOO1gNh f4jPvnTc+RyxH3JU
fHZ/Bvl4zZn6+Ehz3DjXOLJffVNz7nIWrbJ5uuZsnUBzxzqD5kzRVW1kG8pt 3BtOvxzVb2bnfdoN
5FKH7t2t6k11OiJtz+8+oJ0kblVmXTpfUF17rqwYW99Ft3VSdnhQ24W4o3In h5KLKEjmM7wtNl9m
mDrUG1GYNX/xfiqkE4hCcpIsLj01YwqSyMKWuErFQ3OlTlx7ihPkj5JNGzVu 0A72d5+dl9ghU2bY
5I7tNeKk0LLPzK1AXAylmLiHqEUn0/5NzY3tDbdJc2ZnHu44lE3tjoh758he Fmdjt7wgs3TrumoV
toYJmluKTmtVhAPIkizvWaKPbZpLT7f6FNvGFFnw9tI4U7c+c9qJOsO6rNBc KfpaKekA8kpQjo7s
Dbd5bA10nDkcHlvDQTP9xXJud46tKmxdVmiuFP1dH/XvG6iMDiRrfXxvOG2G ykDjdrDTx1mE0XBo
DFNVYue+1R7lOgLm960usymIK2j5piSGZ8LKy5gTHkp1INMdznYLzfWA5o4G musBzR0NNAdmA82B
2UBzYDbQ3DD6uao/sffgAbB8YPGJY96QdjfQ3DC86cQ+ze1sb+5kZvelkQ6a +2bRt6W/seY22Yfm
vln0f/91z+PtI/v6l/pkHscvqeURllMI2To7IjU9rvxwIxbS8WhnvO6f5+IX 2c27Y7Mit6YnuBHf
4IL7p2sunZ6U85xq9tOlbq1PS6fCidV/7Xq2fPLUpbWRBfE7g/IMRdEbhx1z PsxOxUNz5OqRytd4
OpsatU6hVOLznDVb6ER+5VgpHMVPzmAQHRlLse/AnHM5UPHP1ly83Gw5kWrO rzpzk/msjer1a+tP
rM54zSWL4WhEc/F6P18ycmHHIm8sHxRjKzTXKfryJfxN9SJoNUnYOcZG5Qc3 3Bl7pNL1NZd3nPFI
OFDAtB+m0GKj4p+tudYwmPZzyzmivP1HxtZcQN1BuqM5F7/rltu6kud4wJxy OVDxz9Zc677V9nN2
jdiamp0ZfbCeYONCn1nbrLcYTgx31ZkQS2O9H7MrmXPDxmF/+aC5Xe9X/MM1 B9qMiGgj0BxoAs0d
W/Szy3kHoLlji352OR8KNAdmA82B2UBzEv+o050bOBin4w+vjerjif1hXANo TvIVzfF40r1moLnP
g4LmtpmB5j4P6qx5CDHH0J1DSLarc3MGepbALgbgJeXRe9xdmadrLptL7c2V urlJu/AjS2qm05aU
zlTLv07mM1wdaO5FPL1tz1Ejg2zvvuZIZ9JOmdr+ufFxB6C5Fywnytehyp0j GtBcY0e3OrFPyqZx
ytT2D819I6hT+jlKmjD9CDXXG1vZngpTNv1Dc98I6tzrObMWbPB6jsp5HtKc 6ueiS7OP9ri7Mk/X
XHgb+v4wd6r6p3S7Or+2Lrlv1UI9eo+7K/N4zV2COyjlOKC5KwDNnQ4096OB 5sBsoDkwG2gOzAaa
e1N3whFPxtYTFBwHu4Hm3oxrDrr7FGiO6vP/VXMSqTky5yG/XUBzpnuTX5bv 8vg6tVDmDV4fZ1fY
vXi85sqbl6i+E6nq6z2lJI6pf4RLvD08XXNqll32cyP/3jnPrq3b8XTN6X6O RvVWVrehn9vO4zWX
Xc+N9XFQ3A6gOfL3rfp6rvHv7Iq6J9Dcm9Z9q+7f5H3rmvnsCrsX0FwDDJ1f AZpLiJ4Pg0OA5jIG
NwEHm4HmwGygOTAbaA7M5uGaSyewuPGTh8eStVxstsQbjrYN+nMsZlp2GOwA zb34UHMDyXgs9YDm
mmtZ9kihHxq3Mm12+XDNpQ14ec3tObk7NGjuKC9ac2rvN3FE/9TaG05mIpl/ zRL/5f/wDnhq87nk
XTlsD0Qb5enT1hkpQSUuayZ3cqDin605tSGN2OihKsT8JKRDMg3Vb/4cax82 k9vVhActZfnDD1NC
Spy9bJaVhJnL/ORIxUNzgR56O9KkeyaJD5GfMsMUSCc27zL08rvTpgSUOFNf 0+ADE9DcSNFfH7zu
SWPf10r6V92fX7KRbguxt6vdt84bFnn7O+BJZ9qNzp/sl2d/a+xwH2nO7B1k yxJWyUDFQ3PvRiRa
P7LByZxfGRhbU8PU10borBdC3y5nzozD7DTG1l1e1jWb5b/usou5U8FOPkum 9SfuGKbAPkeWApn0
83eOc+isVgn1S41+bqMXpblg4Kp3Z35gW40EY6sYd0lkZGtYj40DO+BpS838 jeOsA81C0qUWZl0F
4b51g5cLlvwRQHNgNtAcmA00B2YDzYHZQHNgNtBcwuit/2A67px0z3Kp89P4 o4k0GM5OfFpebueA
5hJmac61P2/Kt4tPjEJzH3mB5nYYheY+8vJeP2ffKUNkZhCI5Il3yjJ3YdLV v/03Js2qtXJev901
XrknHUd+w48o6BqaX1NXY+qZUZmi1K5OzDTF4zXXn4skakx12nScmVQHA5Pt SVA/r9uYWM2D1qsD
4wL1zNgi+dS+7vR07OM1R3m7mXon2/R5+xgj1LFlJUAt/9s8kLMWZWSXzN+t eM1Rlprb0UBz+lc3
WDL3wi5Sex906bqaa7/dVafSo2nQ85h5+PpZk5GzZkRjC6THT/JOXfZgJPV1 IgdXaC4XCOv0+nyc
rqe5/tga97PUiW+8Q42HSW2m07mm4TVjg+aocz3XE0hwVBxpmRzo55ga15N7 PKT9nDhHw2VPRZzW
iQiKoDlxPynGCDdi+Hs3CtOx/GfX3b1/skOeFly0cs87dtGqDzMgi7VxYuBT 8ajwx+9bs9RBndSg
oDn+2AzYCjQHZgPNgdk8XXNgPtAcmA00B2YDzUnMM1/wFaA5CTQ3A2hOAs3N 4PGaG9j9DRzL0zXX
moGE6L4DNPfCTWATQXPfApp70dr9DRwMNPdCLbshjK1fBZpLF4ehn/sST9dc Z/c3yO4LPF5zYDrQ
HJgNNAdmA82B2UBzYDYX1Rz4yVxTc/+bwBQnwHNVzc3wcsGSPwJoDswGmgOz gebAbKA5MJvram5Z
1iFWd4QLPZj3rnTT70bHhP40foDm7JlR6ZS9wKC5uVxXc15NY5ob7vTWvcAI mpvLLTRXl7TJ7c1E
PygOyf++P9jtMbcWnaC5M7iD5sqn+feCs7N1Z3rmMOt6PcfQ3FwurLnaQckt Kb3mRPeVaC7IRtDc
adxCc0FHpfq5um/4Hs0RQ3NTuYPm0h5sSaSPQHNX58qaE3swf3Y9F2etz+cY mpvJHTRHYtS0N58k
Zem+604wvm8lqn9ciD+knsGlNfftop9dzocCzYHZQHNgNtAcmA00B2ZzUc2B n8w1NXf2nyaB73K2
wgLNnV0l4MucrTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAcHMGtvIN
zvt3ggEwit1IP0kSHoLkwB786wkB+C7ZS+TEK+OWrlC+L85swQ/hgg3Yt4f4 j/W9D0EqdwqAPl5z
8lIte4dS+nYcALrInky9h9WehebAQbhXxdXBkqA58A3sG+H2XM9Bd2AL9Zlw fN9KSmfJfSs0B44H
ggKzgebAbKA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcFC5/zf8t B19MPc0sZ2a48dOU
kn1qfXPLH1AOdl8OdnYJzX3q4CKa4x1n+iahuS8DzbmM52uuDLTL/hH/vnD9 rjc5UUfWjSdqztdm
AMWaz2GOvFPX8zoKsSVtaLYdU1IKdTI3xUF0wRFumzCRUOi3BkUyswu+Fcem CtJN087nQzZlHFKk
vZ6rWbm2OalITGvVIyyTU/STzWFPsDqvopDtEJltx9QrBfdDs9ElR9omSiZO /NJIfCNxjFZQ3gI+
n67R4GOsE7T9XP1dzLTCUfqgQKGB0EbcXKSj0JrLNZzFpINoNgI18m/Mm4WQ 5q3lDqrG5KRWHOMV
lCrItVCYl8KgWjjNrb0ei++R5vyQN6o5nWM9JDKK8yzSq1DlL5ccdNOYZBB5 zDa0WgVxEvbenIkB
zbEdXGtZXRPULY2oGcdwBWUtbfIZzenRcdOzj6ifK62daUnkyX/fWv2c95n8 WvqeiRKzvZjiUoz0
CK0kHNXHZs2ZahWa29DzpC3RqyBu1IY2mKbxTdsi0pz5N9JaryPcrtJWq/mL wDCaWk89FbiY7O9w
UoP5iU4S2mIi9+tbhVs58zhGKyiIIzXYarNA3anm7DNhOZCJmzYi06O37hHl SVYflNgglUz3bdl9
K7lRpn3fKkshiysbk109iPvWOK+7b+2ZCJTD8lZJftF3knktunoYryBSRtN8 rlNictEMau5Apnrc
2o3fgkBzn9ualO8coLnDCnWS5s7pq2aX8tvO7lWDa9BHRL3LRvdNcAAAAAC4 LocP45yZ5Tz1jLjA
D4cHj+WnoTnwOdDc47ELzOyT72xhmT6h18yJx+4iZbU9ur7NrwsDP4FogZla tZlN2emJumjqzZxz
KTP38ZQe+DFkM9Dx/DA1kpH6Oj7F7N2n+cGPYFBznbVZYkJ/RHNj69uguR/K mObSvsouNhju5zru
0c/9YKJGj6/OmtdzFGQcGls5To1+7gfjJKLXUJmDRNl9q8pYMolea82b37dW aUfLuCC7n81A+x4k
ASgJDA9l0Bw4jrFHsNAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABO Q+6BH5y1fzmtTvnE
1LE0knKD0TApd86P2DdHoxrqBbbL22F/H7KpunsVdzCce3OR9DQ3Uq7NeQ9M ultzGzJ+6C1t/a16
2FTd0Fwj32dJobl24rmao2CLBzb7Opj3ntTEZQc6Xn8KtqarZszf9YuPai3c ga66NPbLn/+T20JA
5Qi9hqllUZcvdvsCnST4ussbSwNiG4Rk/4Ng+79qUvniMEYVVVyiss1C5w2v m0THtasLtxWp/4/3
L1En5btJyZ1Qpp0jaY0ip3F4kY88R1I8kzp9L2u4SV9efZu9GWtVnGx8RHVM ziRHP6VN3EySyGBv
52i3FUk051sgTNw+krUHNayZZDp57NHn0F7JFC9J7TUXlq2nuXFvw5qjrJzO l8/YiCqt3175d6hu
WHN665ztmote+xm8i1R/mLfgUc2derTvzdNb4w2pwL7kdFhzH3iTqdV7axPN ue3/mprb9HracBfA
sGF2qG2L5rifuHkk7AOoY82kDpO6gJPf/w0qUMFt7Of2evPWmv2cr4OW5lox DjZs2DDf11y6I/Cg
5rhZF9wvYRwK526Cdu0p1FXIRs3t9WY7plRzHNRBc/NSTpKE7UvkbEeVLn81 NomO6y0Mi2NkL8nV
60vV+8t9s69p1phEN63fPd29b412oFM3tdK5vQszOUKvsX02UanUUZId962R NyEpc99oI7J14F8s
G0XdjMolESeMCV/+mRzr9JQi3JAz6+n8NoLmzgCau6q1n8uzNQcAAACAAVh+ 7Bu/2VgxphsHNgeY
nwdXhLtH9zdfTxgf2O9lSl1/T4yQ+Sh9zX1sG5oDEv0MvLkSzU8D5JMHtIyt xgqp4zKhSpUv89q4
VK6/Di1fD5aU0s5GlDTL03qmsx7O3wczvdJaiRZO1b2ONCb32CUO0rucyWRl J0CTQ5eOsrlyHvBc
StmIl0nZAimq+4l0Q43WIHdENbezQt2EwpyMrhEg6XC2ay4vZZg0FptOCs01 WQeHVHN+wVxn0Zsb
MqsVolwwdhSs0bUD7C6VG1mHVjpLtc6BbOBJchP2vkVlD8LXpO+hKNQBJQ1H Kq+yQtY6JTnj3qbX
EVOWcfk+1M+RCzWtqbQXRj/XRFwObR9b5ZVOM286tiY5va+Plso1x9bh6zlK Ag1+I6C5FmLRlKq0
YLWXHnVG7lutFaJsKFXDdXT32ApQ9Tnb1qHl68GCUqrIXbxikXjQZ4JjuXn1 3jz8Z3LzRrt5+M/k
5o128/ABAAAAAAAAAAAAwD34fzxOoLcOmm7oAAAAAElFTkSuQmCC
------=_NextPart_000_0055_01C5C531.4A8BEA40--
Attached files
-
ignacio
- Site Admin
- Mensajes: 9474
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Color en Dbfbrowse
This is a multi-part message in MIME format.
------=_NextPart_000_000C_01C5C531.B4165900
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000D_01C5C531.B4165900"
------=_NextPart_001_000D_01C5C531.B4165900
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Paco,=20
Revisa la condici=F3n que has puesto. El evento se dispara en cada =
pintado de l=EDnea. Te aconsejo que pongas alg=FAn LogDebug() para =
tracear lo que esta pasando.=20
Un saludo,
"Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el mensaje =
news:[email=433c2d30@ozsrvnegro.ozlan.local...]433c2d30@ozsrvnegro.ozlan.local...[/email]
Ignacio:
Probado lo que me has indicado y funciona, pero solo me pinta una =
linea. Quisiera que pintara todas las que cumplen la condicion dada. =
=BFDeberia ser asi?
Paco V
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:[email=433bae42@ozsrvnegro.ozlan.local...]433bae42@ozsrvnegro.ozlan.local...[/email]
Pues... porque no me tienes delante, porque estoy mas rojo que un =
tomate!!!
No hab=EDa buscado en la ayuda...
Me hab=EDa limitado a mirar los eventos del Browse en el inspector =
de objetos, mea culpa, Sorry.!!!
Gracias,
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 =
en el mensaje news:433b9d9f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,=20
Es que =E9l pregunto por la l=EDnea espec=EDficamente:
>marcado, esa >>>
<<< me aparezca en color rojo. =BFEs posible? =BF Por donde=20
Para pintar una celda en concreto. En la documentaci=F3n podr=E1s =
ver lo siguiente:
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:433b9871$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>=20
> Ignacio,
>=20
> Esto "pinta" TODA la l=EDnea (Row), todo el registro!!!
> Pero... =BFcomo coloreamos una celda en concreto????
> OnDawCell ???? no est=E1 implementada, creo.
>=20
>=20
>=20
> Un Saludo,
> Xevi.
>=20
>=20
> "Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> =
escribi=F3 en el mensaje=20
> news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>>
>> Paco,
>>
>> Es muy sencillo, tan s=F3lo tienes que capturar el evento =
OnDraRow() del=20
>> Browse.
>>
>> Algo as=ED:
>>
>> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>>
>> if ::oDbf:LoQueSea > nMiNumero
>> oSender:nClrPane :=3D clRed
>> else
>> oSender:nClrPane :=3D clWindow
>> endif
>>
>> RETURN Nil
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el =
mensaje=20
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera =
un valor=20
>>> marcado, esa fila me aparezca en color rojo. =BFEs posible? =
=BF Por donde=20
>>> puedo enredar o existe alg=FAn ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>>=20
>=20
>=20
>
------=_NextPart_001_000D_01C5C531.B4165900
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>Paco, </DIV>
<DIV>Â</DIV>
<DIV>Revisa la condici=F3n que has puesto. El evento se dispara en cada =
pintado de=20
l=EDnea. Te aconsejo que pongas alg=FAn LogDebug() para tracear lo que =
esta pasando.=20
</DIV>
<DIV>Â</DIV>
<DIV>Un saludo,</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Paco V." <<A=20
=
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:433c2d30@ozsrvnegro.ozlan.local">news:433c2d30@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Probado lo que me has indicado y =
funciona, pero=20
solo me pinta una linea. Quisiera que pintara todas las que cumplen la =
condicion dada. =BFDeberia ser asi?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Paco V</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:433bae42@ozsrvnegro.ozlan.local">news:433bae42@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Pues... porque no me tienes =
delante, porque=20
estoy mas rojo que un tomate!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No hab=EDa buscado en la =
ayuda...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me hab=EDa limitado a mirar los =
eventos del=20
Browse en el inspector de objetos, mea culpa, Sorry.!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
=
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:433b9d9f$1@ozsrvnegro.ozlan.local">news:433b9d9f$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV>Xevi, </DIV>
<DIV>Â</DIV>
<DIV>Es que =E9l pregunto por la l=EDnea espec=EDficamente:</DIV>
<DIV>Â</DIV>
<DIV>>marcado, esa >>></DIV>
<DIV align=3Dleft><STRONG></STRONG>Â</DIV>
<DIV><<< me aparezca en color rojo. =BFEs posible? =BF =
Por donde=20
</DIV>
<DIV>Â</DIV>
<DIV>Para pintar una celda en concreto. En la documentaci=F3n =
podr=E1s ver lo=20
siguiente:</DIV>
<DIV>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0=20
src=3D"cid:000701c5c520$f08b1800$0e00000a@ozlan.local" =
align=3Dbaseline=20
border=3D0><BR></DIV>
<DIV>Â</DIV>
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:433b9871$1@ozsrvnegro.ozlan.local">news:433b9871$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>>=20
<BR>> Ignacio,<BR>> <BR>> Esto "pinta" TODA la l=EDnea =
(Row), todo=20
el registro!!!<BR>> Pero... =BFcomo coloreamos una celda en=20
concreto????<BR>> OnDawCell ???? no est=E1 implementada, =
creo.<BR>>=20
<BR>> <BR>> <BR>> Un Saludo,<BR>> Xevi.<BR>> =
<BR>>=20
<BR>> "Ignacio Ortiz de Z=FA=F1iga" <<A=20
=
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>>=20
escribi=F3 en el mensaje <BR>> <A=20
=
href=3D"news:433b9524@ozsrvnegro.ozlan.local">news:433b9524@ozsrvnegro.oz=
lan.local</A>...<BR>>><BR>>>=20
Paco,<BR>>><BR>>> Es muy sencillo, tan s=F3lo tienes =
que=20
capturar el evento OnDraRow() del <BR>>>=20
Browse.<BR>>><BR>>> Algo =
as=ED:<BR>>><BR>>> METHOD=20
BrwDrawRow( oSender, nRowPos ) CLASS=20
TForm1<BR>>><BR>>>ÂÂ if ::oDbf:LoQueSea > =
nMiNumero<BR> >>ÂÂÂÂ& ;nbsp; =
oSender:nClrPane :=3D=20
clRed<BR>>>ÂÂ=20
else<BR> >>ÂÂÂÂ& ;nbsp; oSender:nClrPane =
:=3D=20
clWindow<BR>>>ÂÂ endif<BR>>><BR>>> =
RETURN=20
Nil<BR>>><BR>>> "Paco V." <<A=20
=
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <BR>>> <A=20
=
href=3D"news:433ae026$1@ozsrvnegro.ozlan.local">news:433ae026$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...<BR>>>>=20
Quisiera hacer lo siguiente:<BR>>>><BR>>>> En un =
dBFBrowse, hacer que si un campo de un registro supera un valor=20
<BR>>>> marcado, esa fila me aparezca en color rojo. =
=BFEs posible?=20
=BF Por donde <BR>>>> puedo enredar o existe alg=FAn=20
ejemplo?<BR>>>><BR>>>>=20
Gracias<BR>>>><BR>>>> Paco=20
V<BR>>>><BR>>><BR>>> <BR>>> <BR>> =
<BR>>=20
<BR>> </BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_000D_01C5C531.B4165900--
------=_NextPart_000_000C_01C5C531.B4165900
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <000701c5c520$f08b1800$0e00000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAnMAAAIbCAMAAAC3yegLAAAAB3RJTUUH1Qkd BzQ6WS32zwAAAAlw
SFlzAAAOwwAADsMBx2+oZAAAAARnQU1BAACxjwv8YQUAAAAYUExURf///wAA AOzp2KyomcDAwAAA
ZszMzGZmZuf+ZQEAACJOSURBVHja7Z2NgpyqsoWr7slO3v+Nb9KtUL+Ato06 ru+c7O5RqCpgDagw
SL8AmAudHQB4HNAcmA00B2YDzYHZQHNgNtAcmA00B74FGcrx139Zon8eM99K O2xkr4NfW6MdNb0c
PqQAD4T+U4xrbqS624kPaLJONJt/RQZNQ3Mf8U3NdVJ/3mS9cDb+igxnheY+ gv57Dam///6Pfv+2
mnshqrZ8HWnFkqbdW+yn2O2qerPo2rFDcx9B//3+B73+O645We2iM1CfKl/N FpkILP6SSlntcZjT
HHHpnPESCXv/aezc8g828B5b//Z24dj6oqM5OQLJdgs6CD1apZpb0uikPifr wDhLZ7IUXYqv47FH
kYNt0H9//vz5Jzj6+/ln89gq9PGrdgW2q6i5A4FmmjNJfU7lwGou7gil0Eop tsUeRA628XdspaWv
+8uA5lxPolXQazeXJ9Kc+ghyurhM19fUnPM5ErsLxwUAhvl3Pbfcs/7+M3I9 F49eG9otacC4PeM0
v7If8sEv6Bp/bdOcNwPN7ePVz9HSzW3q53S1rwOsGmi1q3rgGppjKbN+7KLY 0NxH/NXcnz+/X73c
n6F+rn5TjXM3zVkJQXPz2NzP6a9tzQUDmc/7ieaC+9bAVhyuGlbHY4/Ngw3Q 0sENX8/pr1JHv5Yj
v7xAdEMedD0XBJZqLrFTDg/E7h1Dc/t493Mr+8dWeQ1u7mnVKXG8fuR3sz3N iUcpQTrVrUV2TP52
7DUDNPcR7fnWF0P3EEG7/QoSB3nTo/4j+FHlDbWUnDc6H449CANso72W6cWY 5qK+yLT4r1wA+zQX
OTDp4vM244bYozDAIXQ1F52zh8TzCPmztfs+tkdz1kGqOVcUjpw2Y/elhuaO BeuEwWygOTAbaA7M
BpoDs4HmwGygOTAbaA7MBpoDsyEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAA4FYsu5DP8TU/7/ZsvNUEZ8l42Myc6r8MM6viBM1tN7DZETS3FWju U0fQ3FZYfPJrqH19
4fq9Drx/v3FJqU8wqSNvA8TVZJzZ2dDnFzNL3pZHFb6KICgMF52EPk2saT6X wdeVCigvgHT2DlYV
/qdJcr2eq3W6lFkKpNQam6YQ1amPcJDcZ05tuDi441GFLyOICsNNn1HknXxh gMGRRnFlicO4fxD1
Fy+s/q4syJ33SWPL1LexyWN4yrk0X0OfqSCo7SI8F5zoRJnm/SkYzb3vYYc0 J253y8AV9wS55nQO
4S6KQ/7GBx5rNh2BdFnNtnx6zcX5bIbAvTmSFLepuWmPFabh+zmKKsAfZWeH tdXBfk7Hkab2o4z1
mA1ecSwtn+EBCvNlAXIQYLM77NXYT4LVt7i4onJ7FVy6gL7mWjZCV02PtWex Edju2WexPp33QKvJ
eU4DbJ3vaO7H9XPlmfA6+Jj2C+/F3AmR+V2l1qTIxVEOlywYXloeV1+1ie0d oTbb9ikLWj3H3tla
IIpC9ucjE15zNubnMVj082vo0wjOLwFYgObAbKA5AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAACu
z/+BH87ZCoPmHsf/zlZYpLn/TWCKE+D5W/FnKyzU3AwvFyz5I4DmwGygOTAb aA7MBpoDs7mw5r69
d3qsuZbTn7YV0UlcWnO0tZk3JQ4113QKzR3Cj9LcNk1UzfGgCXcSGtzDLTSn dokTu6qx2MV7PWMS
lQ2/o6K/P+1OdLQern5IfIlMQ3tbuIPmyqfYcG8RXN1FXv5bv4iPsOhEVTWs 9S3sCTvWD2G83cGl
NVcu53WnwpHOYs21BPF2svxQ7df+rftvyXp2dd2NS2tu/Vl0Z+oH0RdxpLn2 7t5xP0dEHNmMfBGh
n9vBHTSXyCke51QianV16npOdV2RzXhMheJ28GM0t/d67uVgzIe/noPi9nAH zZEazoIxT174B/uh
dzVHyoTbt7zubq53IxeZz66xW3FhzX2/6GeX86FAc2A20ByYDTQHZgPNgdlA c2A20Fx5NvI+uv2x
x3iOXbbNgr7tC7wux+M1V/Tm2nG0YQ/UXLBWyi5cYbr9CwWfrrnau0Fzs4Dm XryaUb61tLzE1L4o
VqVZ85Y3npaZCpdXdqXqFesiZ/h2VbI21BvR7wg092KdSCMhq6IumyR817N+ 3bTPa95mzuq/wrl7
V3lZz0UmvtsCzb3goE1z3bBXhjkoeyqKNUfszUWaI7GeAJr7XlAna869EZzI qaPeTYrFBGvqRXg1
CcsBsfzkfCWaM1FBc98I6vx+jgb6OQrymr7OdYXqgxPjNgITFTT3jaDOelby wfUcR5pjLyntrT+2
Ks2hn/teUKc8E2Z930rxfWvwB2LlnBl3lwxULaqf5C2CuJUwltWCPkq62nsB zRmaLTm7mXnziTsA
zRmgua8DzSk6M5nTm5o3Hb4J0ByYDTQHZgPNgdlAcwW78xzzt3fAeyjQ3EK4 w1IiOMjwI6A50g9Y
lZ5izd19LdHZQHNl1QaLyQSxIRiJqQciscPd+9TZdXVDHq+5Mg1VVFXEVU6y /0fdZ3kg4+mak2s8
SM7Xv39UmnNblUB0u3i65ko/J9eXOM3psRb93Gc8XnPrgGqH2HJK/SgXnJxd S7cFmqO34sTl3Mj1
HBS3H2juxXrbqm9U4/tW1cdBe9uB5t5ARfOA5hbK38ecXfifDzS3gsnVWUBz YDbQHJgNNAdm83DN
zV8ix/1zPslwmNwwMu6Ss2R7D2oerjkKK2mHBoez7NPc9ki2aa53EJo7yAs0 B83VoOZrTv45fbJ7
HC0nxdR/+VCb3lBdp6I3plvdedNyDwGbhGRD2lC8BbuPXuhHvD3K7l5A7PPK I+KVQ5ELaK5d9NeH
XFBCLL4F24bI6dZgpxG5fYTKKjdlikzXD1ZmVsr1nA0lssDCVuJHJLOpOcrL DUeBi27FQ3PU0RyR
rVi/a4hMzupr0PrhBycp1VdzLApjwBYPZU9/L/KCQXPdor8+1gFD7ltDRkRs +i3VcKySq53mKOie
nD2VjF0Skax4o0YYsiOyfsw+ebabTvedktbMpj7JHnvtiofmSLRJb2ylpFXY n6TMQqvX88aJTEO2
ehrXzzXzRL3iSAfGyUEXalbx0Bx1xtbl2kWnS9pIXOcQNYSRjVvskhCJhpSG EqmkYyur6KJ87X6u
VWydrFvx0Nzrv41t4MRGckqR6lZwrW5mVfNm5F1zysHOJJN716kh2m1Ol9y3 2n30tB/3C2LumOO8
rrx+Gz7ct454uWDJNzDQuBcFmrsr0NyxQUFzfaC5Y4OC5n4y0ByYDTQHZgPN 3QNz9Ta45M89L7vE
RSA0l3FS8/DI4dHY+HMTXwCay4DmvsXjNTf+LlWzAi2YqWg9/9d21OxEayGe sE5yOl0GEizqMzEJ
y0nxZvJ0zclJVj1faues9Gymn0QdmKssdhqz6nIiLbRO5ALxQUclaRZvJtDc +svfmLUnilqcKJGW
yRXbCf3p8w3hhlFyElMapEg9k8drbsu7VOscvJzmJtecYvFbGcMaK1OihWlB Fn0k0VwcEwdedQlm
8njNvb8Pv0t19KRAH+FW8njMa6Xj0KTP1evGZwLNZe2WXs/Ff/YwfD2XOWoP loNjq45JjK3pBzS3
BDX7vrUONaRbI7pvFSNTvSpK3u0a3be6gTBbiCeNsDfCVp5sY6p7OArLunhB vzyh4h+uuVG6DXNC
h3FToLlBoLnDgOYGgeYOA5oDs4HmwGygOTAbaK4QbfG2Tk2w+BG7Dn8INLcQ vqewPMRim84CGY4D
zZGeWJLiMe9gsl9NSshuEGiurGWr729dezalOf1SQ7zSdT+P11yZ+pLTQyyX QRLJH/JXgFE68ALF
0zUn15WQmsUf0pzp/dDJjfB0zZV+rsz0D2oOr3TdzeM1tw6obojt9nPLj7Wf g+LGgOborTi5jkiM
nFTuKLrXc1DcINDci3LjoK/W5DNhPXzila77gebeQDLzgOYWxBJ08F2guRXM pM4CmgOzgebAbKA5
MBtoLnub2xa25Dp9Cd7OR4n9kDnKFOzg/3jNmRr5SHOcnWgd2q++qTl3OYsX 2jxdc7ZWoLkjnUFz
ruiqPuzrY+pSk/bGc7Wj9FvdRLu8GY/D+9y5XeaSrercvgFsjrJ1krhVmc2W dyomX3eurBhb16KT
qRW/uQJFWy6I4bjmEj9RbTb5b3Vk3sVqkqTuko3r0ni0PZ0t2K2uVXZqxhQk kYUtcYmKh+Ze+KrV
J8gfJZt2THMUmrA/Ones3TFFDkIjPspAmtQqOyduffF1WV8/4h5CFp2MApqa izeeUy8t5XpkTUmq
ZUl91S+W44472dTuSI023O/ORqnt6OK7std3y6pddzjUXHRLztBcLTqtlREO IUuyvG8JP8QFElFb
c9piz13YYSUOvD0dJWfJRvr4uHdMCwPNqaKv1ZIOIa8E5Wi88dxHY2ug4szd 8NgaDprpr5Vzu3Ns
VWHrskJzoujvGqkr4qiMD6Q6rGWEK5XH9v2rouHSTexEDr2ZK4sgGu6Uwlpb 1ZGxZ49yHQHz+1aX
2RTEbURbvimJ4Zmw8TLmhIdSHcZkd2e4heZ6QHNHA831gOaOBpoDs4HmwGyg OTAbaG4Y/WTVn9h7
8ABYPrL4xDFvSLsbaG4Y3nRin+Z2tjd3MrP70kgHzX2z6NvS31hzm+xDc98s +r//uify9qF9/VN9
Mg/kl9TyCMtJhGydHZGaIFd+uBEL6Xi0M173z3Pxi+x6hV9a5NYEBTfiG1xy /3TNpROUcqZTzX+6
1K0VaulkOI29NNZH59LayIL4nUF5hqLojcOOOR9mp+KhOXL1SOVrPKFNjVqn UCrxec6aLXQiv3Ks
FI7iJ2cwiI6Mpdh3YM65HKj4Z2suXnC2nEg1l75b1UzwZ+vsRl8amyyHoxHN xev9fMnIhR2LvLF8
UIyt0Fyn6MuX8DfVi6DVJGHnGBuVH9xwZ+yRStfXXN5xxiPhQAHTfphCi42K f7bmWsNg2s8t54jy
9h8ZW3MBdQfpjuZc/K5bbutKnuMBc8rlQMU/W3Ot+1bbz9lVYmtqdmbcC1ej +9Y6UpFuzN5yODHc
VWdCLI31fsyuZM4NG4f95YPmdr1f8Q/XHGgzIqKNQHOgCTR3bNHPLucdgOaO LfrZ5Xwo0ByYDTQH
ZgPNSfyjTndu4GCcjj+8NvrChdVJQHOSr2iOx5PuMnM7MUJzEmhuBo/XXPAI nsLJgM4ze/GoX88Z
6FkCuxiAl5TH7nF3bZ6uuWwutTdX6uYm7cKPLKmZTltSOlODc7V25vYWQHMv 4ulte44aGWSL9zVH
OpN2ytTxD819Iaj5mpMT5euI6c4RDWiusadbndgnZdM4Zer47+5xd22guRe6 k0m7O+prrje2sj0V
pmz7F2s+CJo7KKhzr+fMWrDB6zkq53lIc6qfi64lP9jj7to8XXPhbai4fdXn sgzitF9bl9y3aqEe
u8fdtXm85i7BPbRyFNDcFYDmTgea+9FAc2A20ByYDTQHZgPNFcRfy9tjLJ9+ 3Gg2/ZpAcwvRy9Dq
n4OyOQA+AJojM10qUmiplS8tzUGOfaC5sqscl1mAtWdTUnsNqurNNaoTrK+W eec4uw4vzOM1VxZo
rGpa1cdOcyT+Uz5F0vISp7Pr7+I8XXNl5rzOvZMVkdJcuYcQk6ku+dkVeG2e rrnSz8mlaC3NUT2k
9SbEeHb9XZzHa24dKt0Q29Zc3sdBcT2gOXorzl+okX5W0tecXBEHcqC5F+Vu oNx71rtRTsZWe0b1
cNBeDjT3hoNv4DtAcwtyGS74KtDcCqZSZwHNgdlAc2A20ByYDTR3xDOO1gNh f4jPvnTc+RyxH3JU
fHZ/Bvl4zZn6+Ehz3DjXOLJffVNz7nIWrbJ5uuZsnUBzxzqD5kzRVW1kG8pt 3BtOvxzVb2bnfdoN
5FKH7t2t6k11OiJtz+8+oJ0kblVmXTpfUF17rqwYW99Ft3VSdnhQ24W4o3In h5KLKEjmM7wtNl9m
mDrUG1GYNX/xfiqkE4hCcpIsLj01YwqSyMKWuErFQ3OlTlx7ihPkj5JNGzVu 0A72d5+dl9ghU2bY
5I7tNeKk0LLPzK1AXAylmLiHqEUn0/5NzY3tDbdJc2ZnHu44lE3tjoh758he Fmdjt7wgs3TrumoV
toYJmluKTmtVhAPIkizvWaKPbZpLT7f6FNvGFFnw9tI4U7c+c9qJOsO6rNBc KfpaKekA8kpQjo7s
Dbd5bA10nDkcHlvDQTP9xXJud46tKmxdVmiuFP1dH/XvG6iMDiRrfXxvOG2G ykDjdrDTx1mE0XBo
DFNVYue+1R7lOgLm960usymIK2j5piSGZ8LKy5gTHkp1INMdznYLzfWA5o4G musBzR0NNAdmA82B
2UBzYDbQ3DD6uao/sffgAbB8YPGJY96QdjfQ3DC86cQ+ze1sb+5kZvelkQ6a +2bRt6W/seY22Yfm
vln0f/91z+PtI/v6l/pkHscvqeURllMI2To7IjU9rvxwIxbS8WhnvO6f5+IX 2c27Y7Mit6YnuBHf
4IL7p2sunZ6U85xq9tOlbq1PS6fCidV/7Xq2fPLUpbWRBfE7g/IMRdEbhx1z PsxOxUNz5OqRytd4
OpsatU6hVOLznDVb6ER+5VgpHMVPzmAQHRlLse/AnHM5UPHP1ly83Gw5kWrO rzpzk/msjer1a+tP
rM54zSWL4WhEc/F6P18ycmHHIm8sHxRjKzTXKfryJfxN9SJoNUnYOcZG5Qc3 3Bl7pNL1NZd3nPFI
OFDAtB+m0GKj4p+tudYwmPZzyzmivP1HxtZcQN1BuqM5F7/rltu6kud4wJxy OVDxz9Zc677V9nN2
jdiamp0ZfbCeYONCn1nbrLcYTgx31ZkQS2O9H7MrmXPDxmF/+aC5Xe9X/MM1 B9qMiGgj0BxoAs0d
W/Szy3kHoLlji352OR8KNAdmA82B2UBzEv+o050bOBin4w+vjerjif1hXANo TvIVzfF40r1moLnP
g4LmtpmB5j4P6qx5CDHH0J1DSLarc3MGepbALgbgJeXRe9xdmadrLptL7c2V urlJu/AjS2qm05aU
zlTLv07mM1wdaO5FPL1tz1Ejg2zvvuZIZ9JOmdr+ufFxB6C5Fywnytehyp0j GtBcY0e3OrFPyqZx
ytT2D819I6hT+jlKmjD9CDXXG1vZngpTNv1Dc98I6tzrObMWbPB6jsp5HtKc 6ueiS7OP9ri7Mk/X
XHgb+v4wd6r6p3S7Or+2Lrlv1UI9eo+7K/N4zV2COyjlOKC5KwDNnQ4096OB 5sBsoDkwG2gOzAaa
e1N3whFPxtYTFBwHu4Hm3oxrDrr7FGiO6vP/VXMSqTky5yG/XUBzpnuTX5bv 8vg6tVDmDV4fZ1fY
vXi85sqbl6i+E6nq6z2lJI6pf4RLvD08XXNqll32cyP/3jnPrq3b8XTN6X6O RvVWVrehn9vO4zWX
Xc+N9XFQ3A6gOfL3rfp6rvHv7Iq6J9Dcm9Z9q+7f5H3rmvnsCrsX0FwDDJ1f AZpLiJ4Pg0OA5jIG
NwEHm4HmwGygOTAbaA7M5uGaSyewuPGTh8eStVxstsQbjrYN+nMsZlp2GOwA zb34UHMDyXgs9YDm
mmtZ9kihHxq3Mm12+XDNpQ14ec3tObk7NGjuKC9ac2rvN3FE/9TaG05mIpl/ zRL/5f/wDnhq87nk
XTlsD0Qb5enT1hkpQSUuayZ3cqDin605tSGN2OihKsT8JKRDMg3Vb/4cax82 k9vVhActZfnDD1NC
Spy9bJaVhJnL/ORIxUNzgR56O9KkeyaJD5GfMsMUSCc27zL08rvTpgSUOFNf 0+ADE9DcSNFfH7zu
SWPf10r6V92fX7KRbguxt6vdt84bFnn7O+BJZ9qNzp/sl2d/a+xwH2nO7B1k yxJWyUDFQ3PvRiRa
P7LByZxfGRhbU8PU10borBdC3y5nzozD7DTG1l1e1jWb5b/usou5U8FOPkum 9SfuGKbAPkeWApn0
83eOc+isVgn1S41+bqMXpblg4Kp3Z35gW40EY6sYd0lkZGtYj40DO+BpS838 jeOsA81C0qUWZl0F
4b51g5cLlvwRQHNgNtAcmA00B2YDzYHZQHNgNtBcwuit/2A67px0z3Kp89P4 o4k0GM5OfFpebueA
5hJmac61P2/Kt4tPjEJzH3mB5nYYheY+8vJeP2ffKUNkZhCI5Il3yjJ3YdLV v/03Js2qtXJev901
XrknHUd+w48o6BqaX1NXY+qZUZmi1K5OzDTF4zXXn4skakx12nScmVQHA5Pt SVA/r9uYWM2D1qsD
4wL1zNgi+dS+7vR07OM1R3m7mXon2/R5+xgj1LFlJUAt/9s8kLMWZWSXzN+t eM1Rlprb0UBz+lc3
WDL3wi5Sex906bqaa7/dVafSo2nQ85h5+PpZk5GzZkRjC6THT/JOXfZgJPV1 IgdXaC4XCOv0+nyc
rqe5/tga97PUiW+8Q42HSW2m07mm4TVjg+aocz3XE0hwVBxpmRzo55ga15N7 PKT9nDhHw2VPRZzW
iQiKoDlxPynGCDdi+Hs3CtOx/GfX3b1/skOeFly0cs87dtGqDzMgi7VxYuBT 8ajwx+9bs9RBndSg
oDn+2AzYCjQHZgPNgdk8XXNgPtAcmA00B2YDzUnMM1/wFaA5CTQ3A2hOAs3N 4PGaG9j9DRzL0zXX
moGE6L4DNPfCTWATQXPfApp70dr9DRwMNPdCLbshjK1fBZpLF4ehn/sST9dc Z/c3yO4LPF5zYDrQ
HJgNNAdmA82B2UBzYDYX1Rz4yVxTc/+bwBQnwHNVzc3wcsGSPwJoDswGmgOz gebAbKA5MJvram5Z
1iFWd4QLPZj3rnTT70bHhP40foDm7JlR6ZS9wKC5uVxXc15NY5ob7vTWvcAI mpvLLTRXl7TJ7c1E
PygOyf++P9jtMbcWnaC5M7iD5sqn+feCs7N1Z3rmMOt6PcfQ3FwurLnaQckt Kb3mRPeVaC7IRtDc
adxCc0FHpfq5um/4Hs0RQ3NTuYPm0h5sSaSPQHNX58qaE3swf3Y9F2etz+cY mpvJHTRHYtS0N58k
Zem+604wvm8lqn9ciD+knsGlNfftop9dzocCzYHZQHNgNtAcmA00B2ZzUc2B n8w1NXf2nyaB73K2
wgLNnV0l4MucrTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAcHMGtvIN
zvt3ggEwit1IP0kSHoLkwB786wkB+C7ZS+TEK+OWrlC+L85swQ/hgg3Yt4f4 j/W9D0EqdwqAPl5z
8lIte4dS+nYcALrInky9h9WehebAQbhXxdXBkqA58A3sG+H2XM9Bd2AL9Zlw fN9KSmfJfSs0B44H
ggKzgebAbKA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcFC5/zf8t B19MPc0sZ2a48dOU
kn1qfXPLH1AOdl8OdnYJzX3q4CKa4x1n+iahuS8DzbmM52uuDLTL/hH/vnD9 rjc5UUfWjSdqztdm
AMWaz2GOvFPX8zoKsSVtaLYdU1IKdTI3xUF0wRFumzCRUOi3BkUyswu+Fcem CtJN087nQzZlHFKk
vZ6rWbm2OalITGvVIyyTU/STzWFPsDqvopDtEJltx9QrBfdDs9ElR9omSiZO /NJIfCNxjFZQ3gI+
n67R4GOsE7T9XP1dzLTCUfqgQKGB0EbcXKSj0JrLNZzFpINoNgI18m/Mm4WQ 5q3lDqrG5KRWHOMV
lCrItVCYl8KgWjjNrb0ei++R5vyQN6o5nWM9JDKK8yzSq1DlL5ccdNOYZBB5 zDa0WgVxEvbenIkB
zbEdXGtZXRPULY2oGcdwBWUtbfIZzenRcdOzj6ifK62daUnkyX/fWv2c95n8 WvqeiRKzvZjiUoz0
CK0kHNXHZs2ZahWa29DzpC3RqyBu1IY2mKbxTdsi0pz5N9JaryPcrtJWq/mL wDCaWk89FbiY7O9w
UoP5iU4S2mIi9+tbhVs58zhGKyiIIzXYarNA3anm7DNhOZCJmzYi06O37hHl SVYflNgglUz3bdl9
K7lRpn3fKkshiysbk109iPvWOK+7b+2ZCJTD8lZJftF3knktunoYryBSRtN8 rlNictEMau5Apnrc
2o3fgkBzn9ualO8coLnDCnWS5s7pq2aX8tvO7lWDa9BHRL3LRvdNcAAAAAC4 LocP45yZ5Tz1jLjA
D4cHj+WnoTnwOdDc47ELzOyT72xhmT6h18yJx+4iZbU9ur7NrwsDP4FogZla tZlN2emJumjqzZxz
KTP38ZQe+DFkM9Dx/DA1kpH6Oj7F7N2n+cGPYFBznbVZYkJ/RHNj69uguR/K mObSvsouNhju5zru
0c/9YKJGj6/OmtdzFGQcGls5To1+7gfjJKLXUJmDRNl9q8pYMolea82b37dW aUfLuCC7n81A+x4k
ASgJDA9l0Bw4jrFHsNAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABO Q+6BH5y1fzmtTvnE
1LE0knKD0TApd86P2DdHoxrqBbbL22F/H7KpunsVdzCce3OR9DQ3Uq7NeQ9M ultzGzJ+6C1t/a16
2FTd0Fwj32dJobl24rmao2CLBzb7Opj3ntTEZQc6Xn8KtqarZszf9YuPai3c ga66NPbLn/+T20JA
5Qi9hqllUZcvdvsCnST4ussbSwNiG4Rk/4Ng+79qUvniMEYVVVyiss1C5w2v m0THtasLtxWp/4/3
L1En5btJyZ1Qpp0jaY0ip3F4kY88R1I8kzp9L2u4SV9efZu9GWtVnGx8RHVM ziRHP6VN3EySyGBv
52i3FUk051sgTNw+krUHNayZZDp57NHn0F7JFC9J7TUXlq2nuXFvw5qjrJzO l8/YiCqt3175d6hu
WHN665ztmote+xm8i1R/mLfgUc2derTvzdNb4w2pwL7kdFhzH3iTqdV7axPN ue3/mprb9HracBfA
sGF2qG2L5rifuHkk7AOoY82kDpO6gJPf/w0qUMFt7Of2evPWmv2cr4OW5lox DjZs2DDf11y6I/Cg
5rhZF9wvYRwK526Cdu0p1FXIRs3t9WY7plRzHNRBc/NSTpKE7UvkbEeVLn81 NomO6y0Mi2NkL8nV
60vV+8t9s69p1phEN63fPd29b412oFM3tdK5vQszOUKvsX02UanUUZId962R NyEpc99oI7J14F8s
G0XdjMolESeMCV/+mRzr9JQi3JAz6+n8NoLmzgCau6q1n8uzNQcAAACAAVh+ 7Bu/2VgxphsHNgeY
nwdXhLtH9zdfTxgf2O9lSl1/T4yQ+Sh9zX1sG5oDEv0MvLkSzU8D5JMHtIyt xgqp4zKhSpUv89q4
VK6/Di1fD5aU0s5GlDTL03qmsx7O3wczvdJaiRZO1b2ONCb32CUO0rucyWRl J0CTQ5eOsrlyHvBc
StmIl0nZAimq+4l0Q43WIHdENbezQt2EwpyMrhEg6XC2ay4vZZg0FptOCs01 WQeHVHN+wVxn0Zsb
MqsVolwwdhSs0bUD7C6VG1mHVjpLtc6BbOBJchP2vkVlD8LXpO+hKNQBJQ1H Kq+yQtY6JTnj3qbX
EVOWcfk+1M+RCzWtqbQXRj/XRFwObR9b5ZVOM286tiY5va+Plso1x9bh6zlK Ag1+I6C5FmLRlKq0
YLWXHnVG7lutFaJsKFXDdXT32ApQ9Tnb1qHl68GCUqrIXbxikXjQZ4JjuXn1 3jz8Z3LzRrt5+M/k
5o128/ABAAAAAAAAAAAAwD34fzxOoLcOmm7oAAAAAElFTkSuQmCC
------=_NextPart_000_000C_01C5C531.B4165900--
Attached files
------=_NextPart_000_000C_01C5C531.B4165900
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000D_01C5C531.B4165900"
------=_NextPart_001_000D_01C5C531.B4165900
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
Paco,=20
Revisa la condici=F3n que has puesto. El evento se dispara en cada =
pintado de l=EDnea. Te aconsejo que pongas alg=FAn LogDebug() para =
tracear lo que esta pasando.=20
Un saludo,
"Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el mensaje =
news:[email=433c2d30@ozsrvnegro.ozlan.local...]433c2d30@ozsrvnegro.ozlan.local...[/email]
Ignacio:
Probado lo que me has indicado y funciona, pero solo me pinta una =
linea. Quisiera que pintara todas las que cumplen la condicion dada. =
=BFDeberia ser asi?
Paco V
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:[email=433bae42@ozsrvnegro.ozlan.local...]433bae42@ozsrvnegro.ozlan.local...[/email]
Pues... porque no me tienes delante, porque estoy mas rojo que un =
tomate!!!
No hab=EDa buscado en la ayuda...
Me hab=EDa limitado a mirar los eventos del Browse en el inspector =
de objetos, mea culpa, Sorry.!!!
Gracias,
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 =
en el mensaje news:433b9d9f$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,=20
Es que =E9l pregunto por la l=EDnea espec=EDficamente:
>marcado, esa >>>
<<< me aparezca en color rojo. =BFEs posible? =BF Por donde=20
Para pintar una celda en concreto. En la documentaci=F3n podr=E1s =
ver lo siguiente:
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:433b9871$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>=20
> Ignacio,
>=20
> Esto "pinta" TODA la l=EDnea (Row), todo el registro!!!
> Pero... =BFcomo coloreamos una celda en concreto????
> OnDawCell ???? no est=E1 implementada, creo.
>=20
>=20
>=20
> Un Saludo,
> Xevi.
>=20
>=20
> "Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> =
escribi=F3 en el mensaje=20
> news:[email=433b9524@ozsrvnegro.ozlan.local...]433b9524@ozsrvnegro.ozlan.local...[/email]
>>
>> Paco,
>>
>> Es muy sencillo, tan s=F3lo tienes que capturar el evento =
OnDraRow() del=20
>> Browse.
>>
>> Algo as=ED:
>>
>> METHOD BrwDrawRow( oSender, nRowPos ) CLASS TForm1
>>
>> if ::oDbf:LoQueSea > nMiNumero
>> oSender:nClrPane :=3D clRed
>> else
>> oSender:nClrPane :=3D clWindow
>> endif
>>
>> RETURN Nil
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribi=F3 en el =
mensaje=20
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera =
un valor=20
>>> marcado, esa fila me aparezca en color rojo. =BFEs posible? =
=BF Por donde=20
>>> puedo enredar o existe alg=FAn ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>>=20
>=20
>=20
>
------=_NextPart_001_000D_01C5C531.B4165900
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>Paco, </DIV>
<DIV>Â</DIV>
<DIV>Revisa la condici=F3n que has puesto. El evento se dispara en cada =
pintado de=20
l=EDnea. Te aconsejo que pongas alg=FAn LogDebug() para tracear lo que =
esta pasando.=20
</DIV>
<DIV>Â</DIV>
<DIV>Un saludo,</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Paco V." <<A=20
=
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:433c2d30@ozsrvnegro.ozlan.local">news:433c2d30@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Probado lo que me has indicado y =
funciona, pero=20
solo me pinta una linea. Quisiera que pintara todas las que cumplen la =
condicion dada. =BFDeberia ser asi?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Paco V</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:433bae42@ozsrvnegro.ozlan.local">news:433bae42@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Pues... porque no me tienes =
delante, porque=20
estoy mas rojo que un tomate!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No hab=EDa buscado en la =
ayuda...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me hab=EDa limitado a mirar los =
eventos del=20
Browse en el inspector de objetos, mea culpa, Sorry.!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
=
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:433b9d9f$1@ozsrvnegro.ozlan.local">news:433b9d9f$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV>Xevi, </DIV>
<DIV>Â</DIV>
<DIV>Es que =E9l pregunto por la l=EDnea espec=EDficamente:</DIV>
<DIV>Â</DIV>
<DIV>>marcado, esa >>></DIV>
<DIV align=3Dleft><STRONG></STRONG>Â</DIV>
<DIV><<< me aparezca en color rojo. =BFEs posible? =BF =
Por donde=20
</DIV>
<DIV>Â</DIV>
<DIV>Para pintar una celda en concreto. En la documentaci=F3n =
podr=E1s ver lo=20
siguiente:</DIV>
<DIV>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0=20
src=3D"cid:000701c5c520$f08b1800$0e00000a@ozlan.local" =
align=3Dbaseline=20
border=3D0><BR></DIV>
<DIV>Â</DIV>
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:433b9871$1@ozsrvnegro.ozlan.local">news:433b9871$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>>=20
<BR>> Ignacio,<BR>> <BR>> Esto "pinta" TODA la l=EDnea =
(Row), todo=20
el registro!!!<BR>> Pero... =BFcomo coloreamos una celda en=20
concreto????<BR>> OnDawCell ???? no est=E1 implementada, =
creo.<BR>>=20
<BR>> <BR>> <BR>> Un Saludo,<BR>> Xevi.<BR>> =
<BR>>=20
<BR>> "Ignacio Ortiz de Z=FA=F1iga" <<A=20
=
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>>=20
escribi=F3 en el mensaje <BR>> <A=20
=
href=3D"news:433b9524@ozsrvnegro.ozlan.local">news:433b9524@ozsrvnegro.oz=
lan.local</A>...<BR>>><BR>>>=20
Paco,<BR>>><BR>>> Es muy sencillo, tan s=F3lo tienes =
que=20
capturar el evento OnDraRow() del <BR>>>=20
Browse.<BR>>><BR>>> Algo =
as=ED:<BR>>><BR>>> METHOD=20
BrwDrawRow( oSender, nRowPos ) CLASS=20
TForm1<BR>>><BR>>>ÂÂ if ::oDbf:LoQueSea > =
nMiNumero<BR> >>ÂÂÂÂ& ;nbsp; =
oSender:nClrPane :=3D=20
clRed<BR>>>ÂÂ=20
else<BR> >>ÂÂÂÂ& ;nbsp; oSender:nClrPane =
:=3D=20
clWindow<BR>>>ÂÂ endif<BR>>><BR>>> =
RETURN=20
Nil<BR>>><BR>>> "Paco V." <<A=20
=
href=3D"mailto:paco-ssi@usuarios.retecal.es">paco-ssi@usuarios.retecal.es=
</A>>=20
escribi=F3 en el mensaje <BR>>> <A=20
=
href=3D"news:433ae026$1@ozsrvnegro.ozlan.local">news:433ae026$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...<BR>>>>=20
Quisiera hacer lo siguiente:<BR>>>><BR>>>> En un =
dBFBrowse, hacer que si un campo de un registro supera un valor=20
<BR>>>> marcado, esa fila me aparezca en color rojo. =
=BFEs posible?=20
=BF Por donde <BR>>>> puedo enredar o existe alg=FAn=20
ejemplo?<BR>>>><BR>>>>=20
Gracias<BR>>>><BR>>>> Paco=20
V<BR>>>><BR>>><BR>>> <BR>>> <BR>> =
<BR>>=20
<BR>> </BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_000D_01C5C531.B4165900--
------=_NextPart_000_000C_01C5C531.B4165900
Content-Type: image/png;
name="Image1.png"
Content-Transfer-Encoding: base64
Content-ID: <000701c5c520$f08b1800$0e00000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAnMAAAIbCAMAAAC3yegLAAAAB3RJTUUH1Qkd BzQ6WS32zwAAAAlw
SFlzAAAOwwAADsMBx2+oZAAAAARnQU1BAACxjwv8YQUAAAAYUExURf///wAA AOzp2KyomcDAwAAA
ZszMzGZmZuf+ZQEAACJOSURBVHja7Z2NgpyqsoWr7slO3v+Nb9KtUL+Ato06 ru+c7O5RqCpgDagw
SL8AmAudHQB4HNAcmA00B2YDzYHZQHNgNtAcmA00B74FGcrx139Zon8eM99K O2xkr4NfW6MdNb0c
PqQAD4T+U4xrbqS624kPaLJONJt/RQZNQ3Mf8U3NdVJ/3mS9cDb+igxnheY+ gv57Dam///6Pfv+2
mnshqrZ8HWnFkqbdW+yn2O2qerPo2rFDcx9B//3+B73+O645We2iM1CfKl/N FpkILP6SSlntcZjT
HHHpnPESCXv/aezc8g828B5b//Z24dj6oqM5OQLJdgs6CD1apZpb0uikPifr wDhLZ7IUXYqv47FH
kYNt0H9//vz5Jzj6+/ln89gq9PGrdgW2q6i5A4FmmjNJfU7lwGou7gil0Eop tsUeRA628XdspaWv
+8uA5lxPolXQazeXJ9Kc+ghyurhM19fUnPM5ErsLxwUAhvl3Pbfcs/7+M3I9 F49eG9otacC4PeM0
v7If8sEv6Bp/bdOcNwPN7ePVz9HSzW3q53S1rwOsGmi1q3rgGppjKbN+7KLY 0NxH/NXcnz+/X73c
n6F+rn5TjXM3zVkJQXPz2NzP6a9tzQUDmc/7ieaC+9bAVhyuGlbHY4/Ngw3Q 0sENX8/pr1JHv5Yj
v7xAdEMedD0XBJZqLrFTDg/E7h1Dc/t493Mr+8dWeQ1u7mnVKXG8fuR3sz3N iUcpQTrVrUV2TP52
7DUDNPcR7fnWF0P3EEG7/QoSB3nTo/4j+FHlDbWUnDc6H449CANso72W6cWY 5qK+yLT4r1wA+zQX
OTDp4vM244bYozDAIXQ1F52zh8TzCPmztfs+tkdz1kGqOVcUjpw2Y/elhuaO BeuEwWygOTAbaA7M
BpoDs4HmwGygOTAbaA7MBpoDsyEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA
AAAAAAAA4FYsu5DP8TU/7/ZsvNUEZ8l42Myc6r8MM6viBM1tN7DZETS3FWju U0fQ3FZYfPJrqH19
4fq9Drx/v3FJqU8wqSNvA8TVZJzZ2dDnFzNL3pZHFb6KICgMF52EPk2saT6X wdeVCigvgHT2DlYV
/qdJcr2eq3W6lFkKpNQam6YQ1amPcJDcZ05tuDi441GFLyOICsNNn1HknXxh gMGRRnFlicO4fxD1
Fy+s/q4syJ33SWPL1LexyWN4yrk0X0OfqSCo7SI8F5zoRJnm/SkYzb3vYYc0 J253y8AV9wS55nQO
4S6KQ/7GBx5rNh2BdFnNtnx6zcX5bIbAvTmSFLepuWmPFabh+zmKKsAfZWeH tdXBfk7Hkab2o4z1
mA1ecSwtn+EBCvNlAXIQYLM77NXYT4LVt7i4onJ7FVy6gL7mWjZCV02PtWex Edju2WexPp33QKvJ
eU4DbJ3vaO7H9XPlmfA6+Jj2C+/F3AmR+V2l1qTIxVEOlywYXloeV1+1ie0d oTbb9ikLWj3H3tla
IIpC9ucjE15zNubnMVj082vo0wjOLwFYgObAbKA5AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAACu
z/+BH87ZCoPmHsf/zlZYpLn/TWCKE+D5W/FnKyzU3AwvFyz5I4DmwGygOTAb aA7MBpoDs7mw5r69
d3qsuZbTn7YV0UlcWnO0tZk3JQ4113QKzR3Cj9LcNk1UzfGgCXcSGtzDLTSn dokTu6qx2MV7PWMS
lQ2/o6K/P+1OdLQern5IfIlMQ3tbuIPmyqfYcG8RXN1FXv5bv4iPsOhEVTWs 9S3sCTvWD2G83cGl
NVcu53WnwpHOYs21BPF2svxQ7df+rftvyXp2dd2NS2tu/Vl0Z+oH0RdxpLn2 7t5xP0dEHNmMfBGh
n9vBHTSXyCke51QianV16npOdV2RzXhMheJ28GM0t/d67uVgzIe/noPi9nAH zZEazoIxT174B/uh
dzVHyoTbt7zubq53IxeZz66xW3FhzX2/6GeX86FAc2A20ByYDTQHZgPNgdlA c2A20Fx5NvI+uv2x
x3iOXbbNgr7tC7wux+M1V/Tm2nG0YQ/UXLBWyi5cYbr9CwWfrrnau0Fzs4Dm XryaUb61tLzE1L4o
VqVZ85Y3npaZCpdXdqXqFesiZ/h2VbI21BvR7wg092KdSCMhq6IumyR817N+ 3bTPa95mzuq/wrl7
V3lZz0UmvtsCzb3goE1z3bBXhjkoeyqKNUfszUWaI7GeAJr7XlAna869EZzI qaPeTYrFBGvqRXg1
CcsBsfzkfCWaM1FBc98I6vx+jgb6OQrymr7OdYXqgxPjNgITFTT3jaDOelby wfUcR5pjLyntrT+2
Ks2hn/teUKc8E2Z930rxfWvwB2LlnBl3lwxULaqf5C2CuJUwltWCPkq62nsB zRmaLTm7mXnziTsA
zRmgua8DzSk6M5nTm5o3Hb4J0ByYDTQHZgPNgdlAcwW78xzzt3fAeyjQ3EK4 w1IiOMjwI6A50g9Y
lZ5izd19LdHZQHNl1QaLyQSxIRiJqQciscPd+9TZdXVDHq+5Mg1VVFXEVU6y /0fdZ3kg4+mak2s8
SM7Xv39UmnNblUB0u3i65ko/J9eXOM3psRb93Gc8XnPrgGqH2HJK/SgXnJxd S7cFmqO34sTl3Mj1
HBS3H2juxXrbqm9U4/tW1cdBe9uB5t5ARfOA5hbK38ecXfifDzS3gsnVWUBz YDbQHJgNNAdm83DN
zV8ix/1zPslwmNwwMu6Ss2R7D2oerjkKK2mHBoez7NPc9ki2aa53EJo7yAs0 B83VoOZrTv45fbJ7
HC0nxdR/+VCb3lBdp6I3plvdedNyDwGbhGRD2lC8BbuPXuhHvD3K7l5A7PPK I+KVQ5ELaK5d9NeH
XFBCLL4F24bI6dZgpxG5fYTKKjdlikzXD1ZmVsr1nA0lssDCVuJHJLOpOcrL DUeBi27FQ3PU0RyR
rVi/a4hMzupr0PrhBycp1VdzLApjwBYPZU9/L/KCQXPdor8+1gFD7ltDRkRs +i3VcKySq53mKOie
nD2VjF0Skax4o0YYsiOyfsw+ebabTvedktbMpj7JHnvtiofmSLRJb2ylpFXY n6TMQqvX88aJTEO2
ehrXzzXzRL3iSAfGyUEXalbx0Bx1xtbl2kWnS9pIXOcQNYSRjVvskhCJhpSG EqmkYyur6KJ87X6u
VWydrFvx0Nzrv41t4MRGckqR6lZwrW5mVfNm5F1zysHOJJN716kh2m1Ol9y3 2n30tB/3C2LumOO8
rrx+Gz7ct454uWDJNzDQuBcFmrsr0NyxQUFzfaC5Y4OC5n4y0ByYDTQHZgPN 3QNz9Ta45M89L7vE
RSA0l3FS8/DI4dHY+HMTXwCay4DmvsXjNTf+LlWzAi2YqWg9/9d21OxEayGe sE5yOl0GEizqMzEJ
y0nxZvJ0zclJVj1faues9Gymn0QdmKssdhqz6nIiLbRO5ALxQUclaRZvJtDc +svfmLUnilqcKJGW
yRXbCf3p8w3hhlFyElMapEg9k8drbsu7VOscvJzmJtecYvFbGcMaK1OihWlB Fn0k0VwcEwdedQlm
8njNvb8Pv0t19KRAH+FW8njMa6Xj0KTP1evGZwLNZe2WXs/Ff/YwfD2XOWoP loNjq45JjK3pBzS3
BDX7vrUONaRbI7pvFSNTvSpK3u0a3be6gTBbiCeNsDfCVp5sY6p7OArLunhB vzyh4h+uuVG6DXNC
h3FToLlBoLnDgOYGgeYOA5oDs4HmwGygOTAbaK4QbfG2Tk2w+BG7Dn8INLcQ vqewPMRim84CGY4D
zZGeWJLiMe9gsl9NSshuEGiurGWr729dezalOf1SQ7zSdT+P11yZ+pLTQyyX QRLJH/JXgFE68ALF
0zUn15WQmsUf0pzp/dDJjfB0zZV+rsz0D2oOr3TdzeM1tw6obojt9nPLj7Wf g+LGgOborTi5jkiM
nFTuKLrXc1DcINDci3LjoK/W5DNhPXzila77gebeQDLzgOYWxBJ08F2guRXM pM4CmgOzgebAbKA5
MBtoLnub2xa25Dp9Cd7OR4n9kDnKFOzg/3jNmRr5SHOcnWgd2q++qTl3OYsX 2jxdc7ZWoLkjnUFz
ruiqPuzrY+pSk/bGc7Wj9FvdRLu8GY/D+9y5XeaSrercvgFsjrJ1krhVmc2W dyomX3eurBhb16KT
qRW/uQJFWy6I4bjmEj9RbTb5b3Vk3sVqkqTuko3r0ni0PZ0t2K2uVXZqxhQk kYUtcYmKh+Ze+KrV
J8gfJZt2THMUmrA/Ones3TFFDkIjPspAmtQqOyduffF1WV8/4h5CFp2MApqa izeeUy8t5XpkTUmq
ZUl91S+W44472dTuSI023O/ORqnt6OK7std3y6pddzjUXHRLztBcLTqtlREO IUuyvG8JP8QFElFb
c9piz13YYSUOvD0dJWfJRvr4uHdMCwPNqaKv1ZIOIa8E5Wi88dxHY2ug4szd 8NgaDprpr5Vzu3Ns
VWHrskJzoujvGqkr4qiMD6Q6rGWEK5XH9v2rouHSTexEDr2ZK4sgGu6Uwlpb 1ZGxZ49yHQHz+1aX
2RTEbURbvimJ4Zmw8TLmhIdSHcZkd2e4heZ6QHNHA831gOaOBpoDs4HmwGyg OTAbaG4Y/WTVn9h7
8ABYPrL4xDFvSLsbaG4Y3nRin+Z2tjd3MrP70kgHzX2z6NvS31hzm+xDc98s +r//uify9qF9/VN9
Mg/kl9TyCMtJhGydHZGaIFd+uBEL6Xi0M173z3Pxi+x6hV9a5NYEBTfiG1xy /3TNpROUcqZTzX+6
1K0VaulkOI29NNZH59LayIL4nUF5hqLojcOOOR9mp+KhOXL1SOVrPKFNjVqn UCrxec6aLXQiv3Ks
FI7iJ2cwiI6Mpdh3YM65HKj4Z2suXnC2nEg1l75b1UzwZ+vsRl8amyyHoxHN xev9fMnIhR2LvLF8
UIyt0Fyn6MuX8DfVi6DVJGHnGBuVH9xwZ+yRStfXXN5xxiPhQAHTfphCi42K f7bmWsNg2s8t54jy
9h8ZW3MBdQfpjuZc/K5bbutKnuMBc8rlQMU/W3Ot+1bbz9lVYmtqdmbcC1ej +9Y6UpFuzN5yODHc
VWdCLI31fsyuZM4NG4f95YPmdr1f8Q/XHGgzIqKNQHOgCTR3bNHPLucdgOaO LfrZ5Xwo0ByYDTQH
ZgPNSfyjTndu4GCcjj+8NvrChdVJQHOSr2iOx5PuMnM7MUJzEmhuBo/XXPAI nsLJgM4ze/GoX88Z
6FkCuxiAl5TH7nF3bZ6uuWwutTdX6uYm7cKPLKmZTltSOlODc7V25vYWQHMv 4ulte44aGWSL9zVH
OpN2ytTxD819Iaj5mpMT5euI6c4RDWiusadbndgnZdM4Zer47+5xd22guRe6 k0m7O+prrje2sj0V
pmz7F2s+CJo7KKhzr+fMWrDB6zkq53lIc6qfi64lP9jj7to8XXPhbai4fdXn sgzitF9bl9y3aqEe
u8fdtXm85i7BPbRyFNDcFYDmTgea+9FAc2A20ByYDTQHZgPNFcRfy9tjLJ9+ 3Gg2/ZpAcwvRy9Dq
n4OyOQA+AJojM10qUmiplS8tzUGOfaC5sqscl1mAtWdTUnsNqurNNaoTrK+W eec4uw4vzOM1VxZo
rGpa1cdOcyT+Uz5F0vISp7Pr7+I8XXNl5rzOvZMVkdJcuYcQk6ku+dkVeG2e rrnSz8mlaC3NUT2k
9SbEeHb9XZzHa24dKt0Q29Zc3sdBcT2gOXorzl+okX5W0tecXBEHcqC5F+Vu oNx71rtRTsZWe0b1
cNBeDjT3hoNv4DtAcwtyGS74KtDcCqZSZwHNgdlAc2A20ByYDTR3xDOO1gNh f4jPvnTc+RyxH3JU
fHZ/Bvl4zZn6+Ehz3DjXOLJffVNz7nIWrbJ5uuZsnUBzxzqD5kzRVW1kG8pt 3BtOvxzVb2bnfdoN
5FKH7t2t6k11OiJtz+8+oJ0kblVmXTpfUF17rqwYW99Ft3VSdnhQ24W4o3In h5KLKEjmM7wtNl9m
mDrUG1GYNX/xfiqkE4hCcpIsLj01YwqSyMKWuErFQ3OlTlx7ihPkj5JNGzVu 0A72d5+dl9ghU2bY
5I7tNeKk0LLPzK1AXAylmLiHqEUn0/5NzY3tDbdJc2ZnHu44lE3tjoh758he Fmdjt7wgs3TrumoV
toYJmluKTmtVhAPIkizvWaKPbZpLT7f6FNvGFFnw9tI4U7c+c9qJOsO6rNBc KfpaKekA8kpQjo7s
Dbd5bA10nDkcHlvDQTP9xXJud46tKmxdVmiuFP1dH/XvG6iMDiRrfXxvOG2G ykDjdrDTx1mE0XBo
DFNVYue+1R7lOgLm960usymIK2j5piSGZ8LKy5gTHkp1INMdznYLzfWA5o4G musBzR0NNAdmA82B
2UBzYDbQ3DD6uao/sffgAbB8YPGJY96QdjfQ3DC86cQ+ze1sb+5kZvelkQ6a +2bRt6W/seY22Yfm
vln0f/91z+PtI/v6l/pkHscvqeURllMI2To7IjU9rvxwIxbS8WhnvO6f5+IX 2c27Y7Mit6YnuBHf
4IL7p2sunZ6U85xq9tOlbq1PS6fCidV/7Xq2fPLUpbWRBfE7g/IMRdEbhx1z PsxOxUNz5OqRytd4
OpsatU6hVOLznDVb6ER+5VgpHMVPzmAQHRlLse/AnHM5UPHP1ly83Gw5kWrO rzpzk/msjer1a+tP
rM54zSWL4WhEc/F6P18ycmHHIm8sHxRjKzTXKfryJfxN9SJoNUnYOcZG5Qc3 3Bl7pNL1NZd3nPFI
OFDAtB+m0GKj4p+tudYwmPZzyzmivP1HxtZcQN1BuqM5F7/rltu6kud4wJxy OVDxz9Zc677V9nN2
jdiamp0ZfbCeYONCn1nbrLcYTgx31ZkQS2O9H7MrmXPDxmF/+aC5Xe9X/MM1 B9qMiGgj0BxoAs0d
W/Szy3kHoLlji352OR8KNAdmA82B2UBzEv+o050bOBin4w+vjerjif1hXANo TvIVzfF40r1moLnP
g4LmtpmB5j4P6qx5CDHH0J1DSLarc3MGepbALgbgJeXRe9xdmadrLptL7c2V urlJu/AjS2qm05aU
zlTLv07mM1wdaO5FPL1tz1Ejg2zvvuZIZ9JOmdr+ufFxB6C5Fywnytehyp0j GtBcY0e3OrFPyqZx
ytT2D819I6hT+jlKmjD9CDXXG1vZngpTNv1Dc98I6tzrObMWbPB6jsp5HtKc 6ueiS7OP9ri7Mk/X
XHgb+v4wd6r6p3S7Or+2Lrlv1UI9eo+7K/N4zV2COyjlOKC5KwDNnQ4096OB 5sBsoDkwG2gOzAaa
e1N3whFPxtYTFBwHu4Hm3oxrDrr7FGiO6vP/VXMSqTky5yG/XUBzpnuTX5bv 8vg6tVDmDV4fZ1fY
vXi85sqbl6i+E6nq6z2lJI6pf4RLvD08XXNqll32cyP/3jnPrq3b8XTN6X6O RvVWVrehn9vO4zWX
Xc+N9XFQ3A6gOfL3rfp6rvHv7Iq6J9Dcm9Z9q+7f5H3rmvnsCrsX0FwDDJ1f AZpLiJ4Pg0OA5jIG
NwEHm4HmwGygOTAbaA7M5uGaSyewuPGTh8eStVxstsQbjrYN+nMsZlp2GOwA zb34UHMDyXgs9YDm
mmtZ9kihHxq3Mm12+XDNpQ14ec3tObk7NGjuKC9ac2rvN3FE/9TaG05mIpl/ zRL/5f/wDnhq87nk
XTlsD0Qb5enT1hkpQSUuayZ3cqDin605tSGN2OihKsT8JKRDMg3Vb/4cax82 k9vVhActZfnDD1NC
Spy9bJaVhJnL/ORIxUNzgR56O9KkeyaJD5GfMsMUSCc27zL08rvTpgSUOFNf 0+ADE9DcSNFfH7zu
SWPf10r6V92fX7KRbguxt6vdt84bFnn7O+BJZ9qNzp/sl2d/a+xwH2nO7B1k yxJWyUDFQ3PvRiRa
P7LByZxfGRhbU8PU10borBdC3y5nzozD7DTG1l1e1jWb5b/usou5U8FOPkum 9SfuGKbAPkeWApn0
83eOc+isVgn1S41+bqMXpblg4Kp3Z35gW40EY6sYd0lkZGtYj40DO+BpS838 jeOsA81C0qUWZl0F
4b51g5cLlvwRQHNgNtAcmA00B2YDzYHZQHNgNtBcwuit/2A67px0z3Kp89P4 o4k0GM5OfFpebueA
5hJmac61P2/Kt4tPjEJzH3mB5nYYheY+8vJeP2ffKUNkZhCI5Il3yjJ3YdLV v/03Js2qtXJev901
XrknHUd+w48o6BqaX1NXY+qZUZmi1K5OzDTF4zXXn4skakx12nScmVQHA5Pt SVA/r9uYWM2D1qsD
4wL1zNgi+dS+7vR07OM1R3m7mXon2/R5+xgj1LFlJUAt/9s8kLMWZWSXzN+t eM1Rlprb0UBz+lc3
WDL3wi5Sex906bqaa7/dVafSo2nQ85h5+PpZk5GzZkRjC6THT/JOXfZgJPV1 IgdXaC4XCOv0+nyc
rqe5/tga97PUiW+8Q42HSW2m07mm4TVjg+aocz3XE0hwVBxpmRzo55ga15N7 PKT9nDhHw2VPRZzW
iQiKoDlxPynGCDdi+Hs3CtOx/GfX3b1/skOeFly0cs87dtGqDzMgi7VxYuBT 8ajwx+9bs9RBndSg
oDn+2AzYCjQHZgPNgdk8XXNgPtAcmA00B2YDzUnMM1/wFaA5CTQ3A2hOAs3N 4PGaG9j9DRzL0zXX
moGE6L4DNPfCTWATQXPfApp70dr9DRwMNPdCLbshjK1fBZpLF4ehn/sST9dc Z/c3yO4LPF5zYDrQ
HJgNNAdmA82B2UBzYDYX1Rz4yVxTc/+bwBQnwHNVzc3wcsGSPwJoDswGmgOz gebAbKA5MJvram5Z
1iFWd4QLPZj3rnTT70bHhP40foDm7JlR6ZS9wKC5uVxXc15NY5ob7vTWvcAI mpvLLTRXl7TJ7c1E
PygOyf++P9jtMbcWnaC5M7iD5sqn+feCs7N1Z3rmMOt6PcfQ3FwurLnaQckt Kb3mRPeVaC7IRtDc
adxCc0FHpfq5um/4Hs0RQ3NTuYPm0h5sSaSPQHNX58qaE3swf3Y9F2etz+cY mpvJHTRHYtS0N58k
Zem+604wvm8lqn9ciD+knsGlNfftop9dzocCzYHZQHNgNtAcmA00B2ZzUc2B n8w1NXf2nyaB73K2
wgLNnV0l4MucrTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAcHMGtvIN
zvt3ggEwit1IP0kSHoLkwB786wkB+C7ZS+TEK+OWrlC+L85swQ/hgg3Yt4f4 j/W9D0EqdwqAPl5z
8lIte4dS+nYcALrInky9h9WehebAQbhXxdXBkqA58A3sG+H2XM9Bd2AL9Zlw fN9KSmfJfSs0B44H
ggKzgebAbKA5AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcFC5/zf8t B19MPc0sZ2a48dOU
kn1qfXPLH1AOdl8OdnYJzX3q4CKa4x1n+iahuS8DzbmM52uuDLTL/hH/vnD9 rjc5UUfWjSdqztdm
AMWaz2GOvFPX8zoKsSVtaLYdU1IKdTI3xUF0wRFumzCRUOi3BkUyswu+Fcem CtJN087nQzZlHFKk
vZ6rWbm2OalITGvVIyyTU/STzWFPsDqvopDtEJltx9QrBfdDs9ElR9omSiZO /NJIfCNxjFZQ3gI+
n67R4GOsE7T9XP1dzLTCUfqgQKGB0EbcXKSj0JrLNZzFpINoNgI18m/Mm4WQ 5q3lDqrG5KRWHOMV
lCrItVCYl8KgWjjNrb0ei++R5vyQN6o5nWM9JDKK8yzSq1DlL5ccdNOYZBB5 zDa0WgVxEvbenIkB
zbEdXGtZXRPULY2oGcdwBWUtbfIZzenRcdOzj6ifK62daUnkyX/fWv2c95n8 WvqeiRKzvZjiUoz0
CK0kHNXHZs2ZahWa29DzpC3RqyBu1IY2mKbxTdsi0pz5N9JaryPcrtJWq/mL wDCaWk89FbiY7O9w
UoP5iU4S2mIi9+tbhVs58zhGKyiIIzXYarNA3anm7DNhOZCJmzYi06O37hHl SVYflNgglUz3bdl9
K7lRpn3fKkshiysbk109iPvWOK+7b+2ZCJTD8lZJftF3knktunoYryBSRtN8 rlNictEMau5Apnrc
2o3fgkBzn9ualO8coLnDCnWS5s7pq2aX8tvO7lWDa9BHRL3LRvdNcAAAAAC4 LocP45yZ5Tz1jLjA
D4cHj+WnoTnwOdDc47ELzOyT72xhmT6h18yJx+4iZbU9ur7NrwsDP4FogZla tZlN2emJumjqzZxz
KTP38ZQe+DFkM9Dx/DA1kpH6Oj7F7N2n+cGPYFBznbVZYkJ/RHNj69uguR/K mObSvsouNhju5zru
0c/9YKJGj6/OmtdzFGQcGls5To1+7gfjJKLXUJmDRNl9q8pYMolea82b37dW aUfLuCC7n81A+x4k
ASgJDA9l0Bw4jrFHsNAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABO Q+6BH5y1fzmtTvnE
1LE0knKD0TApd86P2DdHoxrqBbbL22F/H7KpunsVdzCce3OR9DQ3Uq7NeQ9M ultzGzJ+6C1t/a16
2FTd0Fwj32dJobl24rmao2CLBzb7Opj3ntTEZQc6Xn8KtqarZszf9YuPai3c ga66NPbLn/+T20JA
5Qi9hqllUZcvdvsCnST4ussbSwNiG4Rk/4Ng+79qUvniMEYVVVyiss1C5w2v m0THtasLtxWp/4/3
L1En5btJyZ1Qpp0jaY0ip3F4kY88R1I8kzp9L2u4SV9efZu9GWtVnGx8RHVM ziRHP6VN3EySyGBv
52i3FUk051sgTNw+krUHNayZZDp57NHn0F7JFC9J7TUXlq2nuXFvw5qjrJzO l8/YiCqt3175d6hu
WHN665ztmote+xm8i1R/mLfgUc2derTvzdNb4w2pwL7kdFhzH3iTqdV7axPN ue3/mprb9HracBfA
sGF2qG2L5rifuHkk7AOoY82kDpO6gJPf/w0qUMFt7Of2evPWmv2cr4OW5lox DjZs2DDf11y6I/Cg
5rhZF9wvYRwK526Cdu0p1FXIRs3t9WY7plRzHNRBc/NSTpKE7UvkbEeVLn81 NomO6y0Mi2NkL8nV
60vV+8t9s69p1phEN63fPd29b412oFM3tdK5vQszOUKvsX02UanUUZId962R NyEpc99oI7J14F8s
G0XdjMolESeMCV/+mRzr9JQi3JAz6+n8NoLmzgCau6q1n8uzNQcAAACAAVh+ 7Bu/2VgxphsHNgeY
nwdXhLtH9zdfTxgf2O9lSl1/T4yQ+Sh9zX1sG5oDEv0MvLkSzU8D5JMHtIyt xgqp4zKhSpUv89q4
VK6/Di1fD5aU0s5GlDTL03qmsx7O3wczvdJaiRZO1b2ONCb32CUO0rucyWRl J0CTQ5eOsrlyHvBc
StmIl0nZAimq+4l0Q43WIHdENbezQt2EwpyMrhEg6XC2ay4vZZg0FptOCs01 WQeHVHN+wVxn0Zsb
MqsVolwwdhSs0bUD7C6VG1mHVjpLtc6BbOBJchP2vkVlD8LXpO+hKNQBJQ1H Kq+yQtY6JTnj3qbX
EVOWcfk+1M+RCzWtqbQXRj/XRFwObR9b5ZVOM286tiY5va+Plso1x9bh6zlK Ag1+I6C5FmLRlKq0
YLWXHnVG7lutFaJsKFXDdXT32ApQ9Tnb1qHl68GCUqrIXbxikXjQZ4JjuXn1 3jz8Z3LzRrt5+M/k
5o128/ABAAAAAAAAAAAAwD34fzxOoLcOmm7oAAAAAElFTkSuQmCC
------=_NextPart_000_000C_01C5C531.B4165900--
Attached files
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Color en Dbfbrowse
Ignacio:
He probado con diferentes condiciones, y siempre me hace lo mismo.
Paco V
----- Original Message -----
From: "Paco V." <paco-ssi@usuarios.retecal.es>
Newsgroups: local.xailer.beta
Sent: Wednesday, September 28, 2005 8:25 PM
Subject: Color en Dbfbrowse
> Quisiera hacer lo siguiente:
>
> En un dBFBrowse, hacer que si un campo de un registro supera un valor
> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
> puedo enredar o existe algún ejemplo?
>
> Gracias
>
> Paco V
>
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Quisiera hacer lo siguiente:
>
> En un dBFBrowse, hacer que si un campo de un registro supera un valor
> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
> puedo enredar o existe algún ejemplo?
>
> Gracias
>
> Paco V
>
He probado con diferentes condiciones, y siempre me hace lo mismo.
Paco V
----- Original Message -----
From: "Paco V." <paco-ssi@usuarios.retecal.es>
Newsgroups: local.xailer.beta
Sent: Wednesday, September 28, 2005 8:25 PM
Subject: Color en Dbfbrowse
> Quisiera hacer lo siguiente:
>
> En un dBFBrowse, hacer que si un campo de un registro supera un valor
> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
> puedo enredar o existe algún ejemplo?
>
> Gracias
>
> Paco V
>
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Quisiera hacer lo siguiente:
>
> En un dBFBrowse, hacer que si un campo de un registro supera un valor
> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
> puedo enredar o existe algún ejemplo?
>
> Gracias
>
> Paco V
>
Color en Dbfbrowse
Te mando un ejemplo de lo que hace.
Paco V
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433c39e6$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio:
>
> He probado con diferentes condiciones, y siempre me hace lo mismo.
>
> Paco V
> ----- Original Message -----
> From: "Paco V." <paco-ssi@usuarios.retecal.es>
> Newsgroups: local.xailer.beta
> Sent: Wednesday, September 28, 2005 8:25 PM
> Subject: Color en Dbfbrowse
>
>
>> Quisiera hacer lo siguiente:
>>
>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>> puedo enredar o existe algún ejemplo?
>>
>> Gracias
>>
>> Paco V
>>
>
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Quisiera hacer lo siguiente:
>>
>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>> puedo enredar o existe algún ejemplo?
>>
>> Gracias
>>
>> Paco V
>>
>
>
Attached files INCIDEN.cdx (5 KB)Â INCIDEN.DBF (405 B)Â prueba.zip (1.7 KB)Â
Paco V
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433c39e6$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio:
>
> He probado con diferentes condiciones, y siempre me hace lo mismo.
>
> Paco V
> ----- Original Message -----
> From: "Paco V." <paco-ssi@usuarios.retecal.es>
> Newsgroups: local.xailer.beta
> Sent: Wednesday, September 28, 2005 8:25 PM
> Subject: Color en Dbfbrowse
>
>
>> Quisiera hacer lo siguiente:
>>
>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>> puedo enredar o existe algún ejemplo?
>>
>> Gracias
>>
>> Paco V
>>
>
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Quisiera hacer lo siguiente:
>>
>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>> puedo enredar o existe algún ejemplo?
>>
>> Gracias
>>
>> Paco V
>>
>
>
Attached files INCIDEN.cdx (5 KB)Â INCIDEN.DBF (405 B)Â prueba.zip (1.7 KB)Â
-
Pedro Amaro
- Mensajes: 157
- Registrado: Jue May 18, 2006 5:10 pm
Color en Dbfbrowse
He intentado probar el proyecto pero me da el siguiente error al linkar ...
FATAL: UNABLE TO OPEN FILE 'UUID.LIB'
he buscado la libreria y existe en la carpeta bcc55lib
Saludos
Pedro
FATAL: UNABLE TO OPEN FILE 'UUID.LIB'
he buscado la libreria y existe en la carpeta bcc55lib
Saludos
Pedro
-
ignacio
- Site Admin
- Mensajes: 9474
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Color en Dbfbrowse
Paco,
Ya se lo que te está pasando. Tienes que modificar también la propiedad
nClrAltPane igual que haces con nClrPane.
nClrPane pinta las lineas impares y la zona donde no hay datos
nClrAltPane pinta las lineas pares.
Un saludo,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433ceb7c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Te mando un ejemplo de lo que hace.
>
> Paco V
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:433c39e6$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Ignacio:
>>
>> He probado con diferentes condiciones, y siempre me hace lo mismo.
>>
>> Paco V
>> ----- Original Message -----
>> From: "Paco V." <paco-ssi@usuarios.retecal.es>
>> Newsgroups: local.xailer.beta
>> Sent: Wednesday, September 28, 2005 8:25 PM
>> Subject: Color en Dbfbrowse
>>
>>
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>>> puedo enredar o existe algún ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>>> puedo enredar o existe algún ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>
>
>
Ya se lo que te está pasando. Tienes que modificar también la propiedad
nClrAltPane igual que haces con nClrPane.
nClrPane pinta las lineas impares y la zona donde no hay datos
nClrAltPane pinta las lineas pares.
Un saludo,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433ceb7c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Te mando un ejemplo de lo que hace.
>
> Paco V
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:433c39e6$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Ignacio:
>>
>> He probado con diferentes condiciones, y siempre me hace lo mismo.
>>
>> Paco V
>> ----- Original Message -----
>> From: "Paco V." <paco-ssi@usuarios.retecal.es>
>> Newsgroups: local.xailer.beta
>> Sent: Wednesday, September 28, 2005 8:25 PM
>> Subject: Color en Dbfbrowse
>>
>>
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>>> puedo enredar o existe algún ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
>> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Quisiera hacer lo siguiente:
>>>
>>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>>> puedo enredar o existe algún ejemplo?
>>>
>>> Gracias
>>>
>>> Paco V
>>>
>>
>>
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
-
ignacio
- Site Admin
- Mensajes: 9474
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Color en Dbfbrowse
Pedro,
El problema es que el enlazador de Borland no es capaz de encontrar la
librería, y eso es debido por una mala configuración de los archivos CFG que
figuran en el directorio bcc55bin. Xailer construye automáticamente esos
archivos sino existen, pero si existen previamente no hace nada. Da la
sensación que los archivos existen pero están mal configurados.
Intenta borrar el archivo TLINK32.CFG que figura en dicho directorio o
cerciorate de que apunte al sitio correcto:
>>> /LC:Bcc55lib <<<
Un saludo,
"Pedro Amaro" <dospcserv@hotmail.com> escribió en el mensaje
news:433cf088$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> He intentado probar el proyecto pero me da el siguiente error al linkar
> ...
>
> FATAL: UNABLE TO OPEN FILE 'UUID.LIB'
>
> he buscado la libreria y existe en la carpeta bcc55lib
>
> Saludos
> Pedro
>
>
El problema es que el enlazador de Borland no es capaz de encontrar la
librería, y eso es debido por una mala configuración de los archivos CFG que
figuran en el directorio bcc55bin. Xailer construye automáticamente esos
archivos sino existen, pero si existen previamente no hace nada. Da la
sensación que los archivos existen pero están mal configurados.
Intenta borrar el archivo TLINK32.CFG que figura en dicho directorio o
cerciorate de que apunte al sitio correcto:
>>> /LC:Bcc55lib <<<
Un saludo,
"Pedro Amaro" <dospcserv@hotmail.com> escribió en el mensaje
news:433cf088$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> He intentado probar el proyecto pero me da el siguiente error al linkar
> ...
>
> FATAL: UNABLE TO OPEN FILE 'UUID.LIB'
>
> he buscado la libreria y existe en la carpeta bcc55lib
>
> Saludos
> Pedro
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
-
Pedro Amaro
- Mensajes: 157
- Registrado: Jue May 18, 2006 5:10 pm
Color en Dbfbrowse
Gracias, ese era el problema.
Color en Dbfbrowse
Ignacio:
Funciona Ok el pintar las lineas. Pero cuando pongo un formulario encima del
browse y lo muevo, me borra el color. !Curioso!
Preparare un ejemplo.
Paco V
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Quisiera hacer lo siguiente:
>
> En un dBFBrowse, hacer que si un campo de un registro supera un valor
> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
> puedo enredar o existe algún ejemplo?
>
> Gracias
>
> Paco V
>
Funciona Ok el pintar las lineas. Pero cuando pongo un formulario encima del
browse y lo muevo, me borra el color. !Curioso!
Preparare un ejemplo.
Paco V
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Quisiera hacer lo siguiente:
>
> En un dBFBrowse, hacer que si un campo de un registro supera un valor
> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
> puedo enredar o existe algún ejemplo?
>
> Gracias
>
> Paco V
>
-
Guest
Color en Dbfbrowse
Paco,
Por favor manda un ejemplo que lo muestre. Gracias.
Un saludo,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:[email=4342e80a@ozsrvnegro.ozlan.local...]4342e80a@ozsrvnegro.ozlan.local...[/email]
> Ignacio:
>
> Funciona Ok el pintar las lineas. Pero cuando pongo un formulario encima
> del browse y lo muevo, me borra el color. !Curioso!
>
> Preparare un ejemplo.
>
> Paco V
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Quisiera hacer lo siguiente:
>>
>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>> puedo enredar o existe algún ejemplo?
>>
>> Gracias
>>
>> Paco V
>>
>
>
Por favor manda un ejemplo que lo muestre. Gracias.
Un saludo,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:[email=4342e80a@ozsrvnegro.ozlan.local...]4342e80a@ozsrvnegro.ozlan.local...[/email]
> Ignacio:
>
> Funciona Ok el pintar las lineas. Pero cuando pongo un formulario encima
> del browse y lo muevo, me borra el color. !Curioso!
>
> Preparare un ejemplo.
>
> Paco V
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:433ae026$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Quisiera hacer lo siguiente:
>>
>> En un dBFBrowse, hacer que si un campo de un registro supera un valor
>> marcado, esa fila me aparezca en color rojo. ¿Es posible? ¿ Por donde
>> puedo enredar o existe algún ejemplo?
>>
>> Gracias
>>
>> Paco V
>>
>
>