Redimensionar TFrame al tamaño de TImage

[jars]

Hola Ecfisa.
Eso fue lo primero que probe pero el ancho o el alto no se ajustan.

Código Delphi [-]
  with vf[cont] do
  begin
     Frame := TfrImage.Create(nil);
     Frame.Name := Format('Frame%d',[cont+1]);
     Frame.Left := 10;
     TfrImage(Frame).sImage1.Picture.LoadFromFile('c:\tmp\imagenes\ArIyyAg.jpg');
     if cont = 0 then
       Frame.Top := 10
     else
        Frame.Top := vf[cont-1].Frame.Top+vf[cont-1].Frame.Height + 10 ;
      Frame.Height := TfrImage(Frame).sImage1.Height;
      Frame.Width := TfrImage(Frame).sImage1.Width;
      Frame.Parent:= ScrollBox1;
   end;

[ecfisa]

Hola jars.

¿ Estas haciendo lo anterior basado en el código de este ejemplo ?
Si es así, no te va a funcionar por que en el evento OnResize del TScrollBox se redimensiona el tamaño del TFrame anulando cualquier ajuste previo.

¿ No te resulta mas simple ajustar el TImage al TFrame ?

Saludos

[jars]

¿ Estas haciendo lo anterior basado en el código de este ejemplo ?
Si es así, no te va a funcionar por que en el evento OnResize del TScrollBox se redimensiona el tamaño del TFrame anulando cualquier ajuste previo.

Si, lo estoy basando en tu ejemplo pero ya contemple el OnResize.

¿ No te resulta mas simple ajustar el TImage al TFrame ?

Asi esta definido en TFrame pero al estar con strech y proportional, la imagen se acomoda a lo ancho o alto o ambos y el frame no lo acompaña.