anchor.diff:    if fEnabled then col := FontColor
                 else col := $FF888888;
   
  -  TKMRenderUI.WriteText(AbsLeft, AbsTop, Width, fText, fFont, fTextAlign, col, False, False, False, fTabWidth, PaintingBaseLayer);
  +  t := 0;
  +  if Height > 0 then
  +  begin
  +    case fTextVAlign of
  +      tvaNone,
  +      tvaTop:     ;
  +      tvaMiddle:  t := (Height - fTextSize.Y) div 2;
  +      tvaBottom:  t := Height - fTextSize.Y;
  +    end;
  +  end;
  +
  +  TKMRenderUI.WriteText(AbsLeft, AbsTop + t, Width, fText, fFont, fTextAlign, col, False, False, False, fTabWidth, PaintingBaseLayer);
   
     if fStrikethrough then
       TKMRenderUI.WriteShape(TextLeft, AbsTop + fTextSize.Y div 2 - 2, fTextSize.X, 3, col, $FF000000);
  
positive.code: // Send caption to render
  procedure TKMLabel.Paint;
  var
    col: Cardinal;
  begin
    inherited;
  
negative.code:     fCaption: UnicodeString; //Original text
      fText: UnicodeString; //Reformatted text
      fTextAlign: TKMTextAlign;
      fTextVAlign: TKMTextVAlign;
      fTextSize: TKMPoint;
      fStrikethrough: Boolean;
      fTabWidth: Integer;
  