TIEGlobalSettings.MeasureDecimalPlaces

Declaration

property MeasureDecimalPlaces: Integer;

Description

Specifies how decimal places to show when displaying units, such as for TIELineLayer in ruler mode.

Default: 2

Typical results if MeasureDecimalPlaces = 2:
◼0.00012345 mm displays as 0.00012 mm
◼0.0012345 mm displays as 0.0012 mm
◼0.012345 mm displays as 0.012 mm
◼0.12345 mm displays as 0.12 mm
◼1.2345 mm displays as 1.23 mm
◼12.345 mm displays as 12.34 mm
◼123.45 mm displays as 123.45 mm

Example

// Add a ruler layer to a TImageEnView showing lengths in CM to one decimal place
ImageEnView1.LayersAdd( ielkLine , 100, 100, 250, 250 );
ImageEnView1.CurrentLayer.RulerMode := iermLabel;
ImageEnView1.CurrentLayer.RulerUnits := ieuCentimeters;
IEGlobalSettings().MeasureDecimalPlaces := 1;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelPosition := ielpAutoAbove;
TIELineLayer( ImageEnView1.CurrentLayer ).StartShape := ieesBar;
TIELineLayer( ImageEnView1.CurrentLayer ).EndShape   := ieesBar;
ImageEnView1.Update();


// 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;
IEGlobalSettings().MeasureDecimalPlaces := 2;
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();

See Also

◼DefaultMeasureUnit
◼MeasureUnits
◼RulerUnits

---