alinear a la derecha texto de un stringgrid

[roman]

Empezado por ctronx

pero tu ejemplo no me permite especificar una determinada columna para alinear a la derecha.

¿Cómo está eso de que no te permite elegir la columna? ¡Se trata del mismo evento! Así que en ambos casos puedes usar condicionales para ACol y ARow.

// Saludos

[yusnerqui]

Como bien dice el amigo roman, se trata del mismo evento así que con solo unas pequeñas modificaciones lo podrás adaptar a lo que quieres.

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var sCad:String;
    i: integer;
begin 
  if ACol=2 then // voy a alinear a la derecha la 3ª columna
  if ARow>0 then //No quiero alinear la línea de títulos
    if StringGrid1.Cells[ACol,ARow] <> '' then 
    begin 
       sCad := StringGrid1.Cells[ACol,ARow];
         with StringGrid1 do 
            with Canvas,Rect do 
            begin 
               i:=Right-TextWidth(sCad+' ');
               Canvas.FillRect(Rect);
               Canvas.TextOut(i,Top+2,sCad);
            end;      
    end; 
end;

Esto lo probé y me funciona.

Espero te Ayude.

Un saludo

[ctronx]

Ok, muchas gracias a ambos.

[[BlueSteel]]

Hola amigos...

tengo un pequeñisimo problema... quise ejecutar esta sentencia.. pero me da el siguente error

[Error] Unit5.pas(399): Undeclared identifier: 'Right'

he tratado de solucionarlo.,... pero no se como.. el codigo es tengo es el sgte:

Código Delphi [-]
procedure TOrden.Items_PasoDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var  sCad : String;
    i : Integer;
begin
     If (ACol=2) Or (ACol=3) Then
        If Items_Paso.Cells[ACol,ARow] <> '' Then
           Begin
                sCad := Items_Paso.Cells[ACol,ARow];
                With Items_Paso Do
                Begin
                    i:=Right-TextWidth(sCad+' ');
                     Canvas.FillRect(Rect);
                     Canvas.TextOut(i,Top+2,sCad);
                End;
           End;
end;

espero me puedan ayudar..

[[BlueSteel]]

ya lo arregle.. me habia comido una linea.. sorry..y gracias

[[FGarcia]]

Hola!

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

[[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...