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;