Cita:
Empezado por andriy_89
Al final lo he solucionado con dos plantillas diferentes, una con la imagen ancha y otra cuadrada.
Gracias por la ayuda
|
Para desplazar el texto, puedes utilizar el siguiente código en el evento "
OnBeforePrint" de la banda de cabezera:
Código Delphi
[-]procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent);
var
image_width: Integer;
begin
image_width := int(photo_image.width);
sibling_label.left := (photo_image.left + photo_image.width) + (photo_image.picture.width - image_width);
end;
En dónde "
photo_image" es el objeto que muestra la foto y "
sibling_label" es el texto al lado de la imagen. Este código toma en cuenta que el texto esté al lado derecho de la imagen.
Todos los objetos
TfrxPictureView traen adjunto un
TPicture (el mismo que Delphi). Por medio de la propiedad "
Picture" de
TfrxPictureView puedes acceder a él y manipularlo o leer sus propiedades, a cómo estoy haciendo en este caso.
Saludos.