alinear a la derecha texto de un stringgrid

[[BlueSteel]]

Empezado por FGarcia

Hola!

Resucitando este hilo ya que necesito hacer algo similar ¿cual fue la linea que te comiste Blue Steel?

Hola.. en realidad ya ni me acuerdo.. por que fue hace mas de 1 año... pero si te sale error.. por que mejor no pones tu codigo...

[[FGarcia]]

JEJE!

Como me fui a comer no habia probado nada del codigo pero copy & paste el tuyo, le cambie el nombre del stringgrid y me aparece el mismo error que mencionas

edito: OK Corregido

Código Delphi [-]
procedure TfrmMain.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var sCad: String;
    i: Integer;
begin
  If (ACol=1) Or (ACol=2) Then
    If StringGrid1.Cells[ACol,ARow] <> '' Then
      Begin
        sCad := StringGrid1.Cells[ACol,ARow];
        With StringGrid1 Do
          with Canvas,Rect do   //ESTA es la linea que faltaba
          Begin
            i:=Right-TextWidth(sCad+' ');
            Canvas.FillRect(Rect);
            Canvas.TextOut(i,Top+2,sCad);
          End;
      End;

end;