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
 Layers and MouseInteract
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

mhieta

Finland
75 Posts

Posted - Jul 24 2019 :  08:48:36  Show Profile  Reply
Hi,

I'm using ImageEn 8.6.0 now and I have few issues with Layers.
I have few buttons and here is the code from them:

  else if SpeedButton29.down then
  begin
    if not FullScreenwithMenu1.Checked then RightScrollBox.Visible := True;
    (ActiveMDIChild as TMDIChild).ImageEnView1.DeSelect;
    (ActiveMDIChild as TMDIChild).ImageEnView1.LayersDeselectAll();
    IEGlobalSettings().DefaultLayerShape := iesRectangle;
    (ActiveMDIChild as TMDIChild).ImageEnView1.MouseInteractLayers := [ mlCreateShapeLayers ];
    (ActiveMDIChild as TMDIChild).ImageEnView1.Cursor := 1785;
    PopupMenu1.AutoPopup := true;
  end

  else if SpeedButton25.down then
  begin
    if not FullScreenwithMenu1.Checked then RightScrollBox.Visible := True;
    (ActiveMDIChild as TMDIChild).ImageEnView1.DeSelect;
    (ActiveMDIChild as TMDIChild).ImageEnView1.LayersDeselectAll();
    (ActiveMDIChild as TMDIChild).ImageEnView1.MouseInteractLayers := [ mlMoveLayers, mlResizeLayers ];
    (ActiveMDIChild as TMDIChild).ImageEnView1.Cursor := 1785;
    PopupMenu1.AutoPopup := true;
  end

And if I do this:
  if (ActiveMDIChild as TMDIChild).ImageEnView1.Selected then
  begin
    (ActiveMDIChild as TMDIChild).ImageEnView1.LayersCreateFromSelection();
    (ActiveMDIChild as TMDIChild).ImageEnView1.Deselect;
    (ActiveMDIChild as TMDIChild).ImageEnView1.CurrentLayer.Selected:=True;
    (ActiveMDIChild as TMDIChild).ImageEnView1.Update;
  end;

Then if I select that SpeedButton25 I cannot make Layer Selection correctly, but if I do this in SpeedButton25:
(ActiveMDIChild as TMDIChild).ImageEnView1.MouseInteractLayers := [ mlCreateShapeLayers ];
(ActiveMDIChild as TMDIChild).ImageEnView1.MouseInteractLayers := [ mlMoveLayers, mlResizeLayers ];
Then I can move that created Layer. So is the better way to make Layer selection after creating Layer from selection?

xequte

4897 Posts

Posted - Jul 25 2019 :  04:32:32  Show Profile  Reply
Hi

Unfortunately there seems to be an issue in 8.6.0 where MouseInteractGeneral is not reset fully when setting MouseInteractLayers.

Please call:

ImageEnView1.MouseInteractGeneral := [];

Before:

ImageEnView1.MouseInteractLayers := [ mlMoveLayers, mlResizeLayers ];

Or email me for a source update.

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

mhieta

Finland
75 Posts

Posted - Jul 25 2019 :  07:00:08  Show Profile  Reply
Hi,

Ok, that ImageEnView1.MouseInteractGeneral := []; helped. Thanks.
I will email to you to receive latest fixes.

Regards Marko
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To: