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
J. Ernesto Pinto Q.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com
REDEFINE IMAGE oImagem ID 201 ;
OF oFld:aDialogs[2] ;
FILENAME DbClientes:Fotos ;
UPDATE CURSOR oHand
oImagem:Progress( .F. )
oImagem:lStretch := ( .T. )
oImagem:Refresh()Karinha
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 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com
Como estƔs haciendo, talbƩz un simples ADJUST te sirva.
salu2
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
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()