DELPHI AREA Forum

Hi, I have installed with success last version of Print Preview on my Delphi 2006. When I try to compile "General Demo" I have a problem. You can see it on image.
The problem is on line 5745 of Preview.pass file.

I have also try to make a new sample application with a TPrintPreview and a TThumbnailPreview but I have the some error.

Can you help me.

Have you installed the latest updates of your Delphi? Seems on Delphi 2006, Item.Index of the virtual TreeView returns the wrong number.

Hi,

Kambiz wrote:Have you installed the latest updates of your Delphi? Seems on Delphi 2006, Item.Index of the virtual TreeView returns the wrong number.

i have the same problem. I use version 5.12 and Delphi 7

markbolten

It's good that the bug occurs on Delphi 7 too because it's easier for me to track it.

I'll check it out.

I couldn't regenerate the problem.

Anyway, I guess the problem is inside the Thumbnail drawing routine and because of that I checked range of Item.Index to prevent exception (get v5.13). I hope this fixes the problem.

Kambiz wrote:I couldn't regenerate the problem.

Anyway, I guess the problem is inside the Thumbnail drawing routine and because of that I checked range of Item.Index to prevent exception (get v5.13). I hope this fixes the problem.

Hi,
the problem is still available!
Now i get a EAcessViolation error (see Image)



or

I could see the exception.

Search for the following line in Preview.Pas (line #7564)

Code: Select all

  if Stage <> cdPrePaint then Exit;

and replace it with this one

Code: Select all

  if (Stage <> cdPrePaint) or (Item = nil) or (Item.Index < 0) or (Item.Index >= Items.Count) then Exit;

Actually the Item should never be nil or having junk index. It is apparently because of a bug in ComCtrl 5 of XP.

The bug is fixed.

Thanks