anchor.diff:  
   procedure TEditorFrame.SetSplitted(AValue: boolean);
   begin
  +  if not IsText then exit;
  +
     FSplitted:= AValue;
     Ed2.Visible:= AValue;
     Splitter.Visible:= AValue;
  
positive.code: const
    cMin = 10;
  begin
    FSplitPos:= AValue;
  
    if FSplitHorz then
  
negative.code: var
    al: TAlign;
  begin
    if not IsText then exit;
    FSplitHorz:= AValue;
  
    if FSplitHorz then al:= alBottom else al:= alRight;
  