anchor.diff:    end;
   end;
   
  -procedure TmEditingFrame.AddLine(const aName: string; const aCaption: string; const aDefaultValue: string; const aEditorKind : TmEditingFrameEditorKind);
  +procedure TmEditingFrame.AddLine(const aName: string; const aCaption: string; const aDefaultValue: string; const aEditorKind : TmEditingFrameEditorKind; const aReadOnly : boolean = false);
   var
     tmp : TEditorLine;
   begin
  
positive.code:       calendarFrm.Free;
      end;
    end
    else if curLine.EditorKind = ekLookup then
    begin
      tmpFieldsList := TStringList.Create;
      try
  
negative.code: 
  type
  
    TmEditingFrameEditorKind = (ekInteger, ekFloat, ekDate, ekLookupText, ekLookupInteger, ekLookupFloat, ekText);
  
    { TmEditingFrame }
  
  