anchor.diff:      FListBoxHiddenColumns.Items.InsertObject(0, FListBoxVisibleColumns.Items[i], op);
     end;
     FListBoxVisibleColumns.Clear;
  +end;
  +
  +function TGridColumnsSettingsFrame.GetLBLine(const aColSettings: TmGridColumnSettings): String;
  +begin
  +  Result := aColSettings.DisplayLabel.AsString + ' ['+ aColSettings.FieldName + ']';
   end;
   
   procedure TGridColumnsSettingsFrame.CreateHiddenColsPanel;
  
positive.code:     dest.Width.Value:= newWidth;
      dest.SortOrder.Value:= i;
    end;
  
  
  (*    ColSettingsDataset.DisableControls;
      try
        ColSettingsDataset.First;
        while not ColSettingsDataset.EOF do
        begin
          op := FSettings.GetSettingsForField(ColSettingsDataset.FieldByName(FLD_FIELDNAME).AsString);
  
          if (ColSettingsDataset.FieldByName(FLD_LABEL).IsNull) then
            op.DisplayLabel.IsNull:= true
          else
            op.DisplayLabel.Value:= ColSettingsDataset.FieldByName(FLD_LABEL).AsString;
  
          if (ColSettingsDataset.FieldByName(FLD_FORMAT).IsNull) then
            op.DisplayFormat.IsNull:= true
          else
            op.DisplayFormat.Value := ColSettingsDataset.FieldByName(FLD_FORMAT).AsString;
  
          if (ColSettingsDataset.FieldByName(FLD_VISIBLE).IsNull) then
            op.Visible.IsNull:= true
          else
          begin
            if (op.Visible.IsNull or (not op.Visible.Value)) and ColSettingsDataset.FieldByName(FLD_VISIBLE).AsBoolean then
              op.Width.Value := 100;
            op.Visible.Value:= ColSettingsDataset.FieldByName(FLD_VISIBLE).AsBoolean;
          end;
  
  
          ColSettingsDataset.Next;
        end;
      finally
        ColSettingsDataset.EnableControls;
      end;
    end;*)
  end;
  
  end.
  
negative.code:       FCurrentProperties.DisplayLabel.Value:= Trim(FLELabel.Text)
      else
        FCurrentProperties.DisplayLabel.IsNull:= true;
      FListBoxVisibleColumns.Invalidate;
    end;
  end;
  
  