Problem with OnItemImageClick

VCL TMS VCL UI Pack
1

Hello,

I just discovered bug in planner.pas that leads to a problem with OnItemImageClick. The Imageindex is not calculated correctly. I just looked into the source of planner.pas and discovered, that there is:
            iw := FPlanner.PlannerImages.Width;
instead of
            iw := FPlanner.PlannerImages.Width + 2;

at several places.
Also the dragcursor appears, when moving the mouse over a far right image.
You can easily reproduce that by adding about 10 images to the imagelist using for example
Planneritem.ImageIndexList.Add(1);
Planneritem.ImageIndexList.Add(1);
Planneritem.ImageIndexList.Add(1);
Planneritem.ImageIndexList.Add(1);
Planneritem.ImageIndexList.Add(1);
Planneritem.ImageIndexList.Add(1);
Planneritem.ImageIndexList.Add(1);
Planneritem.ImageIndexList.Add(1);
Planneritem.ImageIndexList.Add(1);
Planneritem.ImageIndexList.Add(1);

Then you wil lsee, that the dragcursor appears when moving the mouse over the last 1 or 2 images. Also an imageclick on the last image, where no dfragcursor apears, will give a wrong imageindex in OnItemImageClick.

I solved this problem for me by changing planner.pas, but I do not want to do it after every update, so polease take a look at this.
I do not use the last version so far, but I looked at it and the bug is still there.

Thanks
Helmut

2

Thanks for your feedback.
We can confirm this issue will be addressed in the next update.

3

Ok, thank you.