Ajuste del width de un objeto al maxlegth

[marcoszorrilla]

Prueba esto:

Código Delphi [-]
Edit1.Width:=Canvas.TextWidth(Edit1.Text);

Un Saludo.

[FNADALO]

Gracias Marcos efectivamente funciono pero recorta el ultimo caracter,
como sabia que más o menos un caracter son 12 Pixels, a lo que me pasastes
le sume 12 y Ok.

[[Lepe]]

De donde has sacado que un caracter son 12 pixels? Porque si usas Courier New de tipo de letra... todo ok, pero en cuanto usas letras no proporcionales... adios el tema...

El código de Marcos funciona muy bien, teniendo en cuenta un detalle. En el código propuesto, estaría usando el Canvas de ¿?¿?¿?¿ se supone que de la ventana. Si el DBEdit tiene puesta una fuente distitnta a la de la ventana, por eso no te da el ancho exacto.

Un saludo

[marcoszorrilla]

De momento se me ocurre esta pequeña chapuza para arreglar la posible diferencia en los tipos de letra:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 Var
 fName:String;
 fSize:Integer;
 begin
 fName:=Form1.Font.Name;
 fSize:=Form1.Font.Size;
 Form1.Font.Name:=Edit1.Font.Name;
 Form1.Font.Size:=Edit1.Font.Size;
 Edit1.Width:=Canvas.TextWidth(Edit1.Text);
 Form1.Font.Name:=fName;
 Form1.Font.Size:=fSize;
 end;

Un Saludo.

[[Lepe]]

Código Delphi [-]
function FontWidth(const Fuente:TFont;const Texto:string):Integer;
var c:TCanvas;
    h:HWND;
begin
  try
    c:= TCanvas.Create;
    c.Handle := GetDeviceContext(h);

    c.Font.Assign(Fuente);
    Result := c.TextWidth(Texto);
  finally
    FreeAndNil(c);
  end;
end;

function FontHeight(const Fuente:TFont;const Texto:string):Integer;
var c:TCanvas;
    h:HWND;
begin
  try
    c:= TCanvas.Create;
    c.Handle := GetDeviceContext(h);

    c.Font.Assign(Fuente);
    Result := c.TextHeight(Texto);
  finally
    FreeAndNil(c);
  end;
end;

El objeto de este codigo, es que ultimamente por los foros veo mucho esta misma pregunta, por supuesto, si tenemos la propiedad Canvas a mano, pues consultamos los métodos TextWidth y TextHeight.

Si no tenemos el canvas.... pues lo creamos nosotros y punto. La verdad, es excesivo crear un canvas, un handle y todos los recursos asociados para ver el tamaño de un string. Si se necesita para un string .... se llama a estas funciones y listo.

Si tenemos que hallar el ancho para varios strings, se debería crear el Canvas, el handle, hacer el bucle necesario comprobando el tamaño de todos los string que tenemos y despues liberar el canvas.

Es decir: No abusemos de estas rutinas, retocarlas y meterlas en vuestro código, llamar a estas funciones dentro de un bucle es EXCESIVO.

Queda claro no? Un saludo

[roman]

Empezado por Lepe

llamar a estas funciones dentro de un bucle es EXCESIVO.
Queda claro no?

¿Estás enojado?



Una observación:

Según entendí de la pregunta original, se require ajustar el ancho del DBEdit a la lóngitud máxima posible, misma que se especifica como parámetro. Es decir, que no se tiene disponible la cadena en sí que tiene la longitud máxima, de manera que TextWidth no funcionaría aquí, a menos que se sepa cuál es el caracter de mayor anchura y se forme una cadena de longitud máxima con dicho caracter.

Así que, una opción podría ser usar la función GetTextMetrics, aplicada a Canvas.Handle, para obtener una estructura TEXTMETRICS que es un registro uno de cuyos campos es tmMaxCharWidth que es el ancho del caracter más ancho de la fuente utilizada. Este valor se multiplicaría por la longitud máxima y el valor se asignaría a DBEdit.Width.

// Saludos

[marcoszorrilla]

Siendo un DbEdit conectado a un campo texto, sabemos de antemano cual es el máximo ancho que puede ocupar.

Código Delphi [-]
 Dbedit2.Field.Size;

Y por lo tanto al abrir el formulario podemos darle el máximo ancho al vuelo, y luego en el evento que convenga por ejemplo OnExit ajustarlo al ancho final del texto introducido.

Un Saludo.