Fórum Alinhar campo a direita ! #163714
30/05/2003
0
Boa tarde amigos,
É o seguinte. Estou com problemas para alinhar os campos de valores tipo, REAL, DOUBLE, FLOAT, a direitra em um DBgrid.
Estou pintando o DBgrid com o codigo :
if odd(frmPrincipal.tb_faturamento.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clBlue;
DBGrid1.Canvas.Brush.Color:= clAqua;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clWhite;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
Ele funciona legal ! Mas os campos com valores numericos ficam alinhados a esquerda ! E estou precisando alinha-los a direita de cada coluna do DBgrid.
Alguem pode ajudar ?
Obrigado,
É o seguinte. Estou com problemas para alinhar os campos de valores tipo, REAL, DOUBLE, FLOAT, a direitra em um DBgrid.
Estou pintando o DBgrid com o codigo :
if odd(frmPrincipal.tb_faturamento.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clBlue;
DBGrid1.Canvas.Brush.Color:= clAqua;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clWhite;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
Ele funciona legal ! Mas os campos com valores numericos ficam alinhados a esquerda ! E estou precisando alinha-los a direita de cada coluna do DBgrid.
Alguem pode ajudar ?
Obrigado,
Frampton
Curtir tópico
+ 0
Responder
Posts
30/05/2003
Nildo
Faz assim:
Se for do tipo Integer ou float entao vc usa dessa maneira:
dbGrid1.canvas.textOut(rect.right - dbGrid1.canvas.TextExtent(Column.field.asString).cx -3, rect.top, column.field.asString)
Isso resolve. Qualquer duvida me pergunte
falowwww
Se for do tipo Integer ou float entao vc usa dessa maneira:
dbGrid1.canvas.textOut(rect.right - dbGrid1.canvas.TextExtent(Column.field.asString).cx -3, rect.top, column.field.asString)
Isso resolve. Qualquer duvida me pergunte
falowwww
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)