Xailer & OZ Software

¿Se puede alinear el text una celda distintamente del alineamiento de la
columna.???
Lo que pretendo es alinear una columna dependiendo de un valor.
¿Cómo puedo acceder a una celda en concreto????
Sería posible...
::oBrw:aCols[1]:aFilas[n]: y aquí la propiedad que desee modificar...
nClrPane, nAlignment, etc...
Gracias.
Un Saludo,
Xevi

Xevi,
De forma sencilla se se pueden cambiar el propio texto, el color del mismo y
el color de fondo. Mira el evento TBrwColumn:OnDrawCell.
No lo he probado pero si cambias en dicho evento la propiedad
oColumn:nAlignment es posible que puedas cambiar la alineación, pero ten en
cuenta que entonces deberás de restaurarlo para las filas siguientes, y la
única forma de hacerlo es estableciendo siempre la alineación en dicho
evento.
Saludos,
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:4346b680$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> ¿Se puede alinear el text una celda distintamente del alineamiento de la
> columna.???
>
> Lo que pretendo es alinear una columna dependiendo de un valor.
>
> ¿Cómo puedo acceder a una celda en concreto????
> Sería posible...
> ::oBrw:aCols[1]:aFilas[n]: y aquí la propiedad que desee modificar...
> nClrPane, nAlignment, etc...
>
>
> Gracias.
>
>
> Un Saludo,
> Xevi
>
>

Ignacio
El resultado es el esperado... unas filas/Columna a la derecha/izquierda...
METHOD Browse2Column1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite ) CLASS TFrmKitsCitroen
oSender:nAlignment := If( Len( cText ) = 8, taRIGHT, taLEFT )
RETURN Nil
PERO...
el Scroll Vertical entra en un Bucle, que no para de "destellar".
Le he añadido el LogDebug(),
METHOD Browse2Column1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite ) CLASS TFrmKitsCitroen
oSender:nAlignment := If( Len( cText ) = 8, taRIGHT, taLEFT )
LogDebug( cText )
RETURN Nil
y efectivamente, muestra repetidamente un mensaje en el DeBugger
Alguna sugerencia para, terminar este bucle???
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje news:4346bbf7$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
> De forma sencilla se se pueden cambiar el propio texto, el color del mismo y
> el color de fondo. Mira el evento TBrwColumn:OnDrawCell.
>
> No lo he probado pero si cambias en dicho evento la propiedad
> oColumn:nAlignment es posible que puedas cambiar la alineación, pero ten en
> cuenta que entonces deberás de restaurarlo para las filas siguientes, y la
> única forma de hacerlo es estableciendo siempre la alineación en dicho
> evento.
>
> Saludos,
>
>
> "Xevi" <xevicomas@terra.es> escribió en el mensaje
> news:4346b680$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> ¿Se puede alinear el text una celda distintamente del alineamiento de la
>> columna.???
>>
>> Lo que pretendo es alinear una columna dependiendo de un valor.
>>
>> ¿Cómo puedo acceder a una celda en concreto????
>> Serí­a posible...
>> ::oBrw:aCols[1]:aFilas[n]: y aquí­ la propiedad que desee modificar...
>> nClrPane, nAlignment, etc...
>>
>>
>> Gracias.
>>
>>
>> Un Saludo,
>> Xevi
>>
>>
>
>
>
--

Puede deberse a un bug en la propiedad Alignment de la Celda????
Pues si cambio alguna otra propiedad si funciona correctamente...
METHOD Browse2Column1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite ) CLASS TFrmKitsCitroen
oSender:nClrPane := If( Len( cText ) = 8, clRed, clWindow )
RETURN Nil
Cambiar la fuente, también funciona correctamente...
METHOD Browse2Column1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite ) CLASS TFrmKitsCitroen
If Len( cText ) = 8
oSender:oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
Else
oSender:oFont := TFont():Create( "Arial", 8, 0, 800 )
EndIf
RETURN Nil
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:4346c4dc$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Ignacio
El resultado es el esperado... unas filas/Columna a la derecha/izquierda...
METHOD Browse2Column1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite ) CLASS TFrmKitsCitroen
oSender:nAlignment := If( Len( cText ) = 8, taRIGHT, taLEFT )
RETURN Nil
PERO...
el Scroll Vertical entra en un Bucle, que no para de "destellar".
Le he añadido el LogDebug(),
METHOD Browse2Column1DrawCell( oSender, cText, nClrText, nClrPane, lHighLite ) CLASS TFrmKitsCitroen
oSender:nAlignment := If( Len( cText ) = 8, taRIGHT, taLEFT )
LogDebug( cText )
RETURN Nil
y efectivamente, muestra repetidamente un mensaje en el DeBugger
Alguna sugerencia para, terminar este bucle???
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje news:4346bbf7$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
> De forma sencilla se se pueden cambiar el propio texto, el color del mismo y
> el color de fondo. Mira el evento TBrwColumn:OnDrawCell.
>
> No lo he probado pero si cambias en dicho evento la propiedad
> oColumn:nAlignment es posible que puedas cambiar la alineación, pero ten en
> cuenta que entonces deberás de restaurarlo para las filas siguientes, y la
> única forma de hacerlo es estableciendo siempre la alineación en dicho
> evento.
>
> Saludos,
>
>
> "Xevi" <xevicomas@terra.es> escribió en el mensaje
> news:4346b680$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> ¿Se puede alinear el text una celda distintamente del alineamiento de la
>> columna.???
>>
>> Lo que pretendo es alinear una columna dependiendo de un valor.
>>
>> ¿Cómo puedo acceder a una celda en concreto????
>> Serí­a posible...
>> ::oBrw:aCols[1]:aFilas[n]: y aquí­ la propiedad que desee modificar...
>> nClrPane, nAlignment, etc...
>>
>>
>> Gracias.
>>
>>
>> Un Saludo,
>> Xevi
>>
>>
>
>
>
--

This is a multi-part message in MIME format.
------=_NextPart_000_0030_01C5CBFA.214FD630
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0031_01C5CBFA.214FD630"
------=_NextPart_001_0031_01C5CBFA.214FD630
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi,
Puede deberse a un bug en la propiedad Alignment de la Celda????
No es exactamente un bug, pero es cierto que t=FA no tienes la culpa =
;-)
El problema es que al cambiar esa propiedad, se est=E1 forzando =
autom=E1ticamente un repintado del browse, lo que es l=F3gico en =
condiciones normales.
No obstante, aqu=ED tienes una peque=F1a correcci=F3n. Pero en vez de =
cambiar la propiedad usando:
oSender:nAlignment :=3D ...
deber=E1s usar:
oSender:SetAlignment( ..., .F. )
Por favor, pruebalo y dime si te funciona.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
------=_NextPart_001_0031_01C5CBFA.214FD630
Content-Type: text/html;
charset="iso-8859-1"
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=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Xevi,</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><FONT face=3DArial size=3D2>Puede deberse a un bug en la =
propiedad Alignment=20
de la Celda????</FONT></DIV></BLOCKQUOTE>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>No es exactamente un bug, =
pero es cierto=20
que t=FA no tienes la culpa </FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>El problema es que al cambiar =
esa=20
propiedad, se est=E1 forzando autom=E1ticamente un repintado del browse, =
lo que es=20
l=F3gico en condiciones normales.</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>No obstante, aqu=ED tienes =
una peque=F1a=20
correcci=F3n. Pero en vez de cambiar la propiedad usando:</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>ÂÂÂ =
oSender:nAlignment :=3D=20
....</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>deber=E1s usar:</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>ÂÂÂ =
oSender:SetAlignment(=20
...., .F. )</FONT></DIV>
<DIV dir=3Dltr>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV><FONT =
face=3DArial size=3D2>
<DIV dir=3Dltr>Por favor, pruebalo y dime si te funciona.</DIV>
<DIV dir=3Dltr>Â</DIV>
<DIV dir=3Dltr><BR>-- <BR>Un saludo,</DIV>
<DIV>Â</DIV>
<DIV dir=3Dltr>Jos=E9 F. Gim=E9nez</DIV>
<DIV dir=3Dltr></FONT>Â</DIV></BODY></HTML>
------=_NextPart_001_0031_01C5CBFA.214FD630--
------=_NextPart_000_0030_01C5CBFA.214FD630
Content-Type: application/x-zip-compressed;
name="BrwCol.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="BrwCol.zip"
UEsDBBQAAAAIACJaSDOEhiFTJR0AANdJAAAKAAAAQnJ3Q29sLm9iapRaDXRb 5Xn+7r2SLMnyb+zE
TmTi/EFCTLghCSSEP1mSbRFZEtaNYgeHG9lSbIsbydgK2JCGtE3UQNnKNjpo CwN2+Ckt5zBozyns
0JaunLYMtrIzWthZD9vOLAnO2ErPOCvdOMve7+9e3c9ymuUc577P+/+93/u9 97tOTnuRu3/urmDB
2DGJznUihNr6C3NGOp/pDW7f3rtnx54dO9G5NoQ+sPQ2Hh7ahc4pCH2I/nQv cupaeFRzBOOhMNCh
gBZw4L9cocGR+MGEQ+9PJhX4cemRWETT3fhvLEePNKDnIookI0It7Xc4KYVQ g5tQERfyeBH6ugu5
zivnZfTAa3KLPtSvDxyM6aOBYDSQTKJVnKHrwWhSTwRGAsOozcaMxJIaauas RDB+MKahdo7hESBW
Nb4Gw1pyLBmMR+MjyG9G7B85BKyDw+AjEInRNayuI+2Pj6Iukx+Mx7SReBT7 HACyjiTJJGZKWjA+
nIjHwsBr4rxAMhiIWTA8nNDGkI/DWCAWQo0cDQdGkVmoVCCqjSXC1uLgEUkm tZFIbNAqlDYSiCUH
4iPDlpdoOGbJR8KJaCQY0MKWPAbF6bC2Qx8Oxw72hwcjMSsU40a08LC1OsYM 2zIGq1YOBiLR6Eg4
WFOq4EgYQifj0Uiof+RgcsiKGwpHw1o43n8z1u+wLTEaH4SMo1Y2iXhSGw4n k4HBcM3CB0cioXAo
olkVC0SjUJ1hKyEtzsplNlHyYD+wkNc0wcGnJ/Q7jyfmCpPZ+fnk4vGJgjEP G0a44YXs5IliFqEH
1yEkmXlqoX6zbfxIlI7WSHdjKahInTW2A6Y4ukw8WivOYHE3iK0WM2Unl8ms Vn4IZE8MKxJCuYbp
9/YjNP03wJmGH5gG8OeLr7f++MEHc5Qz/bbPZPuAbfK1pvr88yvwzzbX5z/c Up+/prU+v3t9ff5P
V+A7e+vzgyvwIxvq8/9sBX7Pxvr8Eyvwv7MCv2Fzff7kCvyfr8D/5Zb6/OZL 6/MHVuA/swJf2Vqf
f8sKfOe2+vwPV+AvbF9hXVfU52+8sj7/P1fgv6LW57+5sz7/iqvq8w/V8tFj T0tLiiYvNWnyU+2p
zUvrgd4M9LbUlqVrgL4O6ADQcaA1oMeAngLaAPoOoO8F+gzQ9wH9MNCPAv0k 0C8A/V2gXwH6p0C/
BfTfAf1PQC8B/SHQvwX6M01+WkptKbdocrkD6G6gLwO6D+idQN8IdAjoCNCH gB4HOg10Aegi0ItA
fwnoB4D+I6AfB/opoJ8D+ntAvwr0j4D+OdDvAP0PQFeB/gjo3wB9XpMrDk1+ xpPaUlkDtB/oDUBf
CfRuoPcBPQh0FOhbgNaBzgA9A/RdQJ8E+vNAfwXoh4D+GtDPAv080C8C/UOg Xwf6DaDfBfpXQP8L
0L8G+hOgf5faUm3Q5KpPk59tAxrqX4X6Pwv1r0L9q1D/Z6H+6AmHA24mR2Dv 4FqC8HSGMYhygH+E
rD/5qyif/7lTwF8Q9O8T8IOC/tcF/KSg/6Igf5Xh3Sy/NwT9XzB5lMn/leEM w78R9P+XyU8yuWcX
fT7EcMcuu75fwH0CvlrANwg4LuBxwFB29DqLdwfDv2K4xPB1EsWPMnyG4Rd3 2evzfSb/hNn/gmEf
0/+YYYNhx26Kv8twF8Maw9sZfovhMMNLDOsMvypTfCfDm5n8gd329X6VyT9i +i8I8leY/HmW/5sM
P8D0/1HQLwv41wL+rYA/Y/76mL/mPfb6bdpD5UUm3yvIB5n8HSa/leFH2Xpn 99jjnRTwGQH/oYAf
Zv5CzP+3GX6K4b9iuIPhdxn+jMX/d4bHmVy52p5/h4C3XG2Pjx57TlpCMDbd mrTUCs9e+NmakpZU
eO5NyUs3wTMBP0fhZzqlLM3CcyHlWDoNzwfh55GUc+kJeH4T7P8Cnq/Bz8+A fhue78Hzn+H5Mfx8
qklliFOGOGWIU4Y4ZYhRBv9l8F8G/2XwXV4AOfgun4Mn+C8/Ak/wXwb/ZfBf fjnlKkOMMsQoQ4wy
xChDjPIH8IQ4ZYhTgTgViFOBOJUueEKsylZ4QrzKXnhCzMoQPCFuBeJWpoGG 2BWIW4G4FYhbgbgV
iFuBmBWIV4FYFYhTgTgViFP5NNVQhThViFOFONWulLsKcaoQpwpxqhCnCnGq EKMKMargvwr+q+C/
Cv6r4L8K/quwrirEqL4MT4hThXVVIVb1vZSnCvGqH6S8VYhX/TTVSEe2QxW2 8AYBxwQ8JrSALsiz
AjYEfELA9wq4JOCvCPhrAn5SwN8S8PcE/JqQ/08E/Kag/66A3xdwRcD/IeD/ FrD3GjvuFvAmAe8Q
8PUCHhLwiIAPCzgt4GkBzwp4QcBnBfxlAf+JgL9xjb2+jwvy5wT8koBfEfCP BfyWgH8p4CUh/keC
/BMBK3vtuFHAawW8WcBXCfhaAYcFHNtrz++wIM8K8oKA5wX9U3vpCHcoVO9+ Qf+hveLI3kZHNh/X
dFT7bKMaj2k+ovF45qMZj2VzJKea6EhONV9wJONxjEcxHsN4BOPxi0cvHrt4 FOJxi0ctHrN4xOLx
ao7WVIs5WvFYrTtSU614pJJxikcpHqN4hNYdn6k2Mj7J6Ey109GZWkVGJxmb MD7p2OzAY5OOTPc3
hBI+I+AXBPwDAf+1sCV/K8jfF/CHAv6dYO/aZ8ft+2gL+FkLrN9nt98q6O8S 5AEBDwv4NgEXBH/z
gvweAZ8R9P9AkD8kyJ8W8EuC/qsC/pmA3xbw+wL+NwH/l4Ad1woj4Vp7Pl2C fJOArxTwNQK+ScBh
AccFfKuAJwRsCHhewPcK+MsC/qqAHxfwcwJ+SajHDwT5G4L87wX5+wL+UMCf CPh/BOzZb8ddAt4m
4D0C7hfwsICT+8WRuXP5yMTjcijVuWxknkutZjfbNctvtqmu2hFKxicenV2p btv4HEqtNUfodGod
vdmm/Bc1St2pnhXH6e8bpbVjtCt1iTlK96bW1x2nfJTiMcpHKB6f5uj0HRZK mRbw7QIuCvhzAr5f
wA8L+M/321vvWwL+jqD/Q0H+EwG/AbgLnrsVipvk88W30ClZQlMSyrj9A6qE DDnjQ7km/Ntq8g9A
J47nkaFkck2jtRyfNCuPSEh1YMtZFFGdlHi4WzZcGY58UkIyGsDfYou/U3Vj pi4ZHmDMyvmGblmX
8g01Ocg4h+NWDqNiDo2akIEMhjI624PURmyeayyE0sX0wEzWyKBMRpc9Gfxn 1hspSThVmacq21KV
66UqXzBVBac6ZKbarIUmjtlzbR61sUi6CimYwrNQbFko9bJQLpiFA7LoeQdZ aYwuS2NZyRy0ZFtJ
yRxQsklSrlj6eBbloAtqiybjKCVFbSahFnU515CnxXVIyOOZdUVKjhqhlwqj 2bwldy6Xh7KTltyF
K+LgFXHYKuKoVxHHBSvixPvSbxakdvWkGqNCNZxkR5w8vtMW3ynGR49FUN3R WTs2F1K9bHRuMG+c
30xtJGPz5dQm/ksBOlJa8ZKcF1ySC2/y683WmkbFHQ4Wjs8W8tl8ka7JRXd4 P9lhF8r5jER6DqQD
BdBYIBs81k6uWGobRAbGrOwyjwm1cRWIdibn0ggBRjn3YJb6yLmTjMrk3Imw Tkls7mTmzelwZqYY
nZkvatmFInIg2ldjO2jYdggLUaWIugqoWZQJ+9vVDsQQlnQrGRecIXCeLM7N 5KewKxrCw0K0mCH6
CyfymWUxOuvFWH1xMRpZjMaBGaOYnQvfmTaWnY0mpuOeHMqmM9k5U8FY08xU mk2VgUKhWKvSxVVa
mIpnUisUjOLMrKXTzXVaTZ3EzGTxxNzyc9pmBSIJcwVjbXPOi/eKcpl2O/eX DxpzZH+MdZlxt09i
PnMeKAk0WGGOVmNVrX4inc8SfeeK+qt59fIBY2Yqfxw35iJdkx/WlGsopqPh AQ0tQv/n3MX0SGRw
SEPjMoaeYjoYjmnhETTuwngV1R0KB0LhES65CUvaayXMRS8TEEglJNJ4OxZ0 2ATcWT8LQ3Gt0Wpm
VCthgS7Fv3vyILzaNbzl8/3HZ5ctuOf3LNhBx0CHTHx1mZUDX8PpuamZPBr3 2ra6m6k05A/NZIrT
NI5xSbOxnrfLWn6E88nCnJlIL0lkYj4Wj4VpIr6J+UAS1hbC/9h9N+Y0TcyH wiZr/DzOTyGJrWM+
m/K02SPH01NZ7noDj+w3tWi/27Q2cq0epuXN4wOsLc6aKptojlkrR9dEdjCs 8ewwrfcf1LR4jLVL
M+VFI0kN/0eMcYX00ESWK+Ha5rwTWVPBidfkImu6hI9Hkge8tKagnOPnbdVe z1vfSM3Mz0wYWTY/
jc18NRvULVQjng/OZdPFLIyWnLuQzObxTJhVIqWNTKMtnh+cm8ngYCtobmKa zXFW5qAxM3k7VlvH
1PryA0Z6ar4vnyjMj5K/x4jlZsuSlv6iLbcwS188j69OF213KbNr4bmOXLTp ZZYpTfbiTbcy0yaa
7cUbbrM2gaYbmjAu2vhyy5gm/P8x3m6tFqe8gikdA111PfQxDw1x0qnYsptb ptLGiWyfMXwC3h1E
iA2uYAaNceykyI16BKNgOj+ZNbKZvvyB7CIx3GEZ9hfzZp7NNkOieaWlGZpL 3xXMGgbWvJxrTuL3
Sh9/wfTxN0efMTQzNR2dKVIvKvPihaORLeLyYCedghM6RrD+Tisq6NNsag0W RIOrrHMRnE7np7J0
aIKN36x9LHsX4fbl40aGyrHpbnL3vZpP5GUfFsalzfBRBG++GgEeCNdwiwvc q/fhS7GLOIIJwO8P
7gK/JngLfFLgAUwvytfW2DTkI5D7gnWL3s+E+JbtxJtuia5XL6Pdw4aOsbVZ l0+3Is+sI1K6gQmd
JJaxDUSEf6N6OTVKQoNMFtHYOvIdqW5Hah+5P6lXkMes5GIWAVKu/po8fPnQ zPyskV6Eq4GVToin
E8jkTsB9y9jBY4aZxJtIz+RpMxhXcuEAF4bn0vNZKlS5cJAJHf2FBWTs5Owh xvaYh8C4issi3J91
OzJ2ceHNXDhoCddy4QHuFYS0W+Dty2RRLkuasvVcNsxK6gsa2fQcczu2ntZ1 N1L3kIKSMeAnnyNX
AwMaxypxjG/KUDqfgVfRmIcYL3J5nMm9kXn+thprof6vIc654i1kr0ZYsi2k BNCq8Ykc3mtobKaX
ZBpNoGHdbOASR+WnZAcqpWrasoXMAnwGk8VFiG5u+iGm5MFtYdRMJVNjjFcu lD1GjY29PI3DTOYj
r0741piDhjL2cfGtXAxZmjcKuEsw8TjfTNw0bFOu5cIjTNiIhUNZmE2wvv1c eltNk7BDCpd7JtRr
O4ieW7jWM+FRJmwFoe1aCBdCppLmoUGFbxdcK5h0gknxlxa5xsEFjokmawz5 RwN8LDBppkZKPxLn
kXEdl2ZrOxsquXUbMq7nwmO2FVHhDVw4VdMttXdAuP0xjenafqq5/8HNj2rg L20X/9J22b60XfW+
9F11Posl+VhCOftt/NWu3oh0ZRY3thQpyepNgJbdRmalkH9TSVEDIBzrRAqc BgWp/Ug/r8tgLLvA
tlsuuTx4rCnkI3FLxAhm1BBinFl6hrAdfE+ed7t88qLbv6bUoIa5iq7gL2js x6sOEE6k5NMVnK10
LCGf/T5SB+GVwxPdgz8+caROSGwIMUykOBU1gnQ6BnqBbTp5A6k31zg5IDg5 IDiJEox/j0AK9i7A
jNvfsJCQQSyrwzhp4sqhxljKLiOeMRKZIx+DG5/cmXD4JL+31KBLCUf3npJX d4y3uoHReAq+tLs3
wwod472Y0XQKcu1eVWoGxk2Y0XIKbtgQZpUu95xEpU68QoUlu1q9BTGsO2iy 3Th5Ll+L5Qds8h4P
JKaOWBvig01tiahJi+NfBbd5zcJgBoab1IMEmzVEkpqyaljjVl7mVmZuFeZW Zm6htId4aalTn6RL
6ijhuf0tJU7jjoXijpnxXBcRbyO01eGaeCW3GL7RdM/C90jqrSs11/jy5qrp mwYst/eNN2P6vUJS
j6zk97blfnWz34j1figK7jdPQsL9hld+lGj4pM71Tl0a6NkglRynFIRI26lp Jgz5M5CXGWw3FGAC
qZM4nlkGuHxQdRtTPu1FCaV7E5xBsMhQBabHlJiKXGrGIbM8ZM88KrVYhdlf ajWOZXSFBT5gC0yN
bEzs1SeD38tL7aYhi59dFp9oyqXVVHOK5iCfdkFi8PWPb6bQsaSmfqgYGQOb 7Rt+hJV2gZbW47HK
1RZRZ/jWzOIx6ozokn8t7BjcJWQ1Z8n4tt1u9z0jEU1+QC7geWdJgSLCoJDg kDjY/YV16SpwbIgt
4rViKSTWSYm1BKxcxuWQxr1QHWgLPJrCEMGpHgeFoxI+xHLCgU9QPqPDWMrJ UeTEi3P4PaWGDD5q
5GhMm7k31TZss1oQs2mrPQjtWG4/CJ0XdVhX2w/rGvGwrqUraS+tIyuB94dC 3xOXWOfsCUmdXemc
3bHsnFl2z0vq3ErvgzuWvQ+wnYKOJaSzfymp8/iXvkcVaEhsWSTdCrfDnNzP b/dQbhheeIMVvPDe
khNvkKyeQOqdpg6uikzeJ24dXtBNbuL/TemUE061dC9cMVFJPuWGv7En9S5i Bf2yBbwtZEgWR2V0
1A3R+MvGpTuww+4bSh510S6Hpa0ueY27oQG4Kxy8o+TDPLmGB+f3HuDAdaKh 1K43LLb0/DEqrVJP
Wonf3eI/XOo45YJLcKfu0hs2+iNwIj8HRkdd5ISW1hinMrge2BOUgPC6cA2c 7HTjXyErZrXowXZ2
v9S9pbROVJOXqcml9bi2blzbDaVe9V6hrOppQg49i1U3sdvAVqe595/Yp6v6 ebMRHDrMV5/6BdoN
7gF/M5yiGEG4D9zqFylNJz3tCJcMb338qoSQ4y1kqZJxJpPG/3R4BPUeQW6f gttBV+Di0wqbdwYK
tUiqvxN2TBmX3f62UgNhj8uE3w0toYy7sLqH8O9mneITtqGt1ETtWolCW6mF wt5xBwnarp7lv8Yv
dZAuc5L7zCZZLdW87qEGX7JgCKaCQqYCvFzusd3lSFO4jXOZzEIGAjhKHtwF tAdmYEbVqOouKeGE
9O4jbycn3LHvz9jlPjmD3f9fI9f6I7dVxe94PLv27G6y2Wy2GbJplUDVtA3U oCAqqADH49kx9doj
z2yWlRZdPlhFqkYoQiBtVooUPsRVUiiFljctKZQ+eJRXeFPeb/gnkPjAH4FY fufca/t6Nh/4NPee
c+/1ed9z7bnnSXP5/ZDk/2aesB8O6OCFluu6q05x5Cqe1XsWPH4iXxWIQZ+s MkibmWxHxXHSy3zn
sdHc9UesXbvdEiOn6EhbqdtGFtxB0yEfA3vz3lOgAyF0oXDlAlxlH4EWVuyI XQsBUS7AtAg/JEgb
4qfthTs2dkHvU/z8OaJ85GIPfNrod4tjsotAvwIfcnbbrWNqCYqNsrvbWQZi bQbRcwnzxvX5SHag
22XEP2ef8fsW53HS7hPS5WXvxmxbzbYJfYbRDtBq9bMz+Hunn875gd5najIX Lc3Zfd4zDNJfJhzE
rHPTZ7GpSIfC+GfrKZfFart3rnhg+rlcz4FRLBYP6tFycbVdnJ9+PkejVTxE 6nDY5D5qqRTa1Sn0
F1hzV5wT93S9L3J7QHbnkt1ptT4BBX1J5DfEtYMD78vU8L2v0M9wNAdffIoH wSBdUhOa1/57AG13
1VDquNjUnqYOiVWFgfPLxeLV+YODYumq0yIbOKpGXKHMe1nDVqBaPatbHL/q MvCEAvLANQ076T0n
8r0bLfqu8LzIyXBBB/o3kX9cUfTZUBXZ37HiHgra7Q/aOn04631Vden4A195 kzu9hdCHSD4HCyAv
vFdJ47iWxv3eC2Wmf6F4wPsaHvhC+cDiQe/rwnuRKCQPXinOe9+o+iqff8j1 XqL++lk+or1MbX04
s+lE16LD2YkRWe1bCs97ReSPt3jpt3qvVu23Edz7Js2V3RYgvdPFBcLTDqJJ eTuNkTY13+F9C6hv
V6iHve8ANY+I4Uh370aH3uW9pkX4Tu+7tGxUvEta/fWl4hHve9wH6e9GwKYN 7D3T71NaAegHLARx
WKJ1swj2KLJzLH7dqr9WukVLBTG7zkVaOhc5fbLl/QBd+ij8QzohQyVkbbd5 yD4dRBzvRyK/Arre
8HEBC1MYitVHYGFA7RPvj8HANKZNkxYJs2sR6lEkURplO+snES70JFjcjxXH vfuK5XJMx1nvIaSV
02GC5SCrWPV+AqGRsGGEq5DnT3kO9de8NfR/VvXvwvkvb+5HBD6J836uBYCF LLJXiN1lSz3l/ZwR
M5nVPy3vF0aGdFxnSKdfEbr9BPbG29xigc2ZApvXGCUwxxCYW2JYYF1TYAsl igW2WAlsyRDYkXIM
C+xoLbDlWmA3ixX219tVds4R6D8WBRoVBjzYo2EhZj4w5/0S5rqnv3yz47ml sEDv65S4/IrtX+85
C8rNYHIBiK69cP1csYTzwwpo/rXhissg9TemayK5+q3Ic016z/tdua3le5Ri nmJ6XNLC6bw6IZ5p
UzLfomQ+QDK/iZzDOAdi87C835fa45P0i3VuDUpPQXd/ECaQRtLZqucg+UAL 218b2n5GgKc/lucq
qOJPaO/cza9Fp3/Op3/JIQwKQ9q1Flv0Tggs/5XGrarXp8YIxh79v94dLM+e B1b2WFsnFD1sl3e5
lIdZ19/bnv6N9h/Kn2ych/6eP95e6iIxoIQR+u0gqJ1B7oVB9r7sYENB+tJG +tW5ZtH28rLVWwPf
NmAuJa3g4xpyB6t8EWVdz9q0PAnG2ukJod6EvYa4STnKAWLu5dbch+c/9g8x J+bNq8oiCbdFeQHf
vHev7mmLoYHhy/f6zn2QopNtBZM0C/w4FsbVe/Ous/D7/VGWjsJssiMa15xF 41YzjdvciicR38Sf
GKPqZnm3Xg58uuRNH32pWIFIq2vf0qfr6WNzxEVQ2y8RqmNc78eS6sP/DHCQ ppNDwEmagsCRCaVC
AFFMQ80yA81pfhxtJJtUAKAJv7g5uiMKK21HKgxc6E+GM7O2o8OwcZpN7shV tEn34+/E2p0wJDIu
L9AEX4rG0cU4JA2Flw6zMYjCuK8v7ZMS8ey0IWNtSAaEdYWxURJHSQi9xpgM nEhhQfSEZJSOzQl+
/31b48aD66oN5rqZPw5ngfS/AHNiOmZGD3HBWgzi0M90O9WWIQeBhsSlKIy5 /XAwnuzEh/jTBSEa
Q0HZIfURcBjyP0aaFKkWxDBbdOJQrQmjxAQrCP4Kswph9Wmi/9YSxFHwqDBW VSUofHTHpAkWfqI1
BYZL1gN2sLoPUSjPSPVvBZCDpLbmSiiqtAVXtJAGfggAsHEW9jN/W2ThIAvH Q2EugfUaDjLbrXQh
6yYk1I/Go9jfYb5Abemysm4NEnYXqX4G5Y9STMkoViLOFTBlKZfiLxmmwhy1 RmW5QhIl/fD9og4M
lfXUVgZJQwIboZpRFvWQSbVU5b3i1r/blnh4g7DKZYE1PThNiGkyeU2ytqVE /6Y8jAKhCEZRMNnK
QmEWDeH5oGArFHXZEKoWktCi5J5jgVUzP5iwr9a1Q0p+oZZNP6NSIRtldEpI q0SMNgLDHajQiJzB
wxIDhAByyhhbSUpOMIz4T0qNUiRmBZKNMGFEnMKufa11YZQjGQ/T7VE62hoR ABRVdiGSLN3uR5ew
ZWTq+QmgDQBVMMGuxyEpCeJs5IPzqpJJqsqWHKpj0ihfklTBNE6TKubQoxHt yEggjW2tI6Vt3ZEs
iE2qvyMTIkJJj9yTl2iUQ0lJSRyA4et1O9ZjGQSzE0q2ILifJvGOMDdDqZQv K+sot9AEBg5D2CB9
8maq2rRx0USMqPxOBXDKAjgkBVtjYdZnkfUGXVdoGdQSkknNck2kDGBVqWhu 9TPbOqxXr1eFLmNZ
U/JGUzGsjE5sjfo8rxIVmSZbuixjQcpCvbiT+Jv0gIbMK+8r68xU5WWk4Vm6 wow/Eee4btJ44k+i
YHy/0DWYLn/kQ8jYbnXpT658m1+I5zriX9akJZ6kP7v+D1BLAQIWCxQAAAAI ACJaSDOEhiFTJR0A
ANdJAAAKAAAAAAAAAAAAIACAgQAAAABCcndDb2wub2JqUEsFBgAAAAABAAEA OAAAAE0dAAAAAA==
------=_NextPart_000_0030_01C5CBFA.214FD630--

Attached files BrwCol.zip (7.4 KB)Â

This is a multi-part message in MIME format.
------=_NextPart_000_001A_01C5CC0C.091D82D0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_001B_01C5CC0C.091D82D0"
------=_NextPart_001_001B_01C5CC0C.091D82D0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Jose,
If( Val( cText ) < 2, oSender:SetAlignment( taRIGHT, .T. ), =
oSender:SetAlignment( taLEFT, .T. ) )
No me funciona... el mismo bucle repetitivo!!!
Aunque le saque la lVScroll, siempre hace un repintado del Browse... se =
nota como pinta TODAS las celdas.
Te adjunto un sample por si te puede ayudar a localizar el bucle =
repetitivo.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribi=F3 en el =
mensaje news:[email=43478f2d@ozsrvnegro.ozlan.local...]43478f2d@ozsrvnegro.ozlan.local...[/email]
Xevi,
Puede deberse a un bug en la propiedad Alignment de la Celda????
No es exactamente un bug, pero es cierto que t=FA no tienes la culpa =
;-)
El problema es que al cambiar esa propiedad, se est=E1 forzando =
autom=E1ticamente un repintado del browse, lo que es l=F3gico en =
condiciones normales.
No obstante, aqu=ED tienes una peque=F1a correcci=F3n. Pero en vez de =
cambiar la propiedad usando:
oSender:nAlignment :=3D ...
deber=E1s usar:
oSender:SetAlignment( ..., .F. )
Por favor, pruebalo y dime si te funciona.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
------=_NextPart_001_001B_01C5CC0C.091D82D0
Content-Type: text/html;
charset="iso-8859-1"
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=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Jose,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ If( Val( cText ) < 2,=20
oSender:SetAlignment( taRIGHT, .T. ), oSender:SetAlignment( taLEFT, .T. =
)=20
)<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>No me funciona... el mismo bucle=20
repetitivo!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><FONT face=3DArial size=3D2>Aunque le =
saque la=20
lVScroll, siempre hace un repintado del Browse... se nota como pinta =
TODAS las=20
celdas.</FONT></DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<DIV>Te adjunto un sample por si te puede ayudar a localizar el bucle=20
repetitivo.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></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>
<DIV><FONT face=3DArial size=3D2>Â</DIV></FONT>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Jose F. Gimenez" <jfgimenez@wanadoo.es> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:43478f2d@ozsrvnegro.ozlan.local">news:43478f2d@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Xevi,</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><FONT face=3DArial size=3D2>Puede deberse a un bug en la =
propiedad=20
Alignment de la Celda????</FONT></DIV></BLOCKQUOTE>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>No es exactamente un bug, =
pero es cierto=20
que t=FA no tienes la culpa </FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>El problema es que al =
cambiar esa=20
propiedad, se est=E1 forzando autom=E1ticamente un repintado del =
browse, lo que es=20
l=F3gico en condiciones normales.</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>No obstante, aqu=ED tienes =
una peque=F1a=20
correcci=F3n. Pero en vez de cambiar la propiedad usando:</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>ÂÂÂ =
oSender:nAlignment :=3D=20
...</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>deber=E1s =
usar:</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>ÂÂÂ =
oSender:SetAlignment(=20
..., .F. )</FONT></DIV>
<DIV dir=3Dltr>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV><FONT =
face=3DArial=20
size=3D2>
<DIV dir=3Dltr>Por favor, pruebalo y dime si te funciona.</DIV>
<DIV dir=3Dltr>Â</DIV>
<DIV dir=3Dltr><BR>-- <BR>Un saludo,</DIV>
<DIV>Â</DIV>
<DIV dir=3Dltr>Jos=E9 F. Gim=E9nez</DIV>
<DIV dir=3Dltr></FONT>Â</DIV></BLOCKQUOTE></BODY></HTML >
------=_NextPart_001_001B_01C5CC0C.091D82D0--
------=_NextPart_000_001A_01C5CC0C.091D82D0
Content-Type: application/x-zip-compressed;
name="PruebaBucleOnDrawCell.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="PruebaBucleOnDrawCell.zip"
UEsDBBQAAgAIAJJqSDNnBY2ueQEAAHkCAAAZAAAAUHJ1ZWJhQnVjbGVPbkRy YXdDZWxsLnhwanVR
QU7DMBC8R8pXIgpnS9CkFUENiZIIkICD425bg2Nba7ulv2edAOIAJ8/sjsfr 2eemre9Wef+aJv3Z
AoMPSJMCnEBpvTSaNRhg4MsgFNS6QH7KQak0qYO3wf/dzSaT3IxWKkD2cctx MAHTpOJSV2YbFLC1
wXGRWdxTNSgvrYJSO8+1AMeyPkuTp6biWu7A+ZmXgqZJk4YjH8EDOiL1qmLZ mpoPxOO0i+wiTVpQ
wB0wgssg1TaCOA3XZ3bdmZ2P1J5buT94MumRb6Hi+B4dSTeC9hE+101f1vcd RXMTvBm5l6KC8cix
AKFojCmf6fkChrAv9c7MtAvWIji3kRruwzgAxh6Ov258S7qDQS+C91Lv584j R62JbeAIii0oH4NQ
T8uIU1XcrinWWZtTzSigTL8KUUuvvpM+/qAoW9pt3Zar+IuOliCgkMhmRJlq ocJ2Kn3BmJ770X1j
Snp4iwU6yHZdbibDxT/7n9Z6+XvHV/HmyxJPuVGZiSafUEsDBBQAAgAIAJJq SDNIdWJj2QAAAFAB
AAAgAAAAU291cmNlL1BydWViYUJ1Y2xlT25EcmF3Q2VsbC5wcmd1j0FLxEAM he+F/odQL+0etl1B
kAEPq8veVmXdg9eYBhsYZ0qcofi79w84M3oQ0UsIj++9l/QrqCtYwaP6D6bg Tdoiv+BtJMsPbqe4
3LG1hdkLTaz/IetZXwu243dSmUnOzsDhPEbrYWRgFxRHBASbxmyFMCPFso3B q/kqYZrQwHDdb4b+
chiustrXVV1diCMbU1LzjGJZ1zQ1WU+nE49RGQ4oru2yBgDbuXQE8c7QSYJl MDfQ/Hl7Uxynvde3
TduZe17an37ozNPklxz9K/gYvwuPHKKmZz4BUEsDBBQAAgAIABlrSDPK72KJ rAEAAIwEAAAQAAAA
U291cmNlL0Zvcm0xLnByZ72Sz27bMAzG7wHyDoR3cQsvjgsUGLzu4PrPEiCx g8QbduVkNhGgSJ1q
o+2GPnVfYJKctCmGYhvaTSf600fS/FHh8XAAx7DQ6pZYq2ITdfQVzzsmqJKZ xuuUhHCegrMNaWMp
lN5Go0u9dnJGV0zzS8bvZeyEpGuV7sOC2AZjGL8Lo3F4Mh6fWjUcDoaDN1wy 0TUE3hfkgvSIbTyr
p7NktYLatYBiWc372F4BQFrNF1WZlzWoRGu8Pdfq+oqi3e08rydVBqkmbMlm +UeH+mFG7/FBrUg2
pOF5oxLdVkZ7EA8ZAbCabtoAZCr0Y7RASQGICV9vZrwlW3c4yMvMjfV07p7i zcXWzR2Gb1/12Jp/
MjccAncQhGIoQO6YGh1k/CGCWsGpU8xJsGl8iOMnS4jRfWXYYgA/QAYwvfBB np0E4Bl0DULPEiGC
RHBJaCQEgWB+xL4TL3i/b/C35zcNpt+/dZx0g54Z+G637NIszQ65zOtPyxJK Lv7nHl74rH5dm4X9
GU0lV8A4zsCQ35WNV9QaJGu5Jdn60OJy+nFSBzCqR3D0vGuWF3uThfavSf0E UEsDBBQAAgAIABlr
SDPbM2z+VwEAAJEDAAAQAAAAU291cmNlL0Zvcm0xLnhmba1STW+CMBi+m/gf 3nDCxAMwcEqygyCG
LVMS2s3syLBOEmyXgmH796OlYt2yxCy7NPC8fZ8vWEU4ThYQcpLVZMn4wRxB +DhHCLB4s4eD4QAA
0PGdcF+/JWHfR6QO2JFuKxMcxxqDLQ5PHO7MgdOtHJOPGvw7MCSpoWC2ZFTC WDyYIyVggrFCgDJa
ASK82BljmI5BUFpWT0nDsiC03hTbei8oPNu5nMSkeNtLdtebqpHiH6lUm3sc QxI8RCEWbuacZ58B
Z01FbOlKA1pza9KYraFypzwIRj1+63Hitia91unNrXW+pcvggDchK48HemL8 LtyvCf48JtmWcFld
t6bKU3Pa55+5Op7QBc+akJSlXNUFFM1pfkF37qcDovVCVfXfMZxfYjjTyZ8N pSRvP89VhjRB92o9
v3xGOWddp6/VS4T6SUK7zZ9tS7gPeymg2NMIP6Vr+WsNB19QSwMEFAACAAgA IFpIM4SGIVMcHQAA
10kAAA4AAABPYmovQnJ3Q29sLm9iapVcDXQc1XV+M/ujXWn1Y1myJVvC/8EG A2OwwWBCWO2upA2r
3c3uam0RkbHsXdtSxitFkkFywDgtngChCUlIyR8NtCSEJG0aQpvQkr+GJqHQ Nj1Nm/S0J21PLSmc
pm16ymnTNqfud99787NPK+r6HHnud+99995333133qy0c76ZRQZm70lMW9ce Zw92M8bWDUzPWhO1
ytbE1VdvPXDtgWv3sQfXMfYTT2/7ncM3sAcDjL3GfvUgC5ml1JFSMJFLpkAn 46V4kP4LJ4cKudF8
0BwoFgP4CZvpbLpkRuh/krOPNrFn0wFNZ5y6eCgYEhRjTRFOpcMs2szYx8Ms fClwSWePfFNvN4cH
zMHRrHkknsjEi0W23mGYZiJTNPPxQnyEratjprPFEmtzWPlEbjRbYp0OxiXO R/lsDaVKxbFiIpfJ
FVif63GgcBis0RHYiKezYg4bGkgHckdYj8tP5LKlQi5DNgdBNpAUpcQNqZTI jeRz2RR4rQ4vXkzE
sx5MjeRLYyzmwGw8m2QtDhqJH2FuosrxTGksn/Imh0u6WCwV0tkhL1GlQjxb HMwVRjwrmVTWkxdS
+Uw6ES+lPHkWyenylsMcSWVHB1JD6aznSnLTpdSINzvJTNVFjFEdDhhMZzKF VMKXqkQhBdfFXCad
HCiMFoc9v8lUJlVK5QbeSvpddVPM5IYQccaLJp8rlkZSxWJ8KOWb+FAhnUwl 0yUvY/FMBtkZ8QIq
5WS63CIqjg6AxZrdIeT81DHz7tP52enj1bm54uLpY9PWHBaMc1ML1eNn5quM PbqZMc2Ns5QccMum
j6nSIz7pfpJCRev2jR10xZlV4iN+cYXEvRB7JebK7l0l80r5McieHAlojE01 nfrRIcZO/TE4p/CD
boB/v/xSx7cffXRKcE59P+ayY2C7/FJrY/6lNfgX2hrzH29vzN/Y0Zjfu6Ux /7tr8ENbG/MTa/DT
2xrzf20Nfv/2xvwza/C/vAa/aWdj/vE1+H+6Bv8vdzXmt72pMX9wDf5n1uAH djfmv20NfmhPY/5r
a/AXrl5jXtc05m+/rjH/39bgv2A05r+yrzH/musb8w/7+eyJT2sXAyX9YmtJ f7qzvPPiFtA7Qe8p
77p4E+hbQcdB50CXQI+BPgnaAv0u0PeDfgD0Q6AfB/1J0E+B/iLo50G/APq7 oF8F/Weg/xb0RdCv
gf4P0L8o6Z/WyruW2kv6UhfoXtBXgt4Leh/ot4BOgk6DPgx6HPQE6GnQ86AX Qb8X9COgPwj6U6Cf
Bv0s6K+AfhH0t0D/KegfgP4r0Cugfwr6X0FfKunLwZL+mWh51/JG0H2gt4G+ DvR+0DeDHgKdAf02
0CboCuhJ0PeAvhf0e0B/APRjoD8G+hnQXwD9JdDfAP0S6JdB/xD034D+e9D/ Avp10P9Z3rXSVNJX
YiX9mXWgkf8V5P8Z5H8F+V9B/p9B/tmTwSBOJndh7XAsYdSd0QbZFPC3mPev dr3gO//uVvAvKfoP
KfhRRf/jCn5K0f+SIn9R4v0yvpcV/b+Q8oyU/4PEFYn/VdH/Hym/V8qjN4jr YxJ33VCv36fgvQq+
UcG3KTin4HFgpJ29JP29S+K/kdiW+FZN4E9K/IDEX7qhPj9fk/LX5fi/kDgm 9X8msSVxcL/Az0vc
I3FJ4qslflXilMQXJTYlflEX+G6Jd0r5I/vr5/sRKf+p1P+iIn9Byr8g439F 4kek/l8r+ksK/hcF
/4eCfyHt7ZX22g7U52/HASGfl/KDinxIyn8g5W+X+JNyvjMH6v3dq+AHFPx+ BT8u7SWl/c9L/LTE
fyBxl8Q/lPgX0v8/STwu5YEb6+PvUvCuG+v9syee1S4ytM1ISbvYgetW/Owu axcNXA+W9Yu345rH
z1H8nCoHLs7gulAOXjyP66P4+Wg5dPFJXD+L8b+N6zfx8z3Q38f1R7j+Ha4/ w8/PS9oS/CzBzxL8
LMHPEnwswf4S7C/B/hJsLy1ADttLD+IK+0sfxRX2l2B/CfaXvloOL8HHEnws wccSfCzBx9JPcIWf
JfhZhp9l+FmGn+UeXOFreTeu8Ld8EFf4XB7GFX6X4Xf5FGj4XobfZfhdht9l +F2G32X4XIa/Zfha
hp9l+FmGn+Wfl5tW4GcFflbgZ6WnHFmBnxX4WYGfFfhZgZ8V+FiBjxXYX4H9 Fdhfgf0V2F+B/RXM
awU+Vr6KK/ysYF4r8LXyo3J0Bf5WflJuXoG/lZ+XW0TLDhrKEt6m4KyCx5QS MBV5VcGWgs8o+H4F
2wr+gII/puCnFPw5BX9Fwd9U4v+Ogl9R9H+o4B8reFnB/6zg/1Jw8031uFfB OxR8rYLfrOBhBRcU
fKeCJxR8SsEzCl5Q8AUFv0/BH1bwJ26qz++nFPmzCn5OwS8o+NsKflXBf6ng i4r/nyry1xUcOFiP
WxS8ScE7FXy9gm9RcErB2YP18d2pyKuKfFrBc4r+uYOihQcDQu9hRf+xg2rL 3iNattOuRauO1bVq
atNOi6b27LRmastuSy63ipZcbnvDlkztmFoxtWFqwdR+qfVS26VWSO2WWi21 WWqx1F7d1lpud1sr
tdWGLbXcQS2Vt1NqpdRGqYU2bJ/ldbx98tZZ7hSts7yet07eNtE+RdvsorYp WmbkE0oKP6PgLyr4
6wr+I2VJ/kSR/1jBryn4P5Xx4ZvrcefNogT6ZAlsubl+/G5F/wZFHlfwiILf oeBpxd6cIn+3gh9Q
9H9FkT+myD+t4OcU/RcV/D0Ff1/BP1bwPyr43xUcvEVpCbfUx9OjyHco+DoF 36Tg2xWcUnBOwW9X
8DEFWwqeU/D9Cn6fgj+i4E8p+FkFP6fk4+uK/GVF/ueK/McKfk3Bryv4vxUc PVSPexS8R8EHFDyg
4BEFFw+pLXPf6pZJ7XK43L2qZT5Y3iBPthtXn2zLPf4Wytsntc6ecm9d+xwu b3Jb6KnyZnGyLfdd
ViuNlPvXbKf/Vyv1t9Ge8hVuKz1Y3tKwnTqtlNqo00KpfbqtM3anksoJBb9T wfMKvk/BDyv4cQX/
+qH60vucgr+s6H9DkX9HwS8D99AHCAGBW/VL86+yc7rGTmqsEukbNDRm6ZUY m2qlT6v5L4DOnK4x
K1CZaj3i58S0Gb2gMSNII2dY2ggJ4vFe3QpXHBTT8prVBHuL7X3dRoSYpmZF wZjRa029uqnVmnwx
6BTDaS+GI2oMLSUlAh0DdXahnxktNHyqZTo5MT8xOFm1KqxSMfVohf7NNKdt jULVnVD1ulD1RqHq
bxhqgEIddkNtKyWPnaiPte1IHYuHG+AJCzhRBOqiCDSKIvCGUQQRRf8PmBfG kVVhrEpZUKRsN09Z
ECk7ztOVnThdZVOoAn/SdPJiB4w27mrR1KeaaiK5QY1FozPhtB30CZuFMFOt efLQanmyetyThykj
QScjwbqMBBtlJPiGGQnRugy4CfHPnmfjiJKNEF+RkOM/VOc/pPpnT6RZw9bp b5sL5a2ydW5zT5yf
LW/nbfOr5R3OhwKipXTQlEJvOKUwLfJLbd6cjqgrnJg+PTNdq9bmxZzCYoUP 8RUOs6mYlZ+YhXRw
GhoLfIHHOvkRy1gHz2DM6GF3m4gx4WmuXZkKlziBQVORoaqwMRUpSqoyFcmn TEHS8JAc3jaRqkzO
Zybn5kvVhXkWZKKuxq4VbjvhFl61tLEe1AyrpPo6jS4mEUl6A5Uw9hCMF+dn J2snyZRwEZUu2l0X
A9NnapVVProb+dhweT5apI+WwUlrvjqbunvCWrU3WqVO5PhwdaJSnXUVrI1t UqXNVRmcnp73q/Q4
Ku1SJXq8ND1tzU/OeDq9jk6Hq5OfPD5/Znb1Pl3nOeIBOwrWprapZlorwZXa nY69WsKa5etjba6M
R2KatDkVRUpQYNOzIhvr/fr5iVqV64fW1N/gZK8WtyZP1k5TYS6KOfVhTlNN 8xOZ1GCJLaL+pyLz
E4X00HCJjesEo/MTiVS2lCqw8TDh9UJ3OBVPpgqO5HaSdPol0sRWKeBQSLin 8U4SdNUJHGMD0o3A
/kEb5CC/RDp6E332FGU0241OydcGTs+smnD//zHhoGgDXTq31eNmDrZGJmZP TtbYeHPdUvdKlaba
4cnK/Cnhx7qizdrilMsmZwvXitOzbiBbeSDH5rK5bEoEEjs2Fy9ibkn6ZfdZ 4rQem0umXNb4JYov
wAPbLG221kSxp09PnKw6prc5nvtcLVHvdVrbHa1+qdVcow1cWpxxVXaIGKte jOFj1aFUyYmOaHNg
tFTKZWW5tAleJl0s0R9ijAd4DR2rOkqU26nmY1VXIURzCvM5XeG0Rx4Hblon kc7xS3XZ3uKUvlWe
nJs8ZlVl/7R2OrPZZuwSGrlaYrY6MV9Fa5mKTBerNeoJM4G0vV1qrMvVhmYn K+RsDc0dUrMtJ9Oc
sCaPv5PUNku1vbVBa+Lk3N5afnruCP9/jI/c6Y0Uqb/skbvkyFiuRkenyx73 Jjmu3Ym1cNlDr/SG
imAvf+huObRVRHv5A/d4iyDCTR6zLnvwVd5gEfD/Z/DV3mwp5DWGijbQ09DC XmmhKccrlUb2OiPL
E9aZ6l5r5AzuHVxIA66RA1pyZGTeGdSvDEpM1I5XrWplb+2O6iIfeK03cGC+ 5sbZVjeQa17naSZn
J+5JVC2LNK9yNI/TfWWvc4PZ69w59lrDkydPZSbnhRVDWmnG1qjOU3rISLdi RLQR0t/neYW+iMY/
YEEdcL23LxKnJmonq6JpYkyfm/ts9R7O3VvLWRUhp6H7+dn3Rqcjr3qwsN7U hoci3Pl8AmoINzkj
3uBcfTMdisPcEDqAc36ITDvHhOZpp1NQAxYH5Vt8Y5pqacS+4J2iD0khnbJD tOie6M3GlaJ6ZNOx
dreZ+vkOFp0Jpu3bpDDEfVl7IOL8txhXiUFFFMjxeTa2mT9HGlczYy8/PxnX 8MuMFpYj4jxdA744
YrXk5NyMNbGIo4EXTtIJJ16ZOoPzlnWt4zMlJc35icmaKAbrOkc46AhTsxNz VSE0HOGQFAYHpheY
tc9hD0t21N0E1vWOLO3Y805H1g2O8K2OcMgTbnKEdzhWIRTVgruvlGUcWdGV bXFkIzKlsYRVnZiV
Zse2iLzuZ8YBnlDeBvr448iNYKBwvBRnnUUZnqhVcCsai/LBi448J+XN6Tnn bjXWLuzfxI07im/j
a1WQwbbzFKBUc8emaK1R2FKvKDVaoeGdbHCIE/JzepDZZV9ZtvNeQHuwOL8I 7+6iH5ZKUSoLy9eV
XI0xJ3PJ6gkx2DrohHGnlMX4rRPPGrMoKOtmR/x2R4wo3RMFzhJSPO4sJhWN XJRbHOFdUthCwuEq
ehPmd8iRvsNXJHKT4nAvhaa/gsS+xbFeCo9KYQeEdcdCHAilyoTjGirOcuFY IaXHpJSetPgxDgc4
KTruG+g8NOBhQUorPql4SJxj1q2OtOqvbGRy9x5mvdkRnqibkRDe5ghP+qrF fwbE6U9qnPLXk+/8
h5Of0KAn7bDzpB2ue9ION3rSDzd4LNb0E/nAhc/TU7vxFmYGZqiwtbStG7cD rTqNzGjJvh12wIhD
ONbNAtgNAWYMMPOSqWOwHsbYXt0OR6mtBfhD4q60lagYSSY5M2IP0Tg8T16K hGP6YqRvo91kpBwV
M0BP0GSn2RjknLQdMwMUrXYir1/4GjOGcMtxAj1AD5/kqRuBDTOJuZRCMdLM FG1gK9iukZeZ8Vaf
kTsUI3coRjIc0+cIPGE/BKxE+poW8jrEujFCQXNTQSMrQw5buYqVr9z1M5iJ 6d35YEzra7abTC0f
7D1gN5vB8Y4IGC3n8KTduxMzDI5vJUbrOcTau95uA+N2YrSfwwkbbtabev+9 zO6mGQZksBuMtzGJ
zaAItpeCd+SbSH5Hnbw/isCMgrcgMSxqe9ooepy+9TjNlzyMYRi4wxjl2M0h 04yyl0OfWX2VWV2a
DUizujSL1B52UiuMxjRTM45wXqSv3XZoqlgkd8z1F74Mf9tRVnf6/NkR1X2L a16679eMt69VXOOr
i8tXN00kr6+b5opr9xrNuGstu+9Ybdd0642PPoSkUL1F8xrVG838KNeIad1b QqY22L9Ns4PnAozx
sjMmpDDZV0FcrrP9SMAxZhwnf24acPgQ6nVM/Xwzywd6d2APYkRFKEg9qSRV dLuNXFYdl/1zzG73
EnPI7rBOVMyAdHxHnWMxqI5JVmM67F5ld7oDpf/qKv9cU7c3CM2TIgb9fBiB 4emfTqaoWJ7TPmSM
t4Gd9Qt+l0ztgkhtNOqla13amHSWZobaaChtan2bsGI4S+jGlCdzlu2d9bYn Na7pbJA3sLzPDiCJ
aBQaNklQnl9kla6HYUstkWbPV4D7uleTJYGZ65QObbwZ2UFZUGtKwUPIOA2F oxptYj0fpB1Uq5ho
S1N6hoVocsG+qN1Uoa3Gt8YpN/ZWf8G2GdNqNOv8G6GT5PUbofuyNuuG+s26 Ud2sm8RMOu3NfCa4
fwTEfeIKb589qRkza+2zd63aZ964L2jG7Fr3g3etuh/QuAA7kdcu/J5mzNGH vkcDKEgaOc+rFafD
KX3AOd0j3WhetMABmvhWO0QLpBtnmHG3q0NZ0fn9JGLiBt0a4fZf0c6FsKu1 +3HEZLZ+LoL/yZJx
Dx+FetkFawsVHsVRnR2NwJtzswmbQTLYe5sdNRbr5ZjaBrvZOosCcEyR8y47 Rjzdx8P+fTc4OE40
2Z1m02J7/4eYvd641wv8bHvfnXbXuTAOwd1m2Gza3pfGjrwPg46G+Q61N1rn KpQPsoQUcF4P5SAk
dzd9hBxwsyU2dqj3ud5d9mZVTV+lpttbKLcRyu02e6txv5JW4zwnh58h1R3y NLA75K796/Xd1XiP
WwhBE/01ZvySqIbIYF8bdlGWI6qDiPHLghadXlREWMddn26VcDnezqeqWQ9U JuhXh3exrXexSCxA
5WAGcPDpwOI9gEQt8uzvw4oFxvVI3zq7ibPHdc7vRUkExsOkHuX8s7JSYsoy rLNbxbgOrrDObhdw
63iQO+00Ljgf49tdvMpC/DyzQzds3+0eOXivB5PoCgHeFXBzeXfdWY4XRcR6 sFJZqMBB0I5SFYga
mESP8qmaYS0fQngP8btTCGfshyv18pheIfPv85s/m6L8X8MHnE0N0oMXqGg0 2hWx2+6Dr97HMMdH
Kl0MPehX3BNkkE8ykLbX07o0hU7kwxdu1ceDAY3lI3bIDIrlDuIUHAIZoT2G 6TUZ70ccaKEtdtRs
wVY5i0aLKo6wcR0N0WxBaZF8mDgBpJ9uLxwEcRc0PsD9hynyfBT3wEd9uNle Zzaj0XdiD0XGA9o6
YYJ6o9k8HuqAYIMi6I2SZEdfU9oMYW070P8iZ7n8rM7PcWYwScIoN3sFRgfF 6CCJt3FxBGJhfbsi
32V9sMIdGh/ywozpcmZXGh/mLPmbiQh61m7rMdxUzAi18Y94Q2ZYV6B3t32V 9asVOQZFEbOvltpm
rCtg77Uer4DQ7OtoOSK85OZ1cYSOyiP0R/nKLUa6tzQbH+P0INVdlOpOLut7 sUAfZ5WH2PlLl4xP
EBE3PkmX4XwYe/H9XAkFGaVlAnn+fy5htZuFKoEobmqPEqC0ijawt8OO3dd0 6ZLdel9EoxpoFxqL
dPLukLxOLK0c1Wyvvy/Kmd2CyRU3SF6P8QSrLDyk0e8Vfo1VqHARB/DDOH8s iviCWCqqv3X2Fmra
gaNBeXzYbnxKQHr8wV7ZGbWeROtDJw+jAmgX7hLZWC+zscd4yjnp77evMn4d Dp9yHNpXG7/BjKcp
QtrBnfZe49MuFuf566LGZwj3beePaM8QLR/OgvREp9HDWXeeqvZa2zA+yypT Gje9z3jWpa8nvvE5
Gms2a+D09tv7SU53EBnKAdIxg0TeZHweoi+4ooPGb0LUhI4RMaMLD4Xos7zf kim8xfgimU3bh0w9
2ddq32r8NscI/TY0bLqBvcX6Eh0rwL1LRxNHJeoP24kF6uy8F39N935bGbU1 0cSC3llEk2eR/h7N
eA6Qfin8ZXpCxpJQtT3PVc7Sg0jE+B1WWURcm97DUGFCQr26DRUG0Vma+wkU mJQEaFCMJOM6ie7A
IUqKgpG+HrQLOQgV97tixr1X2h2OTijS14uW5gxHCTpKut1lfAVJo2SjCLuQ z6/yMYQ3GBuAX3Dx
Rjz/VervR8TuwfN+RSYAhnSqV6Q9yit1s/F7XKCcrP5eN37fd0JaL09I/Z9l kn4v7o3Pc4onLOxP
WJOUiIRFfAmLOhKesGZ/wlocEU9YzE1Yqy9hbY4OT1i7l7AOL2EP2518vz7v ns55B/qFTo1GtAED
9eirEP95IGy8iHJdkL/55hsv6iQL8X6NDi5f5/Uv7zktYpuh5BII2tuFfbvt Vjw/dCLmb/i2YgdC
/aZ/a+Jw9S1WqcjQe40/cG5rlQU6Ym7m8URpFfor7hPitgAd5jU6zCdwmB/B mcP3HIibh25821k9
/iT9tHe2RqSbsXYvMT+TNOnZqjeCwwco3P4CWO0PM8zpD53nKizFd0CPXcE/ FrW+W7G+V0EyqA3J
rRXT6DMhTPll0usSH5/6NLi0/bI+O+hQnwc6F/hqdYt4eF1ujNI5TL9we8D6 I7r/0PkpiOehVypT
gdZmHAzowIj1DaGpbcPZC0rBs2YINxQcXwI4foXO63R7eUbv3YB5B8GL0qEV 8ziPs4PufBClXygE
yDwlRh/r5V8wCjCUhXmJziiX0HNntHCt6cyrLMya/F9VZtnUYeZ8Ad//vXvx PW027JPwL9/L79wn
cgCF0UQpV0jEMxnm++q9/7vOLJ5M5gu5fKpQGmN1X3Nmdd9qJr2R0Uwpzb+J X/JpeaTz3XpzME5f
8qZf+tLLCljO/dq3Gaevpxf9GgOINukIBPB9vR8mxS/+FeZgLldaxSzlcggw 7+fSiwDSGVL1v2ag
flg8kx7KjtALAOr5AyP5hiJYOpwWbWB/sjSsjDqcXs0r5gqlhrNKj9D34xtN rZGEUsZfL1DPLqeL
6YFMilYoVV49jcF0KpOUX9qnRYTvXF2OZSH5OHytoJvOZtLZFNY1g8GQsRwq iDxk87mif0A8+dbR
Yp1j760NfruFeDGlMunvAvwDc0U+0VWz4KuYyKTiBUnnZGWYgwnJyTip8I1N pgaLpbHMqvnJF0LU
qSKyVctHzOEU/4uR+ogEhTSoL51Y9a4J3ysm+AJhv6KsUqj6XFb+WUsik07c wXxWxSso4oBFWgme
/KxcKUzYmXqCbzAPIxViZ+Tk1WWYg1mvmt2kiFdb8DdamD75MBiQZgqpZCF+ mBVSg4VUcZj5TcBe
3QZRobsWpkciQ8l0MZ+Jj/F5IVpny5oeNZjl28UUl0HnIhbGmSgs0cwFM8ez 7KTfmTC9mMNbUdOx
kE1nk6kjzGsMbvV4VYZMIwNDKTHCeamHmXVNubuXPfmTgM4ODpFUbFlI/Ts4 l6VJU8nLkGUtZeU1
x9WoEbJEPp0ojRZSzP/SED4eEYymmPfaEHpbSJaM0vYsMlgtxBMlvle9d4c4 88WyjMQL9KqQIac7
ZWlVKRhZBL7tQC8aMRU5KjGBFkCbMoNbSY42wXCa/5FS3atI/G8gGUpluSCT Q13H5aoz3+tIisO5
w/lcfjRPDETk1gXLFnKHk+kybhkF4T8Lbh2D3mCCux5vSdlEppCPY+bum0xy 4rUlq95jUvf6kqzb
TDO5rNtzyDW6HRUJsnFYrpFYbQlMnogRev+OmaUgRPZoe3ITda9DydEi8QaM ve7RGanLWSg7JnKL
gJO5bGaM+W+Gplh8060O5xaaRYGjEIZoPfnNVNB046KB0HD3nWjgdArgLSkx WmT+97OY3g3ae0PL
oJchM+tN2QvSTKCqcqz+Vq/c1lG90p7bunxm/Zn3kWLCoujYaD7Jx7mpotLk lW46vSDHkzowlo2P
kIO6nLu7z3nPjPt6GdO3s+QbZuIltpu/N6lYipfSieIeJt/BNDN7kl7O0kx/ 5Mq/zc/YEyF2US9p
7H30x67/C1BLAQIUABQAAgAIAJJqSDNnBY2ueQEAAHkCAAAZAAAAAAAAAAAA IAC0gQAAAABQcnVl
YmFCdWNsZU9uRHJhd0NlbGwueHBqUEsBAhQAFAACAAgAkmpIM0h1YmPZAAAA UAEAACAAAAAAAAAA
AAAgALSBsAEAAFNvdXJjZS9QcnVlYmFCdWNsZU9uRHJhd0NlbGwucHJnUEsB AhQAFAACAAgAGWtI
M8rvYomsAQAAjAQAABAAAAAAAAAAAAAgALSBxwIAAFNvdXJjZS9Gb3JtMS5w cmdQSwECFAAUAAIA
CAAZa0gz2zNs/lcBAACRAwAAEAAAAAAAAAAAACAAtIGhBAAAU291cmNlL0Zv cm0xLnhmbVBLAQIU
ABQAAgAIACBaSDOEhiFTHB0AANdJAAAOAAAAAAAAAAAAIAC0gSYGAABPYmov QnJ3Q29sLm9ialBL
BQYAAAAABQAFAE0BAABuIwAAAAA=
------=_NextPart_000_001A_01C5CC0C.091D82D0--

Attached files PruebaBucleOnDrawCell.zip (9.2 KB)Â

Xevi,
perdona el retraso en contestar.
If( Val( cText ) < 2, oSender:SetAlignment( taRIGHT, .T. ), oSender:SetAlignment( taLEFT, .T. ) )
No me funciona... el mismo bucle repetitivo!!!
Aunque le saque la lVScroll, siempre hace un repintado del Browse... se nota como pinta TODAS las celdas.
Es .F., y no .T. lo que tienes que pasar como segundo parámetro.
--
Un saludo,
José F. Giménez
--

Jose,
Es fin de semana, y primero lo primero...
Pues resuelto PERFECTISIMAMENTE con el segundo parámetro a .F.
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:[email=434974fe@ozsrvnegro.ozlan.local...]434974fe@ozsrvnegro.ozlan.local...[/email]
Xevi,
perdona el retraso en contestar.
If( Val( cText ) < 2, oSender:SetAlignment( taRIGHT, .T. ), oSender:SetAlignment( taLEFT, .T. ) )
No me funciona... el mismo bucle repetitivo!!!
Aunque le saque la lVScroll, siempre hace un repintado del Browse... se nota como pinta TODAS las celdas.
Es .F., y no .T. lo que tienes que pasar como segundo parámetro.
--
Un saludo,
José F. Giménez
--

Jose,
En versión Xailer Beta...
***************************** Registro de errores *****************************
Fecha: 10/10/2005
Hora: 10:19:02
Memoria libre: 605108
Area actual: 3
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 0.99.5 Pre-release 5a
Compilador: xHarbour build 0.99.51 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Scope Violation <PROTECTED>
Operación: SETALIGNMENT
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
SETALIGNMENT (0)
TFRMKITSCITROEN:BROWSE2COLUMN1DRAWCELL (337)
TBRWCOLUMN:ONDRAWCELL (0)
TBRWCOLUMN:PAINTDATA (68)
TARRAYBROWSE:WMPAINT (130)
PROCESSMESSAGES (0)
TAPPLICATION:_LBUSY (292)
TFRMKITSCITROEN:BUTTON1CLICK (437)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (101)
(b)XCONTROL (136)
TBUTTON:COMMAND (0)
TFRMKITSCITROEN:WMCOMMAND (238)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (24)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: ACITROENKITSCITROEN
Registro: 133951
Filtro:
Relación:
Orden del í­ndice: 1
Clave activa: 1
Area: 2
Alias: TCITROENKITSCITROEN
Registro: 22110
Filtro:
Relación:
Orden del í­ndice: 1
Clave activa: 1
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:[email=434974fe@ozsrvnegro.ozlan.local...]434974fe@ozsrvnegro.ozlan.local...[/email]
Xevi,
perdona el retraso en contestar.
If( Val( cText ) < 2, oSender:SetAlignment( taRIGHT, .T. ), oSender:SetAlignment( taLEFT, .T. ) )
No me funciona... el mismo bucle repetitivo!!!
Aunque le saque la lVScroll, siempre hace un repintado del Browse... se nota como pinta TODAS las celdas.
Es .F., y no .T. lo que tienes que pasar como segundo parámetro.
--
Un saludo,
José F. Giménez
--

Xevi,
tienes que usar el .obj que te envié. Estará incluido en la próxima versión.
--
Un saludo,
José F. Giménez

Jose,
Si lo tengo incluido!!!
Es el mismo proyecto, compilado en mi portatil o en el del trabajo, (donde
tengo una Demo)
Incluso he reconstruido el proyecto, en el de la Demo, pero nada, lo
mesmo...
Lo he vuelto a probar en el portatil, en la registrada, y perfecto !!!
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:434a2d6e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Xevi,
>
> tienes que usar el .obj que te envié. Estará incluido en la próxima
> versión.
>
>
> --
> Un saludo,
>
> José F. Giménez
>

Xevi,
> Si lo tengo incluido!!!
> Es el mismo proyecto, compilado en mi portatil o en el del trabajo, (donde
> tengo una Demo)
>
> Incluso he reconstruido el proyecto, en el de la Demo, pero nada, lo
> mesmo...
> Lo he vuelto a probar en el portatil, en la registrada, y perfecto !!!
Es muy raro. Por favor, publica el proyecto, marcando la casilla "incluir
binarios" y me lo envias para comprobarlo.
--
Un saludo,
José F. Giménez

Jose...
Me tenía preocupado!!!
Me he limitado a crear proyectos nuevos, y funcionaba correctamente... pero
aunque forzara a reconstruir mi proyecto una y otra vez, incluso eliminando
los objs, SIEMPRE el mismo error.
Lo que he hecho es quitar de mi proyecto un par de ficheros, reconstruir el
proyecto,... y voalá!!! funciona perfecto... le he vuelto a añadir los
archivos que he sacado del proyecto... y sigue funcionando correctamente...
Buuuuffff!!!!
Un dia buscando el error, y no se todavía a que era debido.
¿Podría ser debido a que al ser el último archivo que se añade a la cola del
proyecto, no lo tiene en cuenta???
No se, pero comento esto porque no era yo quien lo estaba haciendo mal,
SEGURO !!!
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:434a3106$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Xevi,
>
>> Si lo tengo incluido!!!
>> Es el mismo proyecto, compilado en mi portatil o en el del trabajo,
>> (donde tengo una Demo)
>>
>> Incluso he reconstruido el proyecto, en el de la Demo, pero nada, lo
>> mesmo...
>> Lo he vuelto a probar en el portatil, en la registrada, y perfecto !!!
>
> Es muy raro. Por favor, publica el proyecto, marcando la casilla "incluir
> binarios" y me lo envias para comprobarlo.
>
> --
> Un saludo,
>
> José F. Giménez
>