Ajuste del width de un objeto al maxlegth

[FNADALO]

Queridos compañeros
Estoy creando un objeto por código concretamente un DBEdit donde le estoy
pasando las propiedades que necesito el DataSource el DataField el Maxleng
pero al width quería ponerle el mismo tamaño que el maxlength se lo paso por código pero o me reduce el objeto o lo amplia demasiado, e calculado que
un caracter son 12 Pixel más o menos, y le pasaba al width la longitud del maxlenght * 12 espacios más o menos calculado, pero nada de nada, alguien
puede ayudarme. Gracias.

[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