I assume the HTMLText procedure in sHtmlParse.pas needs an extra parameter: RealHtml: boolean. If true it would change the procedure as follows:
Code:
#$D: if not RealHtml then begin
if CurPos > LastPos then
ShowCut(CurPos, LastPos);
LastPos := CurPos;
if CurrentRowHeight = 0 then
CurrentRowHeight := acTextHeight(Bitmap.Canvas, 'Yy');
NewRow;
end;
#$A:
if not RealHtml then CurX := Area.Left;
RealHtml would be True if hint and label have the HTMLMode (sAlphaHints) and the UseHtml properties set. If that's the way it should work, I can make a temporary patch.