ImageEn, unit ievect

TIEMouseInteractVt


Declaration

TIEMouseInteractVtItems = (miArea, miLineLen, miPutLine, miPutBox, miPutEllipse, miPutBitmap, miPutText, miObjectSelect, miDragLen, miPutRuler, miPutPolyline, miPutAngle, miPutMemo, miPutLineLabel, miEditPolyline, miUnStampMode);
TIEMouseInteractVt = set of TIEMouseInteractVtItems;


Description

Value Description
miArea Rectangle/polygon area measurement
miLineLen Line length (or distance of two points)
miPutLine Insert a line object
miPutBox Insert a rectangle object
miPutEllipse Insert a ellipse/circle object
miPutBitmap Insert a bitmap object
miPutText Insert a text object
miObjectSelect Objects select or modify (resizing an object pressing ALT key the object will maintain the aspect ratio)
miDragLen Dynamically measure distance
miPutRuler Insert a ruler object
miPutPolyLine Insert a polyline, polygon or free hand painting (See also: PolylineEndingMode and PolylineClosingMode
miPutAngle Insert an angle measurement object (three single clicks)
miPutMemo Insert a multi line text object
miPutLineLabel Insert a line with a label
miEditPolyline Edit (add/move/delete) points of a polyline. Press CTRL to remove a point
miUnStampMode Single click doesn't insert a new object

Note: With miPutBox and miPutEllipse, insertion of a square or circle can be forced by holding the ALT key or use of ShiftKeyLock. With miPutLine, miPutRuler, miPutAngle and muPutPolyline, the effect of the ALT key is to force a 45 or 90 deg. angle


Transition Information

miArea ImageEnView1.MouseInteractLayers := [ mlCreateTextLayers ]; and set ImageEnView1.CurrentLayer.RulerMode := iermLabel; in TImageEnView.OnNewLayer TImageEnView.MouseInteractLayers
miLineLen No equivalent  
miPutLine ImageEnView1.MouseInteractLayers := [ mlClickCreateLineLayers ]; TImageEnView.MouseInteractLayers
miPutBox ImageEnView1.MouseInteractLayers := [ mlCreateShapeLayers ]; and set IEGlobalSettings().DefaultLayerShape := iesRectangle; (or use TImageEnView.OnNewLayer) TImageEnView.MouseInteractLayers
miPutEllipse ImageEnView1.MouseInteractLayers := [ mlCreateShapeLayers ]; and set IEGlobalSettings().DefaultLayerShape := iesEllipse; (or use TImageEnView.OnNewLayer) TImageEnView.MouseInteractLayers
miPutBitmap ImageEnView1.MouseInteractLayers := [ mlCreateImageLayers ]; TImageEnView.MouseInteractLayers
miPutText ImageEnView1.MouseInteractLayers := [ mlCreateTextLayers ]; and set TIETextLayer( ImageEnView1.CurrentLayer ).WordWrap := False; in TImageEnView.OnNewLayer TImageEnView.MouseInteractLayers
miObjectSelect ImageEnView1.MouseInteractLayer := [ mlMoveLayers, mlResizeLayers ] TImageEnView.MouseInteractLayers
miDragLen ImageEnView1.MouseInteractGeneral := [ miMeasureLength ]; TImageEnView.MouseInteractGeneral
miPutRuler ImageEnView1.MouseInteractLayers := [ mlClickCreateLineLayers ]; and set ImageEnView1.CurrentLayer.RulerMode := iermLabel; in TImageEnView.OnNewLayer TImageEnView.MouseInteractLayers
miPutPolyLine ImageEnView1.MouseInteractLayers := [ mlClickCreatePolylineLayers ]; TImageEnView.MouseInteractLayers
miPutAngle ImageEnView1.MouseInteractLayers := [ mlClickCreateAngleLayers ]; TImageEnView.MouseInteractLayers
miPutMemo ImageEnView1.MouseInteractLayers := [ mlCreateTextLayers ]; TImageEnView.MouseInteractLayers
miPutLineLabel ImageEnView1.MouseInteractLayers := [ mlClickCreateLineLayers ]; TImageEnView.MouseInteractLayers
miEditPolyline ImageEnView1.MouseInteractLayers := [ mlEditLayerPoints ]; TImageEnView.MouseInteractLayers
miUnStampMode ImageEnView1.LayerOptions := ImageEnView1.LayerOptions - [ loStampMode ]; loStampMode