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