Undo/Redo设计(四)

 2.5        排列操作
排列操作可细分为水平/垂直方向的最小、最大、中间、等距及窗口中点方式。同样，基于撤销与重做需求来处理其额外信息。
若要撤销排列操作，则需记住排列前各对象的位置，如其上端、左端、中心点值等信息，当然，记住其中一个信息即可。
是吗？如果是水平方向排列，记住左端当然可以撤销，但对于垂直方向而言，毫无意义。
因此，应该记下中心点值信处，这样，水平垂直方向都可以撤销。
嗨，中心点值是二维的，而上端或左端只是一维的，当然是不等价的。如果不记中心点值，同时记下左端与上端信息，效果才是一样一样的。
若要重做排列操作，呃，好象不需要处理什么，只需再排列一次即可。
基于此分析，应在开始排列之前记录所选对象的位置信息，故可在TCbwExecuteItem::SetOperateObject中处理，即直接加入流入XML节点处理

void __fastcall TCbwExecuteItem::SetOperateObject(TCompoundMeta * object) { // 设置被操作对象 FlushVector(FOperateObjects->SubObjects, false); CBW_ITERATOR(CbwObjects, object->SubObjects) FOperateObjects->AddObject(*it); if(FExecuteType >= cetLeft && FExecuteType <= cetVCenterWindow) // 排列操作前处理 Finish(); } void __fastcall TCbwExecuteItem::Finish() { … if(FExecuteType >= cetLeft && FExecuteType <= cetVCenterWindow) // 排列操作前处理 { CBW_ITERATOR(CbwObjects, FOperateObjects->SubObjects) { if(dynamic_cast<TWire *>(*it)) continue; // 不处理导线位置信息 CbwXmlNode * destNode = FXmlNode->AddElement("item"); destNode->AddAttribute("Name", GetPropValue(*it, "Name")); // 名称 destNode->AddAttribute("Locator", GetPropValue(*it, "Locator")); // 定位符 destNode->AddAttribute("x", (*it)->CentralPoint.x); // 中心点横坐标 destNode->AddAttribute("y", (*it)->CentralPoint.y); // 中心点纵坐标 } } }

撤销时处理代码：

if(item->ExecuteType >= cetLeft && item->ExecuteType <= cetVCenterWindow) { // 排列操作 for(int i = 0; i < item->XmlNode->ElementNumber; ++i) { CbwXmlNode * destNode = item->XmlNode->Elements(i); AnsiString name = destNode->AttributeValueByName("Name"); AnsiString locator = destNode->AttributeValueByName("Locator"); double originX = destNode->AttributeValueByName("x", "0").ToDouble(); double originY = destNode->AttributeValueByName("y", "0").ToDouble(); if(locator.Length()) name += "_CBW_" + locator; TCbwObject * object = FindObjectByName(name); if(object) { double x = object->CentralPoint.x, y = object->CentralPoint.y; double dx = (originX - x) / Ratio, dy = (originY - y) / Ratio; object->DragBy(dx, dy, true); } } return; }

重做时代码：
if(item->ExecuteType >= cetLeft && item->ExecuteType <= cetVCenterWindow) { // 排列操作 cSelectedObjects->Selected = false; for(int i = 0; i < item->XmlNode->ElementNumber; ++i) { CbwXmlNode * destNode = item->XmlNode->Elements(i); AnsiString name = destNode->AttributeValueByName("Name"); AnsiString locator = destNode->AttributeValueByName("Locator"); if(locator.Length()) name += "_CBW_" + locator; TCbwObject * object = FindObjectByName(name); if(object) { object->Selected = true; cSelectedObjects->AddObject(object); } } cSelectedObjects->Align(item->ExecuteType); }

运行查看结果，结果撤销时，导线出现小问题，即不能全部恢复原始状态。
下图显示的是具体运行效果，左图为原始状态，中图为水平左端对齐，右图为撤销结果。可以看到，撤销后，导线没有处理好。
看来还需要专门处理一下导线。
为了能撤销到原始状态，则需把相关的导线全部取出来。所幸软件是自己编的，要什么东东都可以很方便地取得。以前的函数AllConnectedObjects现在可又多了一个用处。
思路继续，在操作时，取得了相关的导线，然后将它们的信息保存，在撤销时，再取得现在的相关导线，全部删除，再恢复以前的相关导线，万事就OK了。
重做呢？哦，既然已回到起点，结果状态又是排列过程算出来的，就不用再处理了。
编程试试。

void __fastcall TCbwExecuteItem::Finish() { … if(FExecuteType >= cetLeft && FExecuteType <= cetVCenterWindow) // 排列操作前处理 { CbwObjects allRelativeWires; AllConnectedObjects(FOperateObjects->SubObjects, allRelativeWires, "", 0); // 所有相关导线 CBW_ITERATOR(CbwObjects, FOperateObjects->SubObjects) { if(dynamic_cast<TWire *>(*it)) continue; CbwXmlNode * destNode = FXmlNode->AddElement("item"); destNode->AddAttribute("Name", GetPropValue(*it, "Name")); // 名称 destNode->AddAttribute("Locator", GetPropertyValue(*it, "Locator")); // 定位符，对于元件而言有用 destNode->AddAttribute("x", (*it)->CentralPoint.x); // 中心点横坐标 destNode->AddAttribute("y", (*it)->CentralPoint.y); // 中心点纵坐标 } CBW_ITERATOR(CbwObjects, allRelativeWires) { // 处理相关导线：保存其原始位置 TWire * wire = dynamic_cast<TWire *>(*it); if(!wire) continue; CbwXmlNode * destNode = FXmlNode->AddElement("wire", wire->PositionInfo(NULL)); destNode->AddAttribute("Name", wire->Name); } } } 撤销时，加上对导线的处理 if(item->ExecuteType >= cetLeft && item->ExecuteType <= cetVCenterWindow) { // 排列操作 cSelectedObjects->Selected = false; CbwObjects initialObjects; for(int i = 0; i < item->XmlNode->ElementNumber; ++i) { // 取得所有相关导线 CbwXmlNode * destNode = item->XmlNode->Elements(i); AnsiString name = destNode->AttributeValueByName("Name"); AnsiString locator = destNode->AttributeValueByName("Locator"); if(locator.Length()) name += "_CBW_" + locator; TCbwObject * object = dynamic_cast<TWire *>(FindObjectByName(name)); AddItemToVector(cSelectedObjects->SubObjects, object); } DeleteSelectedObjects(); // 删除现有相关导线 for(int i = 0; i < item->XmlNode->ElementNumber; ++i) { CbwXmlNode * destNode = item->XmlNode->Elements(i); AnsiString name = destNode->AttributeValueByName("Name"); AnsiString locator = destNode->AttributeValueByName("Locator"); double originX = destNode->AttributeValueByName("x", "0").ToDouble(); double originY = destNode->AttributeValueByName("y", "0").ToDouble(); if(locator.Length()) name += "_CBW_" + locator; TCbwObject * object = FindObjectByName(name); if(object && SameText(destNode->Name, "item")) { double x = object->CentralPoint.x, y = object->CentralPoint.y; double dx = (originX - x) / Ratio, dy = (originY - y) / Ratio; if(dx || dy) object->DragBy(dx, dy, true); } if(SameText(destNode->Name, "wire")) // 恢复原相关导线 CreateWireByInfo(destNode->Value); } return; }

再运行检查，得到了期望的结果。
下图中，第一张图为原始图，全选后左对齐得到第二张图，再上对齐得到第三张图，撤销得到第四张图，再撤销得到第五张图。