anchor.diff:    fTexID := aTexID;
     fFlagColor := $FFFF00FF;
     ImageAnchors := [anLeft, anTop];
  -  Highlight := false;
  -  HighlightOnMouseOver := false;
  +  Highlight := False;
  +  HighlightOnMouseOver := False;
  +  HighlightCoef := 0.4;
   end;
   
   
  
positive.code:     ImageAnchors: TKMAnchorsSet;
      Highlight: Boolean;
      HighlightOnMouseOver: Boolean;
      Lightness: Single;
      ClipToBounds: Boolean;
      constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aTexID: Word; aRX: TRXType = rxGui);
  
negative.code:     TKMRenderUI.SetupClipY(AbsTop,  AbsTop + Height);
    end;
  
    PaintLightness := Lightness + HighlightCoef * (Byte(HighlightOnMouseOver and (csOver in State)) + Byte(Highlight));
  
    TKMRenderUI.WritePicture(AbsLeft, AbsTop, fWidth, fHeight, ImageAnchors, fRX, fTexID, fEnabled, fFlagColor, PaintLightness);
    TKMRenderUI.ReleaseClipX;
  