diff options
Diffstat (limited to 'src/base/UFont.pas')
| -rw-r--r-- | src/base/UFont.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/base/UFont.pas b/src/base/UFont.pas index b97b2890..473ac23c 100644 --- a/src/base/UFont.pas +++ b/src/base/UFont.pas @@ -1169,7 +1169,7 @@ begin Dist2 := (WinCoords[0][1] - WinCoords[1][1]); WidthScale := 1; - DistSum := Dist*Dist + Dist2*Dist2 + DistSum := Dist*Dist + Dist2*Dist2; if DistSum > 0) then begin WidthScale := cTestSize / Sqrt(DistSum); @@ -1180,7 +1180,7 @@ begin Dist2 := (WinCoords[0][1] - WinCoords[2][1]); HeightScale := 1; - DistSum := Dist*Dist + Dist2*Dist2 + DistSum := Dist*Dist + Dist2*Dist2; if DistSum > 0) then begin HeightScale := cTestSize / Sqrt(DistSum); |