anchor.diff:  
       procedure ExtractFromColumn (aColumn : TColumn);
       procedure ApplyToColumn(aColumn : TColumn);
  +
  +    procedure SaveToXmlElement (aElement : TmXmlElement);
  +    procedure LoadFromXmlElement(aElement : TmXmlElement);
   
       property DisplayLabel : String read FDisplayLabel write FDisplayLabel;
       property Visible : Boolean read FVisible write FVisible;
  
positive.code: 
  uses
    Contnrs, Grids, DBGrids,
    mMaps;
  
  type
  
  
negative.code:     aColumn.Index := Self.SortOrder;
  end;
  
  procedure TmGridFieldOptions.SaveToXmlElement(aElement: TmXmlElement);
  begin
    aElement.SetAttribute('visible', BoolToStr(FVisible, true));
    aElement.SetAttribute('displayFormat', FDisplayFormat);
    aElement.SetAttribute('displayLabel', FDisplayLabel);
    aElement.SetIntegerAttribute('width', FWidth);
    aElement.SetIntegerAttribute('sortOrder', FSortOrder);
  end;
  
  procedure TmGridFieldOptions.LoadFromXmlElement(aElement: TmXmlElement);
  begin
    FVisible := StrToBool(aElement.GetAttribute('visible', 'true'));
    FDisplayFormat := aElement.GetAttribute('displayFormat', '');
    FDisplayLabel := aElement.GetAttribute('displayLabel', '');
    FWidth := aElement.GetIntegerAttribute('width', -1);
    FSortOrder := aElement.GetIntegerAttribute('sortOrder', -1);
  end;
  
  end.
  