anchor.diff:      glPopMatrix;
     end;
   
  -  if aWidth <> 0 then
  +  if SetupClipXApplied then
       ReleaseClipX;
   end;
   
  
positive.code: 
    SetLength(Colors, 0);
  
    if aWidth <> 0 then
      SetupClipX(aLeft, aLeft + aWidth);
  
    //Look for [$FFFFFF][] patterns that markup text color
  
negative.code:   TKMTextAlign = (taLeft, taCenter, taRight);
    TKMTextVAlign = (tvaNone, tvaTop, tvaMiddle, tvaBottom);
  
    TKMPointDesc = record
      P: TKMPoint;
      Desc: String;
    end;
  
    TKMRenderUI = class
    private
      {$IFDEF WDC}
      class var ClipXStack: TStack<TKMRangeInt>;
      class var ClipYStack: TStack<TKMRangeInt>;
      {$ENDIF}
      class procedure ApplyClipX        (X1,X2: SmallInt);
      class procedure ApplyClipY        (Y1,Y2: SmallInt);
    public
      class procedure SetupClipX        (X1,X2: SmallInt);
      class procedure SetupClipY        (Y1,Y2: SmallInt);
  