anchor.diff:  begin
     inherited Create(nil);
     FStyle := [trtSnap, trtMove, trtSize];
  -  Container := AOwner as TContainer;
  +  Container := AOwner as TContainer; //do not use FContainer
     if Container.Board <> nil then
       if Container.Board.NextElement = nil then
       begin
  
positive.code:     Container.Cursor := crDefault;
  end;
  
  function TOblongElement.CreateRegion: HRGN;
  begin
    Result := CreateRectRgn(Left, Top, Right, Bottom);
  end;
  
  procedure TOblongElement.BeginModify;
  begin
    inherited;
  
  end;
  
  procedure TOblongElement.EndModify;
  
negative.code:   for i := 0 to ElementList.Count - 1 do
    begin
      ElementList[i].Paint(vCanvas, BoundRect);
      ElementList[i].PaintHaftList(vCanvas)
    end;
  end;
  
  