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
Ajusta tamaño de una foto
- J. Ernesto
- Posts: 161
- Joined: Tue Feb 03, 2009 10:08 pm
- Location: Bogotá D.C. Colombia
- Contact:
Ajusta tamaño de una foto
J. Ernesto Pinto Q.
Fwh_x64 2407 + BCC++_x64 7_70__6_72 + Harbour 3.20 + LopeEdit 5.8 + UEstudio 26.0
jepsys@hotmail.com, jepsys@gmail.com, jepsys@yahoo.com
Fwh_x64 2407 + BCC++_x64 7_70__6_72 + Harbour 3.20 + LopeEdit 5.8 + UEstudio 26.0
jepsys@hotmail.com, jepsys@gmail.com, jepsys@yahoo.com
- karinha
- Posts: 7935
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Ajusta tamaño de una foto
mira se ayuda:
Code: Select all | Expand
REDEFINE IMAGE oImagem ID 201 ;
OF oFld:aDialogs[2] ;
FILENAME DbClientes:Fotos ;
UPDATE CURSOR oHand
oImagem:Progress( .F. )
oImagem:lStretch := ( .T. )
oImagem:Refresh()
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
- J. Ernesto
- Posts: 161
- Joined: Tue Feb 03, 2009 10:08 pm
- Location: Bogotá D.C. Colombia
- Contact:
Re: Ajusta tamaño de una foto
Karinha
Gracias por la respuesta, pero tampoco me sirve hacer el stretch
Espero otras ideas mr Antonio Linares y compañía.
Gracias por la respuesta, pero tampoco me sirve hacer el stretch
Espero otras ideas mr Antonio Linares y compañía.
J. Ernesto Pinto Q.
Fwh_x64 2407 + BCC++_x64 7_70__6_72 + Harbour 3.20 + LopeEdit 5.8 + UEstudio 26.0
jepsys@hotmail.com, jepsys@gmail.com, jepsys@yahoo.com
Fwh_x64 2407 + BCC++_x64 7_70__6_72 + Harbour 3.20 + LopeEdit 5.8 + UEstudio 26.0
jepsys@hotmail.com, jepsys@gmail.com, jepsys@yahoo.com
- karinha
- Posts: 7935
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Ajusta tamaño de una foto
Como estás haciendo, talbéz un simples ADJUST te sirva.
salu2
salu2
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
- FranciscoA
- Posts: 2163
- Joined: Fri Jul 18, 2008 1:24 am
- Location: Chinandega, Nicaragua, C.A.
Re: Ajusta tamaño de una foto
J. Ernesto wrote: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
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.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql