Ajusta tamaño de una foto

[J. Ernesto]

Tengo en pantalla un área predeterminada y en el diseño de la hoja a imprimir también. de que manera ajusto las dimensiones de alto y ancho de la foto para esas áreas, sin que la imagen quede distorsionada, no me sirve ajustar la imagen al área predeterminada.

Gracias

[karinha]

mira se ayuda:

Code: Select all  Expand view

       REDEFINE IMAGE oImagem ID 201       ;
                OF oFld:aDialogs[2]        ;
                FILENAME DbClientes:Fotos  ;
                UPDATE   CURSOR  oHand
               
       oImagem:Progress( .F. )
       oImagem:lStretch := ( .T. )
       oImagem:Refresh()
 

[J. Ernesto]

Karinha

Gracias por la respuesta, pero tampoco me sirve hacer el stretch

Espero otras ideas mr Antonio Linares y compañía.

[karinha]

Como estás haciendo, talbéz un simples ADJUST te sirva.

salu2

[FranciscoA]

Tengo en pantalla un área predeterminada y en el diseño de la hoja a imprimir también. de que manera ajusto las dimensiones de alto y ancho de la foto para esas áreas, sin que la imagen quede distorsionada, no me sirve ajustar la imagen al área predeterminada.
Gracias

Ernesto, el truco está en ajustar el objeto oImage al tamaño de la foto. Lo ideal es que todas las fotos tengan el mismo tamaño. Prueba esto, a ver si te da el resultado deseado: (solo lo he usado en pantalla, y si se distorsiona, no lo he notado.)

Code: Select all  Expand view

  oImage:LoadBmp( gcFile )

   nWidthImg  := nBmpWidth( oImage:hBitmap )
   nHeightImg := nBmpHeight( oImage:hBitmap )

   if nWidthImg > nHeightImg   //elegimos el lado de la foto que tenga el mayor valor  
      nFactor :=  nWidthFrame/nWidthImg
   elseif nHeightImg > nWidthImg
      nFactor :=  nHeightFrame/nHeightImg
   elseif nHeightImg = nWidthImg   //si imagen es cuadrada...
      nFactor :=  nHeightFrame/nHeightImg
   endif

   oImage:SetSize( nBmpWidth( oImage:hBitmap )*nFactor, nBmpHeight( oImage:hBitmap )*nFactor, .T. )
   oImage:lStretch := .t.
   oImage:Refresh()
 

Saludos.