Hi everyone,
i have the following codes in my xojo program to change the the font to Arial Narrow and Size 13 but for some reason, it only change the font to Arial Narrow from Arial but keep the size at 11 instead of 13. Anyone encounter this problem??
Sub DoSetFontSize (vForm as window)
dim i,j ,x as integer
dim vctrl as Control
j=vForm.controlcount - 1
for i = 0 to j
vctrl=vForm.Control(i)
IF vctrl IsA Label then
IF Label(vctrl).Name<>“lblScreenTitle” AND Label(vctrl).Name<>“lblFunction” THEN
Label(vctrl).TextFont=“Arial Narrow”
Label(vctrl).TextUnit=FontUnits.Point
Label(vctrl).Bold=True
Label(vctrl).TextSize=13
END IF
END IF
next
End Sub