Alinhamento de Coluna de um StringGrid

Caro Marcelo...

no evento OnDrawCell insira o seguinte código:

var TamTextoCel, CentralizaCel: Integer;
begin
with SeuGrid.Canvas do
begin
//Calcula o tamanho do Texto
TamTextoCel:= TextWidth(SGCalcSafras.Cells[ACol,ARow]);
//Calcula o espaço para escrever texto centralizado
CentralizaCel:= ((SGCalcSafras.ColWidths[ACol] div 2)-(TamTextoCel div 2));

if (ARow>2)
//Alinhado à Esquerda
then TextOut (Rect.Left + 2, Rect.Top + 1, SeuGrid.Cells[ACol,ARow] )
else
if (ARow<=2)
//Centraliza texto
then TextOut (Rect.Left + CentralizaCel, Rect.Top + 1, SeuGrid.Cells[ACol,ARow]);
//Alinhado à Direita
//else TextOut (Rect.Right - ((TamTextoCel)+2), Rect.Top + 1, SeuGrid.Cells[ACol,ARow] );
end;
end;

Caso tenha alguma dificuldade me comunique.
João Webber.

https://t.me/pump_upp - best crypto pumps on telegram
Make 1000% and more within 1 day, join channel @pump_upp !

A safe space for new acquaintances
Genuine Females
<a href=https://datesnow.life>Prime Сasual Dating</a>

<a href=https://datingnow.site>Find Pretty Womans from your city for night</a>