anchor.diff:          tmpList.AddObject(k, op);
         end
         else
  -        FListBoxHiddenColumns.AddItem(op.DisplayLabel.AsString + ' ['+ op.FieldName + ']', op);
  +        FListBoxHiddenColumns.AddItem(GetLBLine(op), op);
       end;
       for i := 0 to tmpList.Count - 1 do
       begin
         op := tmpList.Objects[i] as TmGridColumnSettings;
  -      FListBoxVisibleColumns.AddItem(op.DisplayLabel.AsString + ' ['+ op.FieldName + ']', op);
  +      FListBoxVisibleColumns.AddItem(GetLBLine(op), op);
       end;
     finally
       tmpList.Free;
  
positive.code:   else if Source = FListBoxHiddenColumns then
    begin
      prev := FListBoxHiddenColumns.ItemIndex;
      pt.x:= X;
      pt.y:= Y;
      dest := FListBoxVisibleColumns.ItemAtPos(pt, true);
  
negative.code:   if Source = FListBoxVisibleColumns then
    begin
      prev := FListBoxVisibleColumns.ItemIndex;
      if prev < 0 then
        exit;
      pt.x:= X;
      pt.y:= Y;
      dest := FListBoxVisibleColumns.ItemAtPos(pt, true);
  