From c179ce1e13ecb0528a3a948b4ff75f6a5c4509d8 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 1 Jan 2016 20:50:41 +0000
Subject: add SetOutlineColor in TextGL.pas

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3155 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/TextGL.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/base/TextGL.pas')

diff --git a/src/base/TextGL.pas b/src/base/TextGL.pas
index 7da1d558..eb61c15e 100644
--- a/src/base/TextGL.pas
+++ b/src/base/TextGL.pas
@@ -73,6 +73,7 @@ procedure SetFontSize(Size: real);
 procedure SetFontStyle(Style: integer);       // sets active font style (normal, bold, etc)
 procedure SetFontItalic(Enable: boolean);     // sets italic type letter (works for all fonts)
 procedure SetFontReflection(Enable:boolean;Spacing: real); // enables/disables text reflection
+procedure SetOutlineColor(R, G, B, A: GLFloat); // set outline color
 
 implementation
 
@@ -242,6 +243,7 @@ begin
   SetFontZ(0);
   SetFontItalic(False);
   SetFontReflection(False, 0);
+  SetOutlineColor(0,0,0,1);
 end;
 
 procedure SetFontPos(X, Y: real);
@@ -282,4 +284,10 @@ begin
   Fonts[ActFont].Font.ReflectionSpacing := Spacing - Fonts[ActFont].Font.Descender;
 end;
 
+procedure SetOutlineColor(R, G, B, A: GLFloat);
+begin
+  if (ActFont > 1) then
+    TFTScalableOutlineFont(Fonts[ActFont].Font).SetOutlineColor(R, G, B, A);
+end;
+
 end.
-- 
cgit v1.2.3