ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
Forum membership is Free!  Click Join to sign-up
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 ImageEnVect.MouseInteract changes
 New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

rswyman@docuxplorer.com

USA
156 Posts

Posted - Aug 25 2020 :  07:40:36  Show Profile  Reply
Hi All,

We use the code below to enable a mangniferGlass. How should the
code below be reprogrammed or what is the replacement for code for
ImageEnVect.MouseInteract := [miMoveLayers, miResizeLayers];

procedure TImagEnFrm.MagnifierGlassCreate(x,y:integer);
var
  P:TPoint;
begin
  p.x := x;
  p.y := y;
  P := ImageEnVect.ScreenToClient(p);
  ImageEnVect.LayersDrawBox := true;
  x := ImageEnVect.Layers[0].ConvXScr2Bmp ( p.X );
  y := ImageEnVect.Layers[0].ConvYScr2Bmp ( p.Y );
  if _MagnifyLayer = 0 then begin
    _MagnifyLayer := ImageEnVect.LayersCount;
    ImageEnVect.LayersAdd;
    ImageEnVect.Layers[_MagnifyLayer].Magnify.Rate := 
ApplicationSettings.ImageProcessing.ByName('ImageMagnifyZoom').Value;
    ImageEnVect.Layers[_MagnifyLayer].VisibleBox := true;
    ImageEnVect.Layers[_MagnifyLayer].Width := 
ApplicationSettings.ImageProcessing.ByName('ImageMagnifyWidth').Value;
    ImageEnVect.Layers[_MagnifyLayer].Height := 
ApplicationSettings.ImageProcessing.ByName('ImageMagnifyHeight').Value;
    ImageEnVect.Layers[_MagnifyLayer].Magnify.Enabled := true;
    ImageEnVect.Layers[_MagnifyLayer].Magnify.Style := iemRectangle;
    ImageEnVect.Layers[_MagnifyLayer].Magnify.Source := iemBackgroundLayer;
    ImageEnVect.Layers[_MagnifyLayer].drawOuter := false;
    ImageEnVect.Layers[_MagnifyLayer].VisibleBox := true;
  end;
  ImageEnVect.Layers[_MagnifyLayer].Posy := y ;
  ImageEnVect.Layers[_MagnifyLayer].Posx := x;
  ImageEnVect.MouseInteract := [miMoveLayers, miResizeLayers]; //now broken
 
  dxMagnifyZoom.Value := ImageEnVect.Layers[_MagnifyLayer].Magnify.Rate ;
  // show it
  ImageEnVect.Layers[_MagnifyLayer].Visible := True;
  ImageEnVect.LayersCurrent := 0;
  ImageEnVect.Update;
end;

Thanks
Ron

xequte

38128 Posts

Posted - Aug 25 2020 :  16:07:07  Show Profile  Reply
Hi Ron

Please change this line:
ImageEnVect.MouseInteract := [miMoveLayers, miResizeLayers];


To:
ImageEnVect.MouseInteractLayers := [mlMoveLayers, mlResizeLayers];


The rest should be the same.

https://www.imageen.com/help/Compatibility.html

Nigel
Xequte Software
www.imageen.com
Go to Top of Page

rswyman@docuxplorer.com

USA
156 Posts

Posted - Aug 25 2020 :  16:08:47  Show Profile  Reply
great thx!
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: