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
 miMeasureLength or miMeasureRect stay hold on the image		  New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

Guido Cavalera

Italy
11 Posts
Posted - May 24 2026 :  03:21:30  Show Profile  Reply
Hi

If i draw a miMeasureLength or miMeasureRect on the image and after i do mouse-up (leave the key of mouse) MeasureLength hide BUT i want to keep it and to hide if i click another time on image ! I hope is clear :)

Thank you

Guido Cavalera

Italy
11 Posts
Posted - May 24 2026 :  09:50:48  Show Profile  Reply
... or can i manage MeasureLength as a layer in order to save it with image ? togheter other objects ?
Go to Top of Page

xequte

39489 Posts
Posted - May 24 2026 :  18:01:17  Show Profile  Reply
Hi Guido

You can just create a linelayer (miMeasureLength) or text layer (miMeasureRect) with RulerMode set to iermLabel:

http://www.imageen.com/help/TIELayer.RulerMode.html

When needed, just delete the layer.

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

xequte

39489 Posts
Posted - May 24 2026 :  18:02:44  Show Profile  Reply
You can use the OnNewLayer event (or LayerDefaults) to set the initial layer properties:

http://www.imageen.com/help/TImageEnView.OnNewLayer.html

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

Guido Cavalera

Italy
11 Posts
Posted - May 26 2026 :  02:16:59  Show Profile  Reply
ok but i must create layer after aitomatic MeasureLength draw in order to fix it on the image... what event i must use, OnMeasure ? i hope is clear
Go to Top of Page

xequte

39489 Posts
Posted - May 27 2026 :  00:15:52  Show Profile  Reply
No, I think you are better to use mlClickCreateLineLayers (measuring length) or mlCreateTextLayers (measuring rect) to recreate the same effect (but not automatically delete the layer).

http://www.imageen.com/help/TImageEnView.MouseInteractLayers.html

e.g. for a line measuring tool, set
ImageEnView1.MouseInteractLayers := [mlClickCreateLineLayers];


And add this event:
procedure TfrmMain.ImageEnView1NewLayer(Sender: TObject; LayerIdx: Integer; LayerKind: TIELayerKind);
var
  lineLayer: TIELineLayer;
begin
  if LayerKind = ielkLine then
  begin
    lineLayer := TIELineLayer( ImageEnView1.Layers[ LayerIdx ] );
    lineLayer.RulerMode := iermLabel;
    lineLayer.RulerUnits := ieuCentimeters;
    IEGlobalSettings().MeasureDecimalPlaces := 1;
    lineLayer.LabelPosition := ielpAutoAbove;
    lineLayer.StartShape := ieesBar;
    lineLayer.EndShape   := ieesBar;
  end;
end;



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

Guido Cavalera

Italy
11 Posts
Posted - May 27 2026 :  10:31:23  Show Profile  Reply
Hi, now go fine, thank you. Last thing : if i want to do same operation but with a rectangle with sides measurements ?
Go to Top of Page

xequte

39489 Posts
Posted - May 27 2026 :  23:02:04  Show Profile  Reply
Hi

It's basically the same, but a text layer:
ImageEnView1.MouseInteractLayers := [mlCreateTextLayers];



And add this event:
procedure TfrmMain.ImageEnView1NewLayer(Sender: TObject; LayerIdx: Integer; LayerKind: TIELayerKind);
var
  txtLayer: TIETextLayer;
begin
  if LayerKind = ielkText then
  begin
    txtLayer.RulerMode  := iermLabel;
    txtLayer.RulerUnits := ieuCentimeters;
    IEGlobalSettings().MeasureDecimalPlaces := 1;
  end;
end;

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

Guido Cavalera

Italy
11 Posts
Posted - May 27 2026 :  23:42:19  Show Profile  Reply
i tried it but is same thing of a line. I need a rectangle shape to measure the area of an object into.
Go to Top of Page

xequte

39489 Posts
Posted - May 27 2026 :  23:59:27  Show Profile  Reply
Sorry, are you using: ImageEnView1.MouseInteractLayers := [mlCreateTextLayers];

Here are some other examples:
// Add a measurement rectangle allowing the user to measure an area (in CM to one decimal place)
ImageEnView1.LayersAdd( ielkText, 100, 100, 250, 250 );
ImageEnView1.CurrentLayer.RulerMode  := iermLabel;
ImageEnView1.CurrentLayer.RulerUnits := ieuCentimeters;
IEGlobalSettings().MeasureDecimalPlaces := 1;
ImageEnView1.CurrentLayer.BorderWidth := 2;
ImageEnView1.CurrentLayer.BorderColor := clBlack;
ImageEnView1.CurrentLayer.FillColor   := clWhite;
ImageEnView1.CurrentLayer.FillOpacity := 0.5;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment := iejCenter;
ImageEnView1.LayerOptions := ImageEnView1.LayerOptions - [loShowRotationGrip];
ImageEnView1.Update();


// Add a measurement ellipse allowing the user to measure an area (in inches)
ImageEnView1.LayersAdd( ielkText, 100, 100, 250, 250 );
ImageEnView1.CurrentLayer.RulerMode  := iermLabel;
ImageEnView1.CurrentLayer.RulerUnits := ieuInches;
ImageEnView1.CurrentLayer.BorderWidth := 2;
ImageEnView1.CurrentLayer.BorderColor := clRed;
ImageEnView1.CurrentLayer.FillColor   := clWhite;
ImageEnView1.CurrentLayer.FillOpacity := 0.5;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderShape := iesEllipse;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout      := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment   := iejCenter;
ImageEnView1.LayerOptions := ImageEnView1.LayerOptions - [loShowRotationGrip];
ImageEnView1.Update();


Nigel
Xequte Software
www.imageen.com
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: