<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Jesus 1 millón de gracias, funcionó
perfecto.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Me sería de utilidad que comunicases a la lista
cuando agregues dicha propiedad al control para modificar el código y de esta
forma no tener que hacer refencia a dicha clase.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Saludos Cordiales</FONT></DIV>
<DIV><FONT face=Arial size=2>========<BR>| ISMAEL |<BR>========</FONT></DIV>
<DIV><FONT face=Arial size=2>Only for the small landowners and Cubans
companies<BR>Website: <A
href="http://www.sisconge.byethost15.com">www.sisconge.byethost15.com</A><BR>
<A href="http://www.sisconge.hol.es">www.sisconge.hol.es</A><BR></DIV></FONT>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=jesusrmx@yahoo.com.mx href="mailto:jesusrmx@yahoo.com.mx">Jesus
Reyes</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, July 24, 2013 1:38
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Error SIGSEGV
en TDBGrid en columna conpropiedad .ButtonStyle:=cbsEllipsis</DIV>
<DIV><BR></DIV>
<DIV
style="FONT-SIZE: 12pt; COLOR: #000; FONT-FAMILY: times new roman, new york, times, serif; BACKGROUND-COLOR: #fff">
<DIV><SPAN><BR></SPAN></DIV>
<DIV>Hola Ismael,<BR></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent">Primeramente,
perdón por no contestar siguiendo el flujo del mensaje como acostumbro y por
el formato, no se si yahoo usa el mismo formato de mensaje al contestar o es
algún ajuste que aún no he hallado. Esta nueva interfaz de yahoo <SPAN
class=mark id=misspell-0>mail</SPAN> lo hace cada vez mas difícil, en
fin.</DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent">En
el caso de "<SPAN class=mark id=misspell-1>cbsEllipsis</SPAN>" el editor esta
implementado usando un control llamado <SPAN class=mark
id=misspell-2>TCompositeCellEditor</SPAN>, <SPAN class=""
id=misspell-3><SPAN>así</SPAN></SPAN> que en el evento <SPAN class=mark
id=misspell-3>OnSelectEditor</SPAN> no estas recibiendo un <SPAN class=mark
id=misspell-4>TCustomEdit</SPAN> sino un <SPAN class=mark
id=misspell-5>TCompositeCellEditor</SPAN>. </DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><SPAN
class=mark id=misspell-6>TCompositeCellEditor</SPAN> es solo un contenedor
para un par de controles, un <SPAN class=mark id=misspell-7>TCustomEdit</SPAN>
y un <SPAN class=mark id=misspell-8>Boton</SPAN>, el <SPAN class=mark
id=misspell-9>TCustomEdit</SPAN> esta designado como el "<SPAN class=mark
id=misspell-10>ActiveControl</SPAN>". Desafortunadamente <SPAN class=mark
id=misspell-11>TCompositeCellEditor</SPAN> no tiene ninguna propiedad publica
para acceder al "<SPAN class=mark id=misspell-12>ActiveControl</SPAN>" así que
debemos hacer uso de los llamadas clases de acceso o por otro nombre "<SPAN
class=mark id=misspell-13>crack</SPAN> <SPAN class=mark
id=misspell-14>classes</SPAN>" de la siguiente forma:</DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New
Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT
face="Courier New, courier, monaco, monospace, sans-serif">...</FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New', 'courier', 'monaco', monospace, sans-serif; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif"><SPAN
class=mark id=misspell-15>type</SPAN><BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif">
<SPAN class=mark id=misspell-16>TCompositeCellEditorAccess</SPAN>=<SPAN
class=mark id=misspell-17>class</SPAN>(<SPAN class=mark
id=misspell-18>TCompositeCellEditor</SPAN>);<BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New', 'courier', 'monaco', monospace, sans-serif; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT
face="Courier New, courier, monaco, monospace, sans-serif">...<BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif"><SPAN
class=mark id=misspell-19>var</SPAN></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif">
<SPAN class=mark id=misspell-20>ed</SPAN>: <SPAN class=mark
id=misspell-21>TWinControl</SPAN>;</FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT
face="Courier New, courier, monaco, monospace, sans-serif">...</FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New', 'courier', 'monaco', monospace, sans-serif; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif">
<SPAN class=mark id=misspell-22>if</SPAN> Editor <SPAN class=mark
id=misspell-23>is</SPAN> <SPAN class=mark
id=misspell-24>TCompositeCellEditor</SPAN> <SPAN class=mark
id=misspell-25>then</SPAN> <SPAN class=mark
id=misspell-26>begin</SPAN><BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif">
</FONT></FONT><FONT size=2><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><SPAN class=mark
id=misspell-27>ed</SPAN> := <SPAN class=mark
id=misspell-28>TCompositeCellEditorAccess</SPAN>(Editor).<SPAN class=mark
id=misspell-29>GetActiveControl</SPAN>;</FONT></FONT><FONT size=2><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New', 'courier', 'monaco', monospace, sans-serif; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif">
// ahora si<BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif">
<SPAN class=mark id=misspell-30>TCustomEdit</SPAN>(<SPAN class=mark
id=misspell-31>Ed</SPAN>).<SPAN class=mark id=misspell-32>CharCase</SPAN> :=
<SPAN class=mark id=misspell-33>ecUpperCase</SPAN>;</FONT></FONT><FONT
size=2><FONT
face="Courier New, courier, monaco, monospace, sans-serif"><BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 12px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Courier New'; BACKGROUND-COLOR: transparent"><FONT
size=2><FONT face="Courier New, courier, monaco, monospace, sans-serif">
<SPAN class=mark id=misspell-34>end</SPAN>;<BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_105
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><FONT
face="times new roman, new york, times, serif"><FONT
size=3><BR></FONT></FONT></DIV>
<DIV class=yui_3_7_2_36_1374646640363_583
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent">En
versiones posteriores agregaré a <SPAN class=mark
id=misspell-35>TCompositeCellEditor</SPAN> una propiedad "<SPAN class=mark
id=misspell-36>ActiveControl</SPAN>" para acceder directamente a ella y evitar
el uso de clases de acceso.</DIV>
<DIV class=yui_3_7_2_36_1374646640363_583
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV class=yui_3_7_2_36_1374646640363_583
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent">Saludos.</DIV>
<DIV class=yui_3_7_2_36_1374646640363_583
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV class=yui_3_7_2_36_1374646640363_583
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent">Jesus
Reyes A.</DIV>
<DIV class=yui_3_7_2_36_1374646640363_583
style="FONT-SIZE: 16px; COLOR: rgb(0,0,0); FONT-STYLE: normal; FONT-FAMILY: 'Times New Roman'; BACKGROUND-COLOR: transparent"><BR></DIV>
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: 'times new roman', 'new york', 'times', serif">
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: 'times new roman', 'new york', 'times', serif">
<DIV dir=ltr>
<HR SIZE=1>
<FONT face=Arial size=2><B><SPAN style="FONT-WEIGHT: bold">De:</SPAN></B>
Ismael L. <SPAN class=mark id=misspell-38>Donis</SPAN> <SPAN class=mark
id=misspell-39>Garcia</SPAN> <ismael@citricos.co.cu><BR><B><SPAN
style="FONT-WEIGHT: bold">Para:</SPAN></B> Spanish Lazarus
<lazarus-es@lists.lazarus.freepascal.org> <BR><B><SPAN
style="FONT-WEIGHT: bold">Enviado:</SPAN></B> Martes, 23 de julio, 2013
10:35:47<BR><B><SPAN style="FONT-WEIGHT: bold">Asunto:</SPAN></B> [Lazarus-es]
Error <SPAN class=mark id=misspell-43>SIGSEGV</SPAN> en <SPAN class=mark
id=misspell-44>TDBGrid</SPAN> en columna con propiedad .<SPAN class=mark
id=misspell-45>ButtonStyle</SPAN>:=<SPAN class=mark
id=misspell-46>cbsEllipsis</SPAN><BR></FONT></DIV>
<DIV class=y_msg_container><BR>
<DIV id=yiv2907153222>
<DIV>
<DIV><FONT face=Arial size=2>Cuando le pongo a una columna de un <SPAN
class=mark id=misspell-47>TDGrid</SPAN> la propiedad .<SPAN class=mark
id=misspell-48>ButtonStyle</SPAN>:=<SPAN class=mark
id=misspell-49>cbsEllipsis</SPAN> e intento hacer lo siguiente:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2><FONT size=1><FONT size=2><SPAN class=mark
id=misspell-50>procedure</SPAN> <SPAN class=mark
id=misspell-51>Tform</SPAN>1.<SPAN class=mark
id=misspell-52>TDGrid</SPAN>1<SPAN class=mark
id=misspell-53>SelectEditor</SPAN>(<SPAN class=mark
id=misspell-54>Sender</SPAN>: <SPAN class=mark id=misspell-55>TObject</SPAN>;
<SPAN class=mark id=misspell-56>Column</SPAN>: <SPAN class=mark
id=misspell-57>TColumn</SPAN>;<BR> <SPAN class=mark
id=misspell-58>var</SPAN> Editor: <SPAN class=mark
id=misspell-59>TWinControl</SPAN>);<BR><SPAN class=mark
id=misspell-60>begin</SPAN><BR> <SPAN class=mark
id=misspell-61>if</SPAN> (Editor <> <SPAN class=mark
id=misspell-62>nil</SPAN>) <SPAN class=mark id=misspell-63>then</SPAN> <SPAN
class=mark id=misspell-64>begin</SPAN><BR> <SPAN class=mark
id=misspell-65>if</SPAN> (<SPAN class=mark id=misspell-66>Column</SPAN>.<SPAN
class=mark id=misspell-67>Index</SPAN> = 5) <SPAN class=mark
id=misspell-68>then</SPAN><BR> <SPAN class=mark
id=misspell-69>TCustomEdit</SPAN>(Editor).<SPAN class=mark
id=misspell-70>CharCase</SPAN> := <SPAN class=mark
id=misspell-71>ecUppercase</SPAN>;<BR> <SPAN class=mark
id=misspell-72>end</SPAN>;<BR><SPAN class=mark
id=misspell-73>end</SPAN>;</FONT></FONT></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>En la línea: </FONT><FONT face=Arial
size=2> <SPAN class=mark id=misspell-74>TCustomEdit</SPAN>(Editor).<SPAN
class=mark id=misspell-75>CharCase</SPAN> := <SPAN class=mark
id=misspell-76>ecUppercase</SPAN>; me salta el error "<SPAN class=mark
id=misspell-77>External</SPAN> <SPAN class=mark
id=misspell-78>SIGSEGV</SPAN>"<BR></FONT></DIV>
<DIV><FONT face=Arial size=2>Si elimino la propiedad .<SPAN class=mark
id=misspell-79>ButtonStyle</SPAN>:=<SPAN class=mark
id=misspell-80>cbsEllipsis</SPAN> de dicha columna todo funciona
normal.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Ahora mi problema es que necesito tener las 2
cosas, ósea necesito ponerle el <SPAN class=mark id=misspell-81>boton</SPAN> a
esa columna y además necesito implementar el procedimiento en el evento <SPAN
class=mark id=misspell-82>SelectEditor</SPAN> del <SPAN class=mark
id=misspell-83>TDGrid</SPAN>.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Ahora mi pregunta:</FONT></DIV>
<DIV><FONT face=Arial size=2>Como <SPAN class=mark
id=misspell-84>prodría</SPAN> resolver este problema para que no me salga
dicho error?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2><FONT size=1><FONT size=2>Desde ya
Gracias</FONT></FONT></FONT></DIV>
<DIV><FONT face=Arial size=2>========<BR>| ISMAEL |<BR>========<BR><SPAN
class=mark id=misspell-85>Website</SPAN>: <A
href="http://www.sisconge.byethost15.com/" target=_blank
rel=nofollow>www.sisconge.byethost15.com</A><BR>
<A href="http://www.sisconge.hol.es/" target=_blank
rel=nofollow>www.sisconge.hol.es</A></FONT></DIV>
<DIV><FONT face=Arial size=2><BR><SPAN class=mark id=misspell-86>PD</SPAN>:
Toda ayuda será bien
venida.</FONT></DIV></DIV></DIV><BR>_______________________________________________<BR>Lazarus-es
<SPAN class=mark id=misspell-88>mailing</SPAN> list<BR><A
href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
ymailto="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR><BR></DIV></DIV></DIV></DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>