<div dir="ltr"><div><div><div><div><div>Hector,<br><br></div>Fijate si esto te sirve...<br><br><a href="http://www.delphipages.com/forum/showthread.php?t=15395">http://www.delphipages.com/forum/showthread.php?t=15395</a><br><br></div>Saludos,<br><br></div>Pancho<br></div>Córdoba<br></div>Argentina<br></div><div class="gmail_extra"><br><div class="gmail_quote">2015-12-09 21:20 GMT-03:00 Héctor Fiandor <span dir="ltr"><<a href="mailto:hfiandor@ceniai.inf.cu" target="_blank">hfiandor@ceniai.inf.cu</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">








<div link="blue" vlink="purple" lang="ES">

<div>

<p class="MsoNormal"><span lang="EN-US">Dear fellows<<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">I am trying to show a StringGrid with column’s
title. I have selected a Default Width of 64, and I desire that titles appears
in multiline cells.<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">I have read the Grids Reference Page and
write the following procedure:<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>

<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">procedure
TfBalTriDiario_2.sgTitBalTriDiario_2PrepareCanvas(sender: TObject; aCol, aRow:
Integer; aState: TGridDrawState);<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">var aTextStyle: TTextStyle;<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">begin<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">  if (ACol>=0) and (ARow=0) then<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">  begin<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">    aTextStyle :=
sgTitBalTriDiario_2.Canvas.TextStyle;<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">    </span>sgTitBalTriDiario_2.Canvas.Brush.Color
:= clMaroon;<u></u><u></u></p>

<p class="MsoNormal">    sgTitBalTriDiario_2.Font.Color:=clWhite;<u></u><u></u></p>

<p class="MsoNormal">    sgTitBalTriDiario_2.Font.Bold:=true;<u></u><u></u></p>

<p class="MsoNormal">    <span lang="EN-US">if (ACol=11) and (ARow=0) then
aTextStyle.SingleLine := false;<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">    if (ACol=0) and (ARow=0) then
aTextStyle.Alignment:=taLeftJustify;<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">    if (ACol in[1..11]) and (ARow=0) then
aTextStyle.Alignment:=taRightJustify;<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">    //if (ACol in[0..11]) and (ARow=0) then
aTextStyle.Layout:=tlCenter;<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">    sgTitBalTriDiario_2.Canvas.TextStyle :=
aTextStyle;<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">  end;<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">end;<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">The titles are introduced in an array of
string[30].<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">I don’t get the results. If anyone
can help me, I will appreciate  very much.<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>

<p class="MsoNormal"><span lang="EN-US">Thanks in advance<u></u><u></u></span></p>

<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>

<p class="MsoNormal">Saludos,<u></u><u></u></p>

<p class="MsoNormal">Ing. Héctor Fiandor<u></u><u></u></p>

<p class="MsoNormal"><a href="mailto:hfiandor@ceniai.inf.cu" target="_blank">hfiandor@ceniai.inf.cu</a><u></u><u></u></p>

</div>

</div>


<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a 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" rel="noreferrer" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br></div>