hedgewars/uVariables.pas
branchui-scaling
changeset 13389 24b531dcebe7
parent 13385 ec1491bb5acc
child 15304 c4fd2813b127
equal deleted inserted replaced
13388:32a1696ca93a 13389:24b531dcebe7
   126     cTagsMask        : byte;
   126     cTagsMask        : byte;
   127     cPrevTagsMask    : byte;
   127     cPrevTagsMask    : byte;
   128     zoom             : GLfloat;
   128     zoom             : GLfloat;
   129     ZoomValue        : GLfloat;
   129     ZoomValue        : GLfloat;
   130     ChatScaleValue   : real;
   130     ChatScaleValue   : real;
       
   131     cDefaultChatScale: real;
   131     UIScaleValue     : real;
   132     UIScaleValue     : real;
   132 
   133 
   133     cWaterLine       : LongInt;
   134     cWaterLine       : LongInt;
   134     cGearScrEdgesDist: LongInt;
   135     cGearScrEdgesDist: LongInt;
   135     isAudioMuted     : boolean;
   136     isAudioMuted     : boolean;
  2639     cVideoFramerateDen := 0;
  2640     cVideoFramerateDen := 0;
  2640     cVideoQuality      := 0;
  2641     cVideoQuality      := 0;
  2641     cAudioCodec        := '';
  2642     cAudioCodec        := '';
  2642 {$ENDIF}
  2643 {$ENDIF}
  2643 
  2644 
       
  2645     cDefaultChatScale:= 1.0;
       
  2646 
  2644     cTagsMask:= htTeamName or htName or htHealth;
  2647     cTagsMask:= htTeamName or htName or htHealth;
  2645     cPrevTagsMask:= cTagsMask;
  2648     cPrevTagsMask:= cTagsMask;
  2646 end;
  2649 end;
  2647 
  2650 
  2648 procedure initScreenSpaceVars();
  2651 procedure initScreenSpaceVars();
  2833     cExplosives     := 2;
  2836     cExplosives     := 2;
  2834 
  2837 
  2835     GameState       := Low(TGameState);
  2838     GameState       := Low(TGameState);
  2836     zoom            := cDefaultZoomLevel;
  2839     zoom            := cDefaultZoomLevel;
  2837     ZoomValue       := cDefaultZoomLevel;
  2840     ZoomValue       := cDefaultZoomLevel;
  2838     ChatScaleValue  := cDefaultChatScaleLevel;
  2841 
       
  2842     if cDefaultChatScale < cMinChatScaleValue then
       
  2843         cDefaultChatScale := cMinChatScaleValue
       
  2844     else if cDefaultChatScale > cMaxChatScaleValue then
       
  2845         cDefaultChatScale := cMaxChatScaleValue;
       
  2846     ChatScaleValue  := cDefaultChatScale;
  2839     UIScaleValue    := cDefaultUIScaleLevel;
  2847     UIScaleValue    := cDefaultUIScaleLevel;
       
  2848 
  2840     WeaponTooltipTex:= nil;
  2849     WeaponTooltipTex:= nil;
  2841     cLaserSighting  := false;
  2850     cLaserSighting  := false;
  2842     cLaserSightingSniper := false;
  2851     cLaserSightingSniper := false;
  2843     cVampiric       := false;
  2852     cVampiric       := false;
  2844     flagMakeCapture := false;
  2853     flagMakeCapture := false;