Bug in Picshow component ???

[Terry]

Hello,

I initialize PicShow compoenent with following details:

PicShow.Picture.LoadFromFile('C:\1.BMP'); // dimensions are 704 x 576
PicShow.Picture.Bitmap.PixelFormat := pf24bit;
PicShow.StyleName := 'Fade';

Now when I try to do this:
PicShow.Execute;

I get Access Violation error message @ line 567 in PSEffect module. I'm getting this error only when I select 'Fade' style. Please help me in fixing this issue.

Regards,

Terry Bogard

[Kambiz]

You do not need to set the bitmap format as follow.

[Terry]

Hi,

I'm using Picshow v3.05 in Delphi 7 and operating system is Windows XP Professional 2002 Service Pack 1. I'm also attaching one of the BMPs.


There is also another bug in PicShow component and its details are as follows:

when i try to assign a transition effect by setting StyleName property I get Access Voilation error message. I have fixed this bug by modifying line 614 in procedure TCustomPicShow.SetStyleName. The old code was:

for TheStyle := Low(TShowStyle) to High(TShowStyle) do

The modified version is:

for TheStyle := 1 to High(TShowStyle) do

Kind Regards,

Terry

[Kambiz]

Thank you so much for the bug fix.

I guess the first reported AV exception was related to the second one, because on my machine your code works without any problem.

Are you still getting the AV exception?

[Terry]

I'm really sorry that I missed an important point while stating the problem. The problem occurs on selective Styles e.g. Fade. Following is the exact code I'm testing:

PicShow.Picture.LoadFromFile('c:\1.bmp'); // it is the same bmp i have uploaded earlier
PicShow.StyleName := 'Fade';
PicShow.Execute;

// Access Voilation error message

[Kambiz]

I tried your code with the attached image, and there was no problem at all.

Please try to delete all PicShow's dcu files and rebuild your package. It may solve the problem.