Otra alternativa
Hola, me hice esta funcion para poder alinear a la derecha, fijate si te sirve:
function ubica(s: string):integer;
var aux: byte;
begin
aux:= 8 - length(s);
ubica:= 25 * aux;
end;
Nota: cadena de hasta 8 caracteres.
Ejemplo de llamada:
TextOut ( (2090+ubica(label1.caption)), 1675, label1.caption);
Salutes!
|