diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-01 20:50:41 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2016-01-01 20:50:41 +0000 |
commit | c179ce1e13ecb0528a3a948b4ff75f6a5c4509d8 (patch) | |
tree | f0c671fb53dbc9a08448f3b314746accc7ef4949 /src/base/TextGL.pas | |
parent | c2642efc13ede8debbf6993e8edc588a1ebbf984 (diff) | |
download | usdx-c179ce1e13ecb0528a3a948b4ff75f6a5c4509d8.tar.gz usdx-c179ce1e13ecb0528a3a948b4ff75f6a5c4509d8.tar.xz usdx-c179ce1e13ecb0528a3a948b4ff75f6a5c4509d8.zip |
add SetOutlineColor in TextGL.pas
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3155 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r-- | src/base/TextGL.pas | 8 |
1 files changed, 8 insertions, 0 deletions
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. |