Now I can replicate, thank you!
It will be fixed in next release.
You can fix now opening imageenview.pas and replacing following methods:
function TIELayer.ConvXScr2Bmp(x:integer):integer;
var
ieview: TImageEnView;
begin
ieview := (fOwner as TImageEnView);
if Width <> 0 then
result := trunc( 1.0 * ieview.XScr2Bmp(x - trunc(PosX * ieview.fZoomD100X)) * Bitmap.Width / Width )
else
result := 0;
end;
function TIELayer.ConvYScr2Bmp(y:integer):integer;
var
ieview: TImageEnView;
begin
ieview := (fOwner as TImageEnView);
if Height <> 0 then
result := trunc( 1.0 * ieview.YScr2Bmp(y - trunc(PosY * ieview.fZoomD100Y)) * Bitmap.Height / Height )
else
result := 0;
end;
function TIELayer.ConvXBmp2Scr(x:integer):integer;
var
ieview: TImageEnView;
begin
ieview := (fOwner as TImageEnView);
result := ieview.XBmp2Scr(trunc(1.0 * x * Width / Bitmap.Width)) + trunc(PosX * ieview.fZoomD100X);
end;
function TIELayer.ConvYBmp2Scr(y:integer):integer;
var
ieview: TImageEnView;
begin
ieview := (fOwner as TImageEnView);
result := ieview.YBmp2Scr(trunc(1.0 * y * Height / Bitmap.Height)) + trunc(PosY * ieview.fZoomD100Y);
end;
Search
