luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

The hidden API that estimate the character width of a specific font now returns by default an estimated value for non-fixed fonts.

Browse source 
[GB.GUI.BASE]
* NEW: The hidden API that estimate the character width of a specific font now returns by default an estimated value for non-fixed fonts.
This commit is contained in:
gambas 2021-12-17 13:46:05 +01:00
parent d5514f7120
commit 11c7d60ff4
1 changed files with 15 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
comp/src/gb.gui.base/.src/Paint.class
View file

@ -356,7 +356,7 @@ Static Public Sub DrawRect(X As Float, Y As Float, Width As Float, Height As Flo
End
Static Public Sub _EstimateFixedFontCharWidth(hFont As Font) As Float
Static Public Sub _EstimateFontCharWidth(hFont As Font, Optional bFixedOnly As Boolean) As Float
Dim iSpaceWidth As Integer
Dim I As Integer
@ -368,16 +368,20 @@ Static Public Sub _EstimateFixedFontCharWidth(hFont As Font) As Float
$sLastFont = sFont
iSpaceWidth = hFont.TextWidth(" ")
For I = 33 To 255
If I > 126 And If I < 160 Then Continue
If I = 173 Then Continue
If hFont.TextWidth(String.Chr$(I)) <> iSpaceWidth Then
$fLastWidth = 0
Return 0
Endif
Next
If bFixedOnly Then
iSpaceWidth = hFont.TextWidth(" ")
For I = 33 To 255
If I > 126 And If I < 160 Then Continue
If I = 173 Then Continue
If hFont.TextWidth(String.Chr$(I)) <> iSpaceWidth Then
$fLastWidth = 0
Return 0
Endif
Next
Endif
sText = String$(4, "AbCdEfGh01#@WwmM")
$fLastWidth = hFont.TextWidth(sText) / Len(sText)