anchor.diff:      ImageAnchors: TKMAnchorsSet;
       Highlight: Boolean;
       HighlightOnMouseOver: Boolean;
  +    HighlightCoef: Single;
       Lightness: Single;
       ClipToBounds: Boolean;
       constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aTexID: Word; aRX: TRXType = rxGui);
  
positive.code:   fTexID := aTexID;
    fFlagColor := $FFFF00FF;
    ImageAnchors := [anLeft, anTop];
    Highlight := false;
    HighlightOnMouseOver := false;
  end;
  
  
  
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;
  