Alinhar campo a direita !

Delphi

30/05/2003

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,


Frampton

Frampton

Curtidas 0

Respostas

Nildo

Nildo

30/05/2003

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


GOSTEI 0
POSTAR