Averiguar parametros trect en un Timagen

[avmm2004]

Hola, tengo algo de confusión en este tema y igual alguien me podia ayudar.

Tengo un JPEg y necesito pasarlo a un pdf. Consegui una libreria de pago que lo hace pero usa un metodo para dibujar en el pdf un jpeg, pero necesito saber los valores trect del jpeg para que la imagen guarde las mismas medidias y proporciones en el pdf.

¿Como saco los valores trect de un jpeg?

Gracias

[[xEsk]]

Puedes usar las propiedades: Width y Height de la clase TPicture. Los valores que te devuelve, son las dimensiones reales de la imagen, no del TImage.

Ejemplo:

Código Delphi [-]
ShowMessage(IntToStr(Image1.Picture.Width) + 'x' + IntToStr(Image1.Picture.Height));

Saludos.

[avmm2004]

Empezado por xEsk

Puedes usar las propiedades: Width y Height de la clase TPicture. Los valores que te devuelve, son las dimensiones reales de la imagen, no del TImage.


Ejemplo:Código Delphi [-]ShowMessage(IntToStr(Image1.Picture.Width) + 'x' + IntToStr(Image1.Picture.Height));



Saludos.

Siendo asi las proporciones de la imagen no se pierden aunque lo pase a PDF ¿no?

Gracias.

[[xEsk]]

Si la imagen JPG tiene un tamaño de 800x600, 800 y 600 serán los valores que te devolverá, aun que el TImage tenga un height y width de 200 y 100.

Saludos.