From cf4e5393ccee3af7d592c680ecf7c22f7bc4a4be Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 28 Oct 2008 19:01:20 +0000
Subject: - glPrint(Pchar) -> glPrint(string) - glPrintLetter removed
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1483 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
src/base/TextGL.pas | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
(limited to 'src/base')
diff --git a/src/base/TextGL.pas b/src/base/TextGL.pas
index ad4c0ee2..57f3d6f5 100644
--- a/src/base/TextGL.pas
+++ b/src/base/TextGL.pas
@@ -41,9 +41,8 @@ uses
procedure BuildFont; // build our bitmap font
procedure KillFont; // delete the font
-function glTextWidth(text: PChar): real; // returns text width
-procedure glPrintLetter(letter: char);
-procedure glPrint(text: pchar); // custom GL "Print" routine
+function glTextWidth(const text: string): real; // returns text width
+procedure glPrint(const text: string); // 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
@@ -205,7 +204,7 @@ begin
//glDeleteLists(..., 256);
end;
-function glTextWidth(text: pchar): real;
+function glTextWidth(const text: string): real;
var
Letter: char;
i: integer;
@@ -321,18 +320,18 @@ begin
end;
// Custom GL "Print" Routine
-procedure glPrint(Text: PChar);
+procedure glPrint(const Text: string);
var
Pos: integer;
begin
// if there is no text do nothing
- if ((Text = nil) or (Text = '')) then
+ if (Text = '') then
Exit;
//Save the actual color and alpha (for reflection)
glGetFloatv(GL_CURRENT_COLOR, @TempColor);
- for Pos := 0 to Length(Text) - 1 do
+ for Pos := 1 to Length(Text) do
begin
glPrintLetter(Text[Pos]);
end;
--
cgit v1.2.3