// cpXceptions.pas — TXceptions.Create
constructor TXceptions.Create;
var
   i : integer;
   PropValue : TSL_PropValue;
begin
   inherited Create;
   PropName := 'Macros';
   self.Required := 2;
   IncludedMacros := [];
   IncludedHolLists := [];
   PropValue.xt := Default(TXtensionIdRecList);
   with PropValue do
        begin
        for i := 1 to MAX_NUM_XTENSIONS do
            begin
            xt[i].Activated := False;
            xt[i].TableId := 0;
            end;
        end;
   self.DataValue := PropValue;
   self.FillDisplayValue;
end;
 
// cpXceptions.pas — TXceptions.CreateBlobItem
function TXceptions.CreateBlobItem: TBlobItem;
begin
   // create the appropriate blob item
   result := TMacroBlobItem.Create(self.Parent);
end;
 
// cpXceptions.pas — TXceptions.ReadBlobItemsFromXML
procedure TXceptions.ReadBlobItemsFromXML(const propertyNode: TXmlNode);
var
   node, node2, node3, node4 : TXmlNode;
   aPropValue : TSL_PropValue;
   curTokIdx : integer;
   aBlobItem : TMacroBlobItem;
   aBlobRec : TMacroBlobRec;
begin
   ClearListBlobItems;
 
   aPropValue := self.DataValue; // keep any non-default values initialized in the constructor
 
   // initialize these which will be read in the blob items
   for curTokIdx := low(TXtensionIdRecList) to high(TXtensionIdRecList) do
       begin
       node := propertyNode.Find('MacroIndex', 'id', curTokIdx.toString);
       if node <> nil then
          begin
          aBlobItem := TMacroBlobItem.Create(self.Parent);
          aBlobItem.TokId := curTokIdx;
 
          aBlobRec := Default(TMacroBlobRec);
          // contents of the TMacroBlobRec
          aBlobRec.TokId := curTokIdx;
          ReadNodeValue(node, 'Activated', aBlobRec.Activated);
          ReadNodeValue(node, 'MacroTableId', aBlobRec.TableId);
          // these 2 values are duplicated in the propValue and the BlobItem
          aPropValue.xt[curTokIdx].Activated := aBlobRec.Activated;
          aPropValue.xt[curTokIdx].TableId := aBlobRec.TableId;
 
          ReadNodeValue(node, 'InitCRC', aBlobRec.InitCRC);
          ReadNodeValue(node, 'strInitialConditions', aBlobRec.strInitialConditions);
 
          node2 := node.Find('ResultingActionsIfTrue');
          if node2 <> nil then
             begin
             node3 := node2.Find('TextActions'); if node3 <> nil then aBlobRec.TextActions.ReadFromXML(node3);
             node3 := node2.Find('BoxActions'); if node3 <> nil then aBlobRec.BoxActions.ReadFromXML(node3);
             if aBlobRec.BoxActions.ActionType = xbaZorder then
                begin
                node4 := node3.Find('BoxZorder'); if node4 <> nil then aBlobRec.BoxZorder.ReadFromXML(node4);
                end;
             if aBlobRec.BoxActions.ActionType = xbaModifyText then
                begin
                node4 := node3.Find('BoxText'); if node4 <> nil then aBlobRec.BoxText.ReadFromXML(node4);
                end;
             if aBlobRec.BoxActions.ActionType = xbaUseImage then
                begin
                node4 := node3.Find('Image'); if node4 <> nil then aBlobRec.Image.ReadFromXML(node4);
                end;
             ReadNodeValue(node2, 'IntAction', aBlobRec.IntActionIfTrue);
             end;
 
          node2 := node.Find('ResultingActionsIfFalse');
          if node2 <> nil then
             begin
             node3 := node2.Find('TextActions'); if node3 <> nil then aBlobRec.TextActionsIfFalse.ReadFromXML(node3);
             node3 := node2.Find('BoxActions'); if node3 <> nil then aBlobRec.BoxActionsIfFalse.ReadFromXML(node3);
             if aBlobRec.BoxActionsIfFalse.ActionType = xbaZorder then
                begin
                node4 := node3.Find('BoxZorder'); if node4 <> nil then aBlobRec.BoxZorderIfFalse.ReadFromXML(node4);
                end;
             if aBlobRec.BoxActionsIfFalse.ActionType = xbaModifyText then
                begin
                node4 := node3.Find('BoxText'); if node4 <> nil then aBlobRec.BoxTextIfFalse.ReadFromXML(node4);
                end;
             if aBlobRec.BoxActionsIfFalse.ActionType = xbaUseImage then
                begin
                node4 := node3.Find('Image'); if node4 <> nil then aBlobRec.ImageIfFalse.ReadFromXML(node4);
                end;
             ReadNodeValue(node2, 'IntAction', aBlobRec.IntActionIfFalse);
             end;
 
          // lastly ...
          aBlobItem.BlobRec := aBlobRec;
          ListBlobItems.AddObject(aBlobItem.DisplayName, aBlobItem);
          end;
       end;
 
   self.DataValue := aPropValue;
 
   // at the end;
   self.FillDisplayValue;
end;
 
// cpXceptions.pas — TXceptions.SaveBlobItemsToXML
procedure TXceptions.SaveBlobItemsToXML(const propertyNode: TXmlNode);
var
   i : integer;
   node, node2, node3, node4 : TXmlNode;
   curBlobItem : TMacroBlobItem;
   curBlobRec : TMacroBlobRec;
   curTokId: Integer;
   listOrderedBlobItems : TStringList;
begin
   // to be able to compare the saved XMLs from one run to the next
   // we need to make sure the BlobItems are saved in the order of
   // the macro indices (*1, *2, *3, ...) not in the arbitrary order
   // of the ListBlobItems
   listOrderedBlobItems := TStringList.Create;
   try
   // create ordered list
   for i := 0 to pred(ListBlobItems.Count) do
       begin
       CurBlobItem := TMacroBlobItem(ListBlobItems.Objects[i]);
       curTokId := CurBlobItem.TokId;
       listOrderedBlobItems.AddObject(FormatFloat('000000', curTokId), CurBlobItem);
       end;
   listOrderedBlobItems.Sort;
   // iterate through the ordered list
   for i := 0 to pred(listOrderedBlobItems.Count) do
       begin
       CurBlobItem := TMacroBlobItem(listOrderedBlobItems.Objects[i]);
       curTokId := CurBlobItem.TokId;
       node := propertyNode.AddChild('MacroIndex').SetAttribute('id', curTokId.toString);
       node.SetAttribute('rec_type', 'TMacroBlobItem');
 
       node2 := node.AddChild('Activated');
       node2.Text := BoolToString(CurBlobItem.Activated);
       node2 := node.AddChild('MacroTableId');
       node2.Text := IntToStr(CurBlobItem.TableId);
 
       node2 := node.AddChild('InitCRC');
       node2.Text := IntToStr(CurBlobItem.InitCRC);
 
       curBlobRec := CurBlobItem.BlobRec;
 
       node2 := node.AddChild('strInitialConditions');
       node2.Text := curBlobRec.strInitialConditions;
 
       node2 := node.AddChild('ResultingActionsIfTrue').SetAttribute('rec_type', 'TMacroResultingActions');
                node3 := node2.AddChild('TextActions');
                curBlobRec.TextActions.SaveToXML(node3);
                node3 := node2.AddChild('BoxActions');
                curBlobRec.BoxActions.SaveToXML(node3);
                if curBlobRec.BoxActions.ActionType = xbaZorder then
                   begin
                   node4 := node3.AddChild('BoxZorder');
                   curBlobRec.BoxZorder.SaveToXML(node4);
                   end;
                if curBlobRec.BoxActions.ActionType = xbaModifyText then
                   begin
                   node4 := node3.AddChild('BoxText');
                   curBlobRec.BoxText.SaveToXML(node4);
                   end;
                if curBlobRec.BoxActions.ActionType = xbaUseImage then
                   begin
                   node4 := node3.AddChild('Image');
                   curBlobRec.Image.SaveToXML(node4);
                   end;
                node3 := node2.AddChild('IntAction');
                node3.Text := IntToStr(ord(curBlobRec.IntActionIfTrue));
       node2 := node.AddChild('ResultingActionsIfFalse').SetAttribute('rec_type', 'TMacroResultingActions');
                node3 := node2.AddChild('TextActions');
                curBlobRec.TextActionsIfFalse.SaveToXML(node3);
                node3 := node2.AddChild('BoxActions');
                curBlobRec.BoxActionsIfFalse.SaveToXML(node3);
                if curBlobRec.BoxActionsIfFalse.ActionType = xbaZorder then
                   begin
                   node4 := node3.AddChild('BoxZorder');
                   curBlobRec.BoxZorderIfFalse.SaveToXML(node4);
                   end;
                if curBlobRec.BoxActionsIfFalse.ActionType = xbaModifyText then
                   begin
                   node4 := node3.AddChild('BoxText');
                   curBlobRec.BoxTextIfFalse.SaveToXML(node4);
                   end;
                if curBlobRec.BoxActionsIfFalse.ActionType = xbaUseImage then
                   begin
                   node4 := node3.AddChild('Image');
                   curBlobRec.ImageIfFalse.SaveToXML(node4);
                   end;
                node3 := node2.AddChild('IntAction');
                node3.Text := IntToStr(ord(curBlobRec.IntActionIfFalse));
       end;
   finally
   FreeAndNil(listOrderedBlobItems);
   end;
end;
 
// cpXceptions.pas — TXceptions.ReadFromXML
procedure TXceptions.ReadFromXML(const propertyNode: TXmlNode);
var
   aPropValue : TSL_PropValue;
   i : integer;
begin
   aPropValue := self.DataValue; // keep any non-default values initialized in the constructor
 
   // initialize these which will be read in the blob items
   for i := low(TXtensionIdRecList) to high(TXtensionIdRecList) do
       begin
       aPropValue.xt[i].Activated := false;
       aPropValue.xt[i].TableId := 0;
       end;
 
   self.DataValue := aPropValue;
 
   ReadBlobItemsFromXML(propertyNode);
 
   inherited;
end;
 
// cpXceptions.pas — TXceptions.SaveToXML
procedure TXceptions.SaveToXML(scriptLineNode: TXmlNode; var propertyNode:
    TXmlNode);
begin
   propertyNode := scriptLineNode.AddChild('property');
 
   // these are saved by the blobitems (duplicated saving)
 
   SaveBlobItemsToXML(propertyNode);
 
   inherited;
end;

// cpXceptions.pas — TMacroBlobItem.Create
constructor TMacroBlobItem.Create(aDiaryGridLine: TObject);
begin
   inherited Create;
   self.Initialize(aDiaryGridLine);
end;

// cpXceptions.pas — TMacroBlobRec
TMacroBlobRec = record
       Activated : Boolean;
       TokId : shortInt;
       TableId : integer;
       TextActions : xTextActions; {in cvtXtensions.PAS}
       TextActionsIfFalse : xTextActions; {6-2-2003}
       BoxActions : xBoxActions; {in cvtXtensions.PAS}
       BoxActionsIfFalse : xBoxActions; // (xbaLeaveAlone, xbaModifyBox, xbaDeleteBox, xbaGroupDelete, xbaUseImage);
       BoxText : TBoxTextAttr;
       BoxTextIfFalse : TBoxTextAttr;
       Image : TPictureboxAttr;
       ImageIfFalse : TPictureboxAttr;
       BoxZorder : TBoxZorderRec;
       BoxZorderIfFalse : TBoxZorderRec;
       InitCRC : integer; // used to check it is initialized
       strInitialConditions : string;
       IntActionIfTrue : xIntActionType;
       IntActionIfFalse : xIntActionType;
       procedure Initialize;
    public
       end;

// cpXceptions.pas — TMacroBlobRec.Initialize
procedure TMacroBlobRec.Initialize;
begin
   self := Default(TMacroBlobRec);
 
   Activated := false;
   TokId := 0;
   TableId := 0;
 
   TextActions.Initialize;
   BoxActions.Initialize;
   BoxText.Initialize;
   BoxZorder.Initialize;
   Image.Initialize;
 
   TextActionsIfFalse.Initialize;
   BoxActionsIfFalse.Initialize;
   BoxTextIfFalse.Initialize;
   BoxZorderIfFalse.Initialize;
   ImageIfFalse.Initialize;
 
   InitCRC := 0; // used to check it is initialized
   strInitialConditions := '';
end;
 
end.