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
 miMeasureLength or miMeasureRect stay hold on the image

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
Guido Cavalera Posted - May 24 2026 : 03:21:30
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
9   L A T E S T    R E P L I E S    (Newest First)
xequte Posted - May 27 2026 : 23:59:27
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
Guido Cavalera Posted - May 27 2026 : 23:42:19
i tried it but is same thing of a line. I need a rectangle shape to measure the area of an object into.
xequte Posted - May 27 2026 : 23:02:04
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
Guido Cavalera Posted - May 27 2026 : 10:31:23
Hi, now go fine, thank you. Last thing : if i want to do same operation but with a rectangle with sides measurements ?
xequte Posted - May 27 2026 : 00:15:52
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
Guido Cavalera Posted - May 26 2026 : 02:16:59
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
xequte Posted - May 24 2026 : 18:02:44
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
xequte Posted - May 24 2026 : 18:01:17
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
Guido Cavalera Posted - May 24 2026 : 09:50:48
... or can i manage MeasureLength as a layer in order to save it with image ? togheter other objects ?