DK11 for Delphi | GisLayerVector.TGIS_Shape.Lock | Constructors | Fields | Methods | Properties
Lock a shape.
// Delphi public procedure Lock( const _lock : TGIS_Lock ); virtual;
// C++ Builder public: virtual void Lock( TGIS_Lock* const _lock );
Name | Type | Description |
---|---|---|
_lock | TGIS_Lock | TGIS_Lock.None - unlocked; TGIS_Lock.Extent - extent locked; TGIS_Lock.Projection - extent locked and projections turned off |
procedure MyForm.FormCreate(); var shp : TGIS_Shape; lk : TGIS_LayerVector; begin // let's create a new layer lk:=TGIS_LayerVector.Create; GIS.Add(lk); // let's create a new shape on our layer shp := lk.CreateShape( TGIS_ShapeType.Point ) ; // if successfully, let's lock, edit and unlock our shape if assigned( shp ) then begin shp.Lock( TGIS_Lock.Extent ) ; shp.AddPart ; shp.AddPoint( GisPoint( 3,3 ) ) ; shp.Params.Area.Color:=clBlack; shp.Unlock ; end;