<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span><br></span></div><div>Hola Ismael,<br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;"><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;">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 id="misspell-0" class="mark">mail</span> lo hace cada vez mas difícil, en fin.</div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;"
class="yui_3_7_2_36_1374646640363_105"><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_105">En el caso de "<span id="misspell-1" class="mark">cbsEllipsis</span>" el editor esta implementado usando un control llamado <span id="misspell-2" class="mark">TCompositeCellEditor</span>, <span id="misspell-3" class=""><span>así</span></span> que en el evento <span id="misspell-3" class="mark">OnSelectEditor</span> no estas recibiendo un <span id="misspell-4" class="mark">TCustomEdit</span> sino un <span id="misspell-5" class="mark">TCompositeCellEditor</span>. </div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_105"><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family:
"Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_105"><span id="misspell-6" class="mark">TCompositeCellEditor</span> es solo un contenedor para un par de controles, un <span id="misspell-7" class="mark">TCustomEdit</span> y un <span id="misspell-8" class="mark">Boton</span>, el <span id="misspell-9" class="mark">TCustomEdit</span> esta designado como el "<span id="misspell-10" class="mark">ActiveControl</span>". Desafortunadamente <span id="misspell-11" class="mark">TCompositeCellEditor</span> no tiene ninguna propiedad publica para acceder al "<span id="misspell-12" class="mark">ActiveControl</span>" así que debemos hacer uso de los llamadas clases de acceso o por otro nombre "<span id="misspell-13" class="mark">crack</span> <span id="misspell-14" class="mark">classes</span>" de la siguiente forma:</div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New
Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_105"><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif">...</font></font></div><div style="color: rgb(0, 0, 0); background-color: transparent; font-style: normal; font-size: 12px; font-family: "Courier New", "courier", "monaco", monospace, sans-serif;" class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"><span id="misspell-15" class="mark">type</span><br></font></font></div><div style="color: rgb(0, 0, 0); background-color: transparent; font-style: normal; font-size: 12px; font-family: "Courier New";"
class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"> <span id="misspell-16" class="mark">TCompositeCellEditorAccess</span>=<span id="misspell-17" class="mark">class</span>(<span id="misspell-18" class="mark">TCompositeCellEditor</span>);<br></font></font></div><div style="color: rgb(0, 0, 0); background-color: transparent; font-style: normal; font-size: 12px; font-family: "Courier New", "courier", "monaco", monospace, sans-serif;" class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif">...<br></font></font></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"><span
id="misspell-19" class="mark">var</span></font></font></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"> <span id="misspell-20" class="mark">ed</span>: <span id="misspell-21" class="mark">TWinControl</span>;</font></font></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif">...</font></font></div><div style="color: rgb(0, 0, 0); background-color: transparent; font-style: normal; font-size: 12px; font-family: "Courier New", "courier", "monaco", monospace, sans-serif;"
class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"> <span id="misspell-22" class="mark">if</span> Editor <span id="misspell-23" class="mark">is</span> <span id="misspell-24" class="mark">TCompositeCellEditor</span> <span id="misspell-25" class="mark">then</span> <span id="misspell-26" class="mark">begin</span><br></font></font></div><div style="color: rgb(0, 0, 0); background-color: transparent; font-style: normal; font-size: 12px; font-family: "Courier New";" class="yui_3_7_2_36_1374646640363_105"><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 id="misspell-27" class="mark">ed</span> := <span id="misspell-28" class="mark">TCompositeCellEditorAccess</span>(Editor).<span id="misspell-29"
class="mark">GetActiveControl</span>;</font></font><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"><br></font></font></div><div style="color: rgb(0, 0, 0); background-color: transparent; font-style: normal; font-size: 12px; font-family: "Courier New", "courier", "monaco", monospace, sans-serif;" class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"> // ahora si<br></font></font></div><div style="color: rgb(0, 0, 0); background-color: transparent; font-style: normal; font-size: 12px; font-family: "Courier New";" class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"> <span id="misspell-30" class="mark">TCustomEdit</span>(<span id="misspell-31" class="mark">Ed</span>).<span id="misspell-32" class="mark">CharCase</span> := <span
id="misspell-33" class="mark">ecUpperCase</span>;</font></font><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"><br></font></font></div><div style="color: rgb(0, 0, 0); background-color: transparent; font-style: normal; font-size: 12px; font-family: "Courier New";" class="yui_3_7_2_36_1374646640363_105"><font size="2"><font face="Courier New, courier, monaco, monospace, sans-serif"> <span id="misspell-34" class="mark">end</span>;<br></font></font></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_105"><font face="times new roman, new york, times, serif"><font size="3"><br></font></font></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_583">En
versiones posteriores agregaré a <span id="misspell-35" class="mark">TCompositeCellEditor</span> una propiedad "<span id="misspell-36" class="mark">ActiveControl</span>" para acceder directamente a ella y evitar el uso de clases de acceso.</div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_583"><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_583">Saludos.</div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_583"><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style:
normal;" class="yui_3_7_2_36_1374646640363_583">Jesus Reyes A.</div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: "Times New Roman"; background-color: transparent; font-style: normal;" class="yui_3_7_2_36_1374646640363_583"><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 size="2" face="Arial"> <b><span style="font-weight:bold;">De:</span></b> Ismael L. <span id="misspell-38" class="mark">Donis</span> <span id="misspell-39" class="mark">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 id="misspell-43" class="mark">SIGSEGV</span> en <span id="misspell-44" class="mark">TDBGrid</span> en columna con propiedad
.<span id="misspell-45" class="mark">ButtonStyle</span>:=<span id="misspell-46" class="mark">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 id="misspell-47" class="mark">TDGrid</span> la
propiedad .<span id="misspell-48" class="mark">ButtonStyle</span>:=<span id="misspell-49" class="mark">cbsEllipsis</span> e intento hacer lo siguiente:</font></div>
<div> </div>
<div><font face="Arial" size="2"><font size="1"><font size="2"><span id="misspell-50" class="mark">procedure</span>
<span id="misspell-51" class="mark">Tform</span>1.<span id="misspell-52" class="mark">TDGrid</span>1<span id="misspell-53" class="mark">SelectEditor</span>(<span id="misspell-54" class="mark">Sender</span>: <span id="misspell-55" class="mark">TObject</span>; <span id="misspell-56" class="mark">Column</span>: <span id="misspell-57" class="mark">TColumn</span>;<br> <span id="misspell-58" class="mark">var</span>
Editor: <span id="misspell-59" class="mark">TWinControl</span>);<br><span id="misspell-60" class="mark">begin</span><br> <span id="misspell-61" class="mark">if</span> (Editor <> <span id="misspell-62" class="mark">nil</span>) <span id="misspell-63" class="mark">then</span>
<span id="misspell-64" class="mark">begin</span><br> <span id="misspell-65" class="mark">if</span> (<span id="misspell-66" class="mark">Column</span>.<span id="misspell-67" class="mark">Index</span> = 5) <span id="misspell-68" class="mark">then</span><br>
<span id="misspell-69" class="mark">TCustomEdit</span>(Editor).<span id="misspell-70" class="mark">CharCase</span> := <span id="misspell-71" class="mark">ecUppercase</span>;<br>
<span id="misspell-72" class="mark">end</span>;<br><span id="misspell-73" class="mark">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 id="misspell-74" class="mark">TCustomEdit</span>(Editor).<span id="misspell-75" class="mark">CharCase</span> := <span id="misspell-76" class="mark">ecUppercase</span>; me salta el error
"<span id="misspell-77" class="mark">External</span> <span id="misspell-78" class="mark">SIGSEGV</span>"<br></font></div>
<div><font face="Arial" size="2">Si elimino la propiedad .<span id="misspell-79" class="mark">ButtonStyle</span>:=<span id="misspell-80" class="mark">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 id="misspell-81" class="mark">boton</span> a esa columna y además necesito
implementar el procedimiento en el evento <span id="misspell-82" class="mark">SelectEditor</span> del <span id="misspell-83" class="mark">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 id="misspell-84" class="mark">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 id="misspell-85" class="mark">Website</span>: <a rel="nofollow" target="_blank" href="http://www.sisconge.byethost15.com/">www.sisconge.byethost15.com</a><br>
<a rel="nofollow" target="_blank" href="http://www.sisconge.hol.es/">www.sisconge.hol.es</a></font></div>
<div><font face="Arial" size="2"><br><span id="misspell-86" class="mark">PD</span>: Toda ayuda será bien
venida.</font></div></div></div><br>_______________________________________________<br>Lazarus-es <span id="misspell-88" class="mark">mailing</span> list<br><a ymailto="mailto:Lazarus-es@lists.lazarus.freepascal.org" href="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></body></html>