alexey-t / atimagebox-lazarus Goto Github PK

Hi Alexey,

I'm using ATImageBox from "Online Package Manager"

When I drag the image and there are no horizontal or vertical scroller, there are strange result.
Is there a possibility to block the dragging of the image
horizontally (when there are no horizontal scroller)
vertically (when there are no vertical scroller)

ATW := ATImageBox .Width;
ATH := ATImageBox .Height;
IW := ATImageBox .ImageWidth;
IH := ATImageBox .ImageHeight;
ZF := ATImageBox .ImageZoom;
IRW := Round( IW * ( ZF / 100.0 ) );
IRH := Round( IH * ( ZF / 100.0 ) );
if ( IRW < ATW ) then no horizontal pan
if ( IRH < ATH ) then no vertical pan

But I don't know if it is possible :)

Thank you anyway for that package.

todo.

I'm giving this component a try in a machine learning annotation tool for marking objects in a picture.
It would be nice if the zooming would sort of fix the current mouse position so you would not lose track of the part of the image you are wanting to zoom in.
IrfanView has this feature, and I'd like to reproduce the same behaviour in ATImageBox.
Any ideas?

todo.