diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-04-25 09:07:50 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-04-25 09:07:50 +0000 |
commit | 1b294eb6cf1faaea874d5521f1d93f8d870180e6 (patch) | |
tree | 1140345abb83253da6323acd6b23963a246d5d2f /src/base/TextGL.pas | |
parent | 27a354229f0522452d91b4e3c991659bbb46d32c (diff) | |
download | usdx-1b294eb6cf1faaea874d5521f1d93f8d870180e6.tar.gz usdx-1b294eb6cf1faaea874d5521f1d93f8d870180e6.tar.xz usdx-1b294eb6cf1faaea874d5521f1d93f8d870180e6.zip |
added Finalize3D finalization as opponent for Initialize3D and for a clean finalization
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2307 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | src/base/TextGL.pas | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/base/TextGL.pas b/src/base/TextGL.pas index 7ee574c3..c354a500 100644 --- a/src/base/TextGL.pas +++ b/src/base/TextGL.pas @@ -61,8 +61,8 @@ var Fonts: array of TGLFont; ActFont: integer; -procedure BuildFont; // build our bitmap font -procedure KillFont; // delete the font +procedure BuildFonts; // builds all fonts +procedure KillFonts; // deletes all font 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 @@ -121,7 +121,7 @@ const 'Normal', 'Bold', 'Outline1', 'Outline2' ); -procedure BuildFont; +procedure BuildFonts; var I: integer; FontIni: TMemIniFile; @@ -183,10 +183,12 @@ end; // Deletes the font -procedure KillFont; +procedure KillFonts; +var + I: integer; begin - // delete all characters - //glDeleteLists(..., 256); + for I := 0 to High(Fonts) do + Fonts[I].Font.Free; end; function glTextWidth(const text: UTF8String): real; |