Author |
Topic |
|
pierrotsc
USA
497 Posts |
Posted - Apr 17 2018 : 10:24:53
|
How do you make that disappear when your cursor is off the imageen boundaries ? Right now, the hint just stay there and does not move. I am using xx := ImageEnView1.XScr2Bmp(X); yy := ImageEnView1.yscr2bmp(Y); if (xx >= 0) and (xx < ImageEnView1.IEBitmap.Width) and (yy >= 0) and (yy < ImageEnView1.IEBitmap.Height) then begin ImageEnView1.SetInteractionHint(Format('%d %d', [xx, yy]), X, Y, '0000 0000'); ImageEnView1.Paint(); end else....What do i need to write here ?
Thanks
|
|
w2m
USA
1990 Posts |
Posted - Apr 17 2018 : 10:35:13
|
Are you getting XY correctly? iX := ImageEnView.Layers[ImageEnView.LayersCurrent].ConvXScr2Bmp(X); iY := ImageEnView.Layers[ImageEnView.LayersCurrent].ConvYScr2Bmp(Y); or iX := ImageEnView.XScr2Bmp(X); iY := ImageEnView.YScr2Bmp(Y);
in else block try setting hint to ''.
else begin ImageEnView1.SetInteractionHint(Format('%d %d', [xx, yy]), iX, iY, ' '); ImageEnView1.Paint(); end;
Bill Miller Adirondack Software & Graphics Email: w2m@hughes.net EBook: http://www.imageen.com/ebook/ Custom Commercial ImageEn Development |
|
|
pierrotsc
USA
497 Posts |
Posted - Apr 17 2018 : 10:42:48
|
Super. the code below did it ImageEnVect.SetInteractionHint('', X, Y, ''); ImageEnVect.Paint();
Did not think about that Best |
|
|
xequte
38127 Posts |
Posted - Apr 22 2018 : 20:22:00
|
I'll improve the documentation.
Nigel Xequte Software www.imageen.com
|
|
|
|
Topic |
|
|
|