diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-07 20:59:33 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-07 20:59:33 +0000 |
commit | 36ad87b2e0d2f28ef7dc1e8c43c9aa2d1024daff (patch) | |
tree | a5ad79412eea43e1006a786a39013e3db72fdd34 /unicode/src/base/TextGL.pas | |
parent | 2783f97c6f2e9e72a306e0325b911db4df425032 (diff) | |
download | usdx-36ad87b2e0d2f28ef7dc1e8c43c9aa2d1024daff.tar.gz usdx-36ad87b2e0d2f28ef7dc1e8c43c9aa2d1024daff.tar.xz usdx-36ad87b2e0d2f28ef7dc1e8c43c9aa2d1024daff.zip |
- string replaced with UTF8String (although it's just a typedef) to mark UTF8 strings.
- misc. unicode compatibility fixes
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1509 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/base/TextGL.pas')
-rw-r--r-- | unicode/src/base/TextGL.pas | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/unicode/src/base/TextGL.pas b/unicode/src/base/TextGL.pas index 2bc68637..28c3c6b6 100644 --- a/unicode/src/base/TextGL.pas +++ b/unicode/src/base/TextGL.pas @@ -55,8 +55,8 @@ var procedure BuildFont; // build our bitmap font procedure KillFont; // delete the font -function glTextWidth(const text: string): real; // returns text width -procedure glPrint(const text: string); // custom GL "Print" routine +function glTextWidth(const text: UTF8String): real; // returns text width +procedure glPrint(const text: UTF8String); // custom GL "Print" routine procedure ResetFont(); // reset font settings of active font procedure SetFontPos(X, Y: real); // sets X and Y procedure SetFontZ(Z: real); // sets Z @@ -132,7 +132,7 @@ begin //glDeleteLists(..., 256); end; -function glTextWidth(const text: string): real; +function glTextWidth(const text: UTF8String): real; var Bounds: TBoundsDbl; begin @@ -141,7 +141,7 @@ begin end; // Custom GL "Print" Routine -procedure glPrint(const Text: string); +procedure glPrint(const Text: UTF8String); var GLFont: PGLFont; begin @@ -155,7 +155,6 @@ begin // set font position glTranslatef(GLFont.X, GLFont.Y + GLFont.Font.Ascender, GLFont.Z); // draw string - //GLFont.Font.Print(RecodeString(Text, encCP1252)); GLFont.Font.Print(Text); glPopMatrix(); end; |