Article	41023692
Type	HowTo
Product	Engine
Version	5.0.0.1033
Date Added	9/6/2004
Submitted by	Mario Pelegrino
Keywords

Subject

Render is not working correct with TTF fonts and DrawText

Summary

Render is not working correct with TTF fonts and DrawText

Solution

When used ScreenRender property then it must be define in the top of the function where it called

example:

Dim rend As vdRender
Set rend = VDrawObj.ScreenRender

rend.Select_Pen VdPenSolid, VdColorCyan, 0
rend.Drawtext "L: " & CStr(Format(BaseTmp, "0.00")) & " A: " & (Format(-RotazioneTmp, "0.00")), 0, 0, 0, TStyle, 60, 0, VdTextHorRight, VdTextVerCen

 

the following code is wrong:

VDrawObj.ScreenRender.Select_Pen VdPenSolid, VdColorCyan, 0
VDrawObj.ScreenRender.Drawtext "L: " & CStr(Format(BaseTmp, "0.00")) & " A: " & (Format(-RotazioneTmp, "0.00")), 0, 0, 0, TStyle, 60, 0, VdTextHorRight, VdTextVerCen