anchor.diff:  		  Function OnMouseWheel(X,Y:Integer; Delta:Integer):UIWidget;
   		  Function OnMouseMove(X,Y:Integer):UIWidget;
   
  -      Procedure Render;
  +      Procedure Render; Override;
   
         Procedure AfterEffects;
   
  
positive.code:   Base := Target.AbsolutePosition;
    GroupID := Target.HighlightGroup;
  
    It := Self.Widgets.GetIterator();
    While It.HasNext() Do
    Begin
      W := UIWidget(It.Value);
  
negative.code:     End;
  
      MyWidget := MyWidget.Next;
    End;*)
  End;
  
  Function TERRAUI.OnKeyPress(Key:Word):UIWidget;
  