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:     aColumn.Index := Self.SortOrder;
  end;
  
  end.
  
negative.code:     destructor Destroy; override;
      function AddOptionsForField (aFieldName : String) : TmGridFieldOptions;
      function GetOptionsForField (aFieldName : String) : TmGridFieldOptions;
  
      procedure SaveToXmlElement (aElement : TmXmlElement);
      procedure LoadFromXmlElement (aElement : TmXmlElement);
  
      procedure ExtractFromGrid(aGrid : TDBGrid);
      procedure ApplyToGrid(aGrid : TDBGrid);
  