From 2f768387f3849699320229a5b756db78af1207a2 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 19 Oct 2008 16:24:59 +0000
Subject: The size given to TextGL.SetSize() now expresses the size in pixel
 (formerly it was 1/3 of the pixel-size). For theme and plugin compatibility
 the following functions multiply the size with 3: - UScreenSingModi.Print -
 TTheme.ThemeLoadText - TTheme.ThemeLoadSelectSlide

TODO: Convert the themes/plugins and remove the "*3"

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

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

diff --git a/src/base/TextGL.pas b/src/base/TextGL.pas
index 03351adf..ad4c0ee2 100644
--- a/src/base/TextGL.pas
+++ b/src/base/TextGL.pas
@@ -359,7 +359,7 @@ end;
 
 procedure SetFontSize(Size: real);
 begin
-  Fonts[ActFont].Tex.H := 30 * (Size/10);
+  Fonts[ActFont].Tex.H := Size;
 end;
 
 procedure SetFontStyle(Style: integer);
-- 
cgit v1.2.3