index d0f967230f0c31c94f7e575f926414ed9927bc72..c46e8ec4600bfd8729fc1f75e06740507aed10bb 100644 (file)
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
procedure e_TextureFontPrint(X, Y: GLint; Text: string; FontID: DWORD);
procedure e_TextureFontPrintEx(X, Y: GLint; Text: string; FontID: DWORD; Red, Green,
Blue: Byte; Scale: Single; Shadow: Boolean = False);
-procedure e_TextureFontPrintFmt(X, Y: GLint; Text: string; FontID: DWORD; Shadow: Boolean = False);
+procedure e_TextureFontPrintFmt(X, Y: GLint; Text: string; FontID: DWORD;
+ Shadow: Boolean = False; Newlines: Boolean = False);
procedure e_TextureFontGetSize(ID: DWORD; out CharWidth, CharHeight: Byte);
procedure e_RemoveAllTextureFont();
result := e_TextureFonts[FontID].CharWidth;
end;
-procedure e_TextureFontPrintFmt(X, Y: GLint; Text: string; FontID: DWORD; Shadow: Boolean = False);
+procedure e_TextureFontPrintFmt(X, Y: GLint; Text: string; FontID: DWORD;
+ Shadow: Boolean = False; Newlines: Boolean = False);
var
a, TX, TY, len: Integer;
tc, c: TRGB;
- w: Word;
+ w, h: Word;
begin
if e_NoGraphics then Exit;
if Text = '' then Exit;
len := Length(Text);
w := e_TextureFonts[FontID].CharWidth;
+ h := e_TextureFonts[FontID].CharHeight;
with e_TextureFonts[FontID] do
begin
for a := 1 to len do
begin
case Text[a] of
- {#10: // line feed
+ #10: // line feed
begin
- TX := X;
- TY := TY + h;
- continue;
- end;}
+ if Newlines then
+ begin
+ TX := X;
+ TY := TY + h;
+ continue;
+ end;
+ end;
#1: // black
begin
c.R := 0; c.G := 0; c.B := 0;