anchor.diff:        end;
   begin
     SelectFont(Handle, ctfSelected);
  -  SelectSupportedFontForText(Handle, Text);
     Result := DoCalcTextSize;
   end;
   
  
positive.code: 
    { Draw character[s] }
  
    if not SelectSupportedFontForText(Handle, Text) then
      SetTextColor(Handle, ColorToRGB(clRed));
  
    FOldAlign := SetTextAlign(Handle, TextAlign); // TA_CENTER or TA_TOP);
  
    FLTextOut(Handle, X, Y, @ARect, PWideChar(Text), Length(Text), Fit, Uniscribe); // RectBmp.Right div 2, 0, @RectBmp, PWideChar(ch), Length(ch));
  
negative.code:   Description:      
    Create Date:      23 Aug 2006
  
    Modified Date:    24 Feb 2019
    Authors:          mcdurdin
    Related Files:    
    Dependencies:     
  