In the event imgViewNewLayer(...), when draw a line with mouse, is possible to show the label on the position as showed in the image attached ? at start or end of line (is same)
My code is
procedure TfrmMain.imgViewNewLayer(Sender: TObject; LayerIdx: Integer; LayerKind: TIELayerKind);
var lineLayer: TIELineLayer;
txtLayer: TIETextLayer;
begin
If(rgrToolType.ItemIndex = 0)AND(LayerKind = ielkLine)Then Begin
lineLayer:=TIELineLayer(imgView.Layers[LayerIdx]);
lineLayer.RulerMode:=iermLabel;
lineLayer.RulerUnits:=ieuMillimeters;
IEGlobalSettings().MeasureDecimalPlaces:=1;
lineLayer.StartShape:=ieesBar;
lineLayer.EndShape:=ieesBar;
lineLayer.LineColor:=clRed;
lineLayer.LineWidth:=2;
lineLayer.LabelPosition:=ielpAutoAbove;
lineLayer.LabelFont.Size:=6;
lineLayer.LabelFont.Color:=clRed;
//lineLayer.LabelText:= IntToStr(LayerIdx); // occorre settare RulerMode:=iermNone;
lineLayer.Selected:=False; // altrim mi crea il contorno tratteggiato di selezione
Thank you
Search
