anchor.diff:    tmp.EditorKind:= aEditorKind;
     tmp.Name := aName;
     tmp.Index:= FValueListEditor.InsertRow(aCaption, aDefaultValue, true);
  -  tmp.ReadOnly:= (aEditorKind = ekReadOnly);
  +  tmp.ReadOnly:= aReadOnly;
     FLinesByIndex.Add(tmp.Index + 1, tmp);
     FValueListEditor.ItemProps[tmp.Index].ReadOnly:= tmp.ReadOnly;
  -  if (not tmp.ReadOnly) and ((aEditorKind = ekDate) or (aEditorKind = ekLookup)) then
  +  if (not tmp.ReadOnly) and ((aEditorKind = ekDate) or (aEditorKind = ekLookupFloat) or (aEditorKind = ekLookupInteger) or (aEditorKind = ekLookupText)) then
       FValueListEditor.ItemProps[tmp.Index].EditStyle:=esEllipsis;
   end;
   
  
positive.code:     aList.Add(aVirtualFields.VirtualFieldDefs[i].Name);
  end;
  
  function TmEditingFrame.GetValue(const aName: string): string;
  var
    curLine : TEditorLine;
  begin
    curLine := FLinesByName.Find(aName) as TEditorLine;
    Result := FValueListEditor.Rows[curLine.Index + 1].Strings[1];
  end;
  
  procedure TmEditingFrame.SetReadOnly(const aName: string; const aValue : boolean);
  
negative.code:     procedure OnValueListEditorValidateEntry(sender: TObject; aCol, aRow: Integer; const OldValue: string; var NewValue: String);
      function OnValueListEditorEditValue  (const aCol, aRow : integer; var aNewValue : string): boolean;
    protected
      procedure AddLine (const aName : string; const aCaption : string; const aDefaultValue : string; const aEditorKind : TmEditingFrameEditorKind; const aReadOnly : boolean = false);
      procedure AddMemo (const aName : string; const aCaption : string; const aDefaultValue : string; const aMemoHeightPercent : double);
      procedure ExtractFields (aVirtualFields : TmVirtualFieldDefs; aList : TStringList);
      function GetValue (const aName : string) : Variant;
      procedure SetReadOnly (const aName : string; const aValue : boolean); overload;
      procedure SetReadOnly (const aValue : boolean); overload;
      function GetValueFromMemo (const aName : string; const aTrimValue : boolean) : string;
  