?
Solved

resizing picture object in crystal report 8.

Posted on 2004-09-09
5
Medium Priority
?
2,509 Views
Last Modified: 2012-08-14
i'm creating a report that include a picture object in it. i want the picture to be displayed in it's own size. The problem with picture object is the picture will be displayed fix the picture object size (stretch). Is the any other way to show the picture with it's own size (not stretched)?
0
Comment
Question by:craduza
  • 3
5 Comments
 
LVL 42

Accepted Solution

by:
frodoman earned 200 total points
ID: 12015601
If you're using the RDC components then you can do this by setting the mode to "auto-size".  See more details here: http://support.businessobjects.com/library/kbase/articles/c2003171.asp

If you're just pulling in a picture from a database then AFAIK there isn't a way to do this.

frodoman
0
 
LVL 10

Expert Comment

by:ebolek
ID: 12020252
in vb.net with a small application you can reference the picture object and resize it programatically

Code:
CrystalDecisions.CrystalReports.Engine.PictureObject picobject;
picobject.ObjectFormat.EnableCanGrow = true
picobject.height = xx
picobject.top = xx
picobject.width = xx
picobject.left = xx

If you need more help let me know

0
 
LVL 1

Author Comment

by:craduza
ID: 12040638
i'm still working on the code...:) hope it will work.
0
 
LVL 1

Author Comment

by:craduza
ID: 12041127
i'm using VB6 with Crystal report 8
0
 
LVL 1

Author Comment

by:craduza
ID: 12042748
i've solved the prob. with my own style..:D

Dim thePicture As Object
Dim xRatio As Single, yRatio As Single

Set thePicture = LoadPicture("c:\windows\desktop\yahoo.bmp")

'calculate the ratio
xRatio = Picture1.Width / thePicture.Width
yRatio = Picture1.Height / thePicture.Height

'use the smallest ratio value to resize the original picture
If xRatio < yRatio Then
     Picture1.Width = CLng(thePicture.Width * xRatio)
     Picture1.Height = CLng(thePicture.Height * xRatio)
Else
    Picture1.Height = CLng(thePicture.Height * yRatio)
    Picture1.Width = CLng(thePicture.Width * yRatio)
End If

Set Picture1.FormattedPicture = LoadPicture("c:\temp\myPicture.bmp")
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Hot fix for .Net Crystal Reports 10.2.3600.0 to fix problems with sub reports running on 64 bit operating systems ISSUE: Reports which contain subreports fail with error "Missing Parameter Value" DEPLOYMENT SERVER OS: Windows 2008 with 64 bi…
Hello everyone, Hope you find this as helpful as we did. We have on the company I work for an application built in Delphi V with Crystal Reports 8. We all know that Crystal & Delphi can be temperamental sometimes and the worst thing is, nearly…
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Please read the paragraph below before following the instructions in the video — there are important caveats in the paragraph that I did not mention in the video. If your PaperPort 12 or PaperPort 14 is failing to start, or crashing, or hanging, …
Suggested Courses

850 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question