Problem with font in TVaTerminal

VCL TMS Async
1

Hi Tms Guys

SetupFont function in TVaTerminal use tmMaxCharWidth to calculate FCharWdth. Unfortunately in many situations tmMaxCharWidth is not equal to tmAvgCharWidth as should be. The result is tthat in terminal we see extra space

Q Q Q Q Q Q and not QQQQQQQ

Check consolas 14pt

In my opinion we should use tmAveCharWith and usa an optional (public property) CharMargin (default 0)

so

FCharWidth := Metrics.tmAveCharWidth + CharMargin

best Regards
Ing Giuseppe Monteleone

2

Morever should be nice to have te FCharWith as public read only property

Best Regards
Ing Giuseppe Monteleone