Inspecting the source code, I found the following lines in TeePDFCanvas.TPDFCanvas.RotateLabel(x,y:Integer; Const St:String; RotDegree:Double):
Code: Select all
if Assigned(IFont) then
WriteStringToStream(FCStream,FontProperties(IFont,FontIndex)+' ')
else
WriteStringToStream(FCStream,FontProperties(TTeeFont(Font),FontIndex)+' ');
I would suggest to add the dynamic type check and overload function FontProperties accordingly.