diff --git a/cad_source/zcad/core/drawings/uzcdrawing.pas b/cad_source/zcad/core/drawings/uzcdrawing.pas index d3e2e39dc..be04614a5 100644 --- a/cad_source/zcad/core/drawings/uzcdrawing.pas +++ b/cad_source/zcad/core/drawings/uzcdrawing.pas @@ -43,7 +43,7 @@ interface procedure onUndoRedo; procedure onUndoRedoDataOwner(PDataOwner:Pointer); - //procedure SetCurrentDWG;virtual; + procedure SetCurrentDWG;virtual; function StoreOldCamerapPos:Pointer;virtual; procedure StoreNewCamerapPos(command:Pointer);virtual; //procedure SetEntFromOriginal(_dest,_source:PGDBObjEntity;PCD_dest,PCD_source:PTDrawingPreCalcData); @@ -136,10 +136,10 @@ procedure TZCADDrawing.SetUnitsFormat(f:TzeUnitsFormat); sysvar.DWG.DWG_UnitMode^:=f.umode; end; -{procedure TZCADDrawing.SetCurrentDWG(); +procedure TZCADDrawing.SetCurrentDWG(); begin drawings.SetCurrentDWG(@self); -end;} +end; function TZCADDrawing.StoreOldCamerapPos:Pointer; begin result:=TGDBCameraBasePropChangeCommand.CreateAndPushIfNeed(UndoStack,GetPcamera^.prop,nil,nil)