anchor.diff:      function GetNotifTime: integer;
       function GetPictureScale: integer;
       function GetReadOnly(Ed: TATSynEdit): boolean;
  -    function GetSplitPos: double;
  +    function GetSplitPosCurrent: double;
       function GetSplitted: boolean;
       function GetTabKeyCollectMarkers: boolean;
       function GetUnprintedEnds: boolean;
  
positive.code:   if not Splitted then exit;
  
    AValue:= Max(0.0, Min(1.0, AValue));
  
    if FSplitHorz then
    begin
  
negative.code:     al:= alRight;
    Splitter.Align:= al;
    Ed2.Align:= al;
  
    //restore relative splitter ratio (e.g. 50%)
    SplitPos:= SplitPos;
  end;
  
  procedure TEditorFrame.SetSplitPos(AValue: double);
  