Alinhamento de Coluna de um StringGrid
29/07/2003
0
Estou usando valores em um StringGrid, e gostaria q algumas colunas ficassem alinha a direita, como faço???
Marcelo
PS: Até agora a única maneira que encontrei é de deixar a fonte como
Courier e usar a função format, mas fico preso, não posso mudar
de fonte
Marcelo
PS: Até agora a única maneira que encontrei é de deixar a fonte como
Courier e usar a função format, mas fico preso, não posso mudar
de fonte
Marcelolucena
Curtir tópico
+ 0
Responder
Posts
29/07/2003
Joaomw
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.
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.
Responder
22/01/2023
Fundação Catarina
https://t.me/pump_upp - best crypto pumps on telegram
Make 1000% and more within 1 day, join channel @pump_upp !
Make 1000% and more within 1 day, join channel @pump_upp !
Responder
14/04/2024
Fundação Catarina
A safe space for new acquaintances
Genuine Females
<a href=https://datesnow.life>Prime Сasual Dating</a>
Genuine Females
<a href=https://datesnow.life>Prime Сasual Dating</a>
Responder
Clique aqui para fazer login e interagir na Comunidade :)
