ImageEnView 设置图层的默认值

2020-09-11

ImageEnView1.LayerDefaults.Clear();
ImageEnView1.LayerDefaults.Add( IELP_BorderColor +'=$008000FF' );
ImageEnView1.LayerDefaults.Add( IELP_BorderWidth +'=3' );
ImageEnView1.LayersAdd( 'C:\New Zealand.jpg' ); // Added image will have a pink border


// Allow the user to create, size and rotate red arrows
ImageEnView1.LayerDefaults.Clear();
ImageEnView1.LayerDefaults.Add( IELP_LineColor +'=clRed' );
ImageEnView1.LayerDefaults.Add( IELP_LineWidth +'=6' );
ImageEnView1.LayerDefaults.Add( IELP_LineShapeSize +'=20' );
ImageEnView1.LayerDefaults.Add( IELP_LineStartShape +'=1' );
ImageEnView1.LayerDefaults.Add( IELP_Rotate +'=235' );
ImageEnView1.LayerOptions := ImageEnView1.LayerOptions + [ loShowRotationGrip ];
ImageEnView1.MouseInteractLayers := [ mlCreateLineLayers, mlMoveLayers, mlResizeLayers, mlRotateLayers ];


// Allow users to draw rulers (lines with measurement values)
With ImageEnView1.LayerDefaults do
begin
   Clear();
   Add( IELP_IsRuler + '=True' );
   Add( IELP_RulerUnits + '=' + IntToStr( ord( ieuCentimeters )));
   Add( IELP_LabelPosition + '=' + IntToStr( ord( ielpAutoAbove )));
   Add( IELP_LineStartShape + '=' + IntToStr( ord( ieesBar )));
   Add( IELP_LineEndShape + '=' + IntToStr( ord( ieesBar )));
   Add( IELP_LineWidth + '= 2' );
end;
IEGlobalSettings().MeasureDecimalPlaces := 1;
ImageEnView1.MouseInteractLayers := [ mlClickCreateLineLayers, mlEditLayerPoints ];

阅读140