Pedes hacerlo poniendo esto en el evento onDrawCell del TStringGrid
var
M : Byte;
SCad : String;
begin
if ACol = 1 then //Por ejemplo para la colummna 1
begin
SCad := StringGrid1.Cells[acol,arow];
with canvas,rect do
M:=Right-TextWidth(sCad+' ');
StringGrid1.Canvas.TextRect(Rect,M,Rect.Top+2,sCad);
end;
Saludos yusnerqui
__________________
Lo importante no es llegar primero, sino saber llegar.
Para que puedas llegar mejor lee la Guia de Estilo
|