Pues yo hice la prueba original en delphi4, pero ahora la he compilado en delphi7 y funciona perfectamente...
La resolución del monitor no creo que tenga nada que ver... por si las dudas, yo uso 1280x1024.
el código:
Código Delphi
[-]
procedure TForm1.Ajustar;
var
i : integer;
w : integer;
begin
w := 0;
for i:=0 to Lista.Items.Count-1 do
if( Lista.Canvas.TextWidth(Lista.Items[i])>w ) then
w := Lista.Canvas.TextWidth(Lista.Items[i]);
ClientWidth := w + 12;
end;
Hasta luego.
