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

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 ImageEnVect1.MouseInteractVt := [miPutPolyline];

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

View 
UserName:
Password:
Format  Bold Italicized Underline  Align Left Centered Align Right  Horizontal Rule  Insert Hyperlink   Browse for an image to attach to your post Browse for a zip to attach to your post Insert Code  Insert Quote Insert List
   
Message 

 

Emoji
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Black Eye [B)]
Frown [:(] Shocked [:0] Angry [:(!] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
klausdoege Posted - Jan 26 2012 : 12:14:35
Hello,
I have a Problem with ImageEnVect1.MouseInteractVt := [miPutPolyline];
When I use only Layer0, everything is O.K., the line is to be seen.
Now,
ImageEnVect1.LayersAdd ();
ImageEnVect1.IEBitmap.Fill(clwhite,;
ImageEnVect1.MouseInteractVt := [miPutPolyline];
I see no line under the mouse more.
What I can do, so that looking the line at Layer1 is.

Klaus
www.klausdoege.de
2   L A T E S T    R E P L I E S    (Newest First)
klausdoege Posted - Jan 28 2012 : 14:00:49
Hello,
yes this works fine!
Thank you.

Klaus
www.klausdoege.de
fab Posted - Jan 26 2012 : 14:50:39
Hello,
the object is created into the layer specified by ObjLayer[].

So, your code should be:

ImageEnVect1.LayersAdd ();
ImageEnVect1.ObjLayer[-1] := ImageEnVect1.LayersCurrent;
ImageEnVect1.IEBitmap.Fill(clwhite); 
ImageEnVect1.MouseInteractVt := [miPutPolyline];


If you want create the object into currently selected layer then you have also to change ObjLayer[] whenever current layer changes. This can be done, for example, handling OnLayerNotify event:

procedure TForm1.ImageEnVect1LayerNotify(Sender: TObject; layer: Integer; event: TIELayerEvent);
begin
  if event = ielSelected then
    ImageEnVect1.ObjLayer[-1] := layer;
end;