Tema: Longitud de un String en pixeles
Ver Mensaje Individual
  #3  
Antiguo 15-05-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
  
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
procedure TForm1.Button1Click(Sender: TObject);
var
nAncho:Integer;
s:String;
begin
s:='Ejemplo de ancho';
form1.Canvas.Font.size:=20;
with form1.Canvas do
begin
nAncho:=TextWidth(s);
ShowMessage(IntToStr(nAncho));
end;

end;



Un Saludo.
Responder Con Cita