diff options
| -rw-r--r-- | src/base/TextGL.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/base/TextGL.pas b/src/base/TextGL.pas index 11bbd52b..bd505f51 100644 --- a/src/base/TextGL.pas +++ b/src/base/TextGL.pas @@ -212,7 +212,7 @@ begin Result := 0; Font := @Fonts[ActFont]; - for i := 0 to Length(text) -1 do + for i := 1 to Length(text) do begin Letter := Text[i]; Result := Result + Font.Width[Ord(Letter)] * Font.Tex.H / 30 * Font.AspectW; |