hedgewars/uVariables.pas
branchui-scaling
changeset 13389 24b531dcebe7
parent 13385 ec1491bb5acc
child 15283 c4fd2813b127
--- a/hedgewars/uVariables.pas	Wed May 16 10:11:00 2018 +0200
+++ b/hedgewars/uVariables.pas	Wed May 16 18:09:13 2018 +0200
@@ -128,6 +128,7 @@
     zoom             : GLfloat;
     ZoomValue        : GLfloat;
     ChatScaleValue   : real;
+    cDefaultChatScale: real;
     UIScaleValue     : real;
 
     cWaterLine       : LongInt;
@@ -2641,6 +2642,8 @@
     cAudioCodec        := '';
 {$ENDIF}
 
+    cDefaultChatScale:= 1.0;
+
     cTagsMask:= htTeamName or htName or htHealth;
     cPrevTagsMask:= cTagsMask;
 end;
@@ -2835,8 +2838,14 @@
     GameState       := Low(TGameState);
     zoom            := cDefaultZoomLevel;
     ZoomValue       := cDefaultZoomLevel;
-    ChatScaleValue  := cDefaultChatScaleLevel;
+
+    if cDefaultChatScale < cMinChatScaleValue then
+        cDefaultChatScale := cMinChatScaleValue
+    else if cDefaultChatScale > cMaxChatScaleValue then
+        cDefaultChatScale := cMaxChatScaleValue;
+    ChatScaleValue  := cDefaultChatScale;
     UIScaleValue    := cDefaultUIScaleLevel;
+
     WeaponTooltipTex:= nil;
     cLaserSighting  := false;
     cLaserSightingSniper := false;