hedgewars/uVariables.pas
changeset 15665 63e2b7b2ec47
parent 15645 fb1f47e382d0
parent 15663 d92eeb468dad
child 15667 02042ee48fde
equal deleted inserted replaced
15662:41121e2f5c03 15665:63e2b7b2ec47
   139     cTagsMask        : byte;
   139     cTagsMask        : byte;
   140     cPrevTagsMask    : byte;
   140     cPrevTagsMask    : byte;
   141     zoom             : GLfloat; // current zoom
   141     zoom             : GLfloat; // current zoom
   142     ZoomValue        : GLfloat; // aimed zoom
   142     ZoomValue        : GLfloat; // aimed zoom
   143     UserZoom         : GLfloat; // user-chosen initial and default zoom
   143     UserZoom         : GLfloat; // user-chosen initial and default zoom
       
   144     ChatScaleValue   : real;
       
   145     cDefaultChatScale: real;
       
   146     UIScaleValue     : real;
   144 
   147 
   145     cWaterLine       : LongInt;
   148     cWaterLine       : LongInt;
   146     cGearScrEdgesDist: LongInt;
   149     cGearScrEdgesDist: LongInt;
   147     isAudioMuted     : boolean;
   150     isAudioMuted     : boolean;
   148 
   151 
   262 
   265 
   263     SpeechHogNumber: LongInt;
   266     SpeechHogNumber: LongInt;
   264 
   267 
   265     // for tracking the limits of the visible grid based on cScaleFactor
   268     // for tracking the limits of the visible grid based on cScaleFactor
   266     ViewLeftX, ViewRightX, ViewBottomY, ViewTopY, ViewWidth, ViewHeight: LongInt;
   269     ViewLeftX, ViewRightX, ViewBottomY, ViewTopY, ViewWidth, ViewHeight: LongInt;
       
   270     // for tracking the limits of the visible UI space based on cUIScaleFactor
       
   271     UIWidth, UIHeight: LongInt;
   267 
   272 
   268     // for debugging the view limits visually
   273     // for debugging the view limits visually
   269     cViewLimitsDebug: boolean;
   274     cViewLimitsDebug: boolean;
   270 
   275 
   271     dirtyLandTexCount: LongInt;
   276     dirtyLandTexCount: LongInt;
   358             style: TTF_STYLE_NORMAL;
   363             style: TTF_STYLE_NORMAL;
   359             Name: 'DejaVuSans-Bold.ttf'),
   364             Name: 'DejaVuSans-Bold.ttf'),
   360             (Handle: nil;
   365             (Handle: nil;
   361             Height: 10*HDPIScaleFactor;
   366             Height: 10*HDPIScaleFactor;
   362             style: TTF_STYLE_NORMAL;
   367             style: TTF_STYLE_NORMAL;
       
   368             Name: 'DejaVuSans-Bold.ttf'),
       
   369             (Handle: nil; // fntChat
       
   370             Height: 12*HDPIScaleFactor;
       
   371             style: TTF_STYLE_NORMAL;
   363             Name: 'DejaVuSans-Bold.ttf')
   372             Name: 'DejaVuSans-Bold.ttf')
   364             {$IFNDEF MOBILE}, // remove chinese fonts for now
   373             {$IFNDEF MOBILE}, // remove chinese fonts for now
   365             (Handle: nil;
   374             (Handle: nil;
   366             Height: 12*HDPIScaleFactor;
   375             Height: 12*HDPIScaleFactor;
   367             style: TTF_STYLE_NORMAL;
   376             style: TTF_STYLE_NORMAL;
   370             Height: 24*HDPIScaleFactor;
   379             Height: 24*HDPIScaleFactor;
   371             style: TTF_STYLE_NORMAL;
   380             style: TTF_STYLE_NORMAL;
   372             Name: 'wqy-zenhei.ttc'),
   381             Name: 'wqy-zenhei.ttc'),
   373             (Handle: nil;
   382             (Handle: nil;
   374             Height: 10*HDPIScaleFactor;
   383             Height: 10*HDPIScaleFactor;
       
   384             style: TTF_STYLE_NORMAL;
       
   385             Name: 'wqy-zenhei.ttc'),
       
   386             (Handle: nil; // CJKfntChat
       
   387             Height: 12*HDPIScaleFactor;
   375             style: TTF_STYLE_NORMAL;
   388             style: TTF_STYLE_NORMAL;
   376             Name: 'wqy-zenhei.ttc')
   389             Name: 'wqy-zenhei.ttc')
   377             {$ENDIF}
   390             {$ENDIF}
   378             );
   391             );
   379 
   392 
  2629     PauseTexture,
  2642     PauseTexture,
  2630     AFKTexture,
  2643     AFKTexture,
  2631     SyncTexture,
  2644     SyncTexture,
  2632     ConfirmTexture: PTexture;
  2645     ConfirmTexture: PTexture;
  2633     cScaleFactor: GLfloat;
  2646     cScaleFactor: GLfloat;
       
  2647     cUIScaleFactor: float;
  2634     cStereoDepth: GLfloat;
  2648     cStereoDepth: GLfloat;
  2635     SupportNPOTT: Boolean;
  2649     SupportNPOTT: Boolean;
  2636     Step: LongInt;
  2650     Step: LongInt;
  2637     MissionIcons: PSDL_Surface;
  2651     MissionIcons: PSDL_Surface;
  2638     ropeIconTex: PTexture;
  2652     ropeIconTex: PTexture;
  2753     cVideoFramerateNum := 0;
  2767     cVideoFramerateNum := 0;
  2754     cVideoFramerateDen := 0;
  2768     cVideoFramerateDen := 0;
  2755     cVideoQuality      := 0;
  2769     cVideoQuality      := 0;
  2756     cAudioCodec        := '';
  2770     cAudioCodec        := '';
  2757 {$ENDIF}
  2771 {$ENDIF}
       
  2772 
       
  2773     cDefaultChatScale:= 1.0;
  2758 
  2774 
  2759     cTagsMask:= htTeamName or htName or htHealth;
  2775     cTagsMask:= htTeamName or htName or htHealth;
  2760     cPrevTagsMask:= cTagsMask;
  2776     cPrevTagsMask:= cTagsMask;
  2761 end;
  2777 end;
  2762 
  2778 
  2962     cAirMines       := 0;
  2978     cAirMines       := 0;
  2963     cSentries       := 0;
  2979     cSentries       := 0;
  2964     cExplosives     := 2;
  2980     cExplosives     := 2;
  2965 
  2981 
  2966     GameState       := Low(TGameState);
  2982     GameState       := Low(TGameState);
       
  2983     zoom            := cDefaultZoomLevel;
       
  2984     ZoomValue       := cDefaultZoomLevel;
       
  2985 
       
  2986     if cDefaultChatScale < cMinChatScaleValue then
       
  2987         cDefaultChatScale := cMinChatScaleValue
       
  2988     else if cDefaultChatScale > cMaxChatScaleValue then
       
  2989         cDefaultChatScale := cMaxChatScaleValue;
       
  2990     ChatScaleValue  := cDefaultChatScale;
       
  2991     UIScaleValue    := cDefaultUIScaleLevel;
       
  2992 
  2967     WeaponTooltipTex:= nil;
  2993     WeaponTooltipTex:= nil;
  2968     cLaserSighting  := false;
  2994     cLaserSighting  := false;
  2969     cLaserSightingSniper := false;
  2995     cLaserSightingSniper := false;
  2970     cVampiric       := false;
  2996     cVampiric       := false;
  2971     flagMakeCapture := false;
  2997     flagMakeCapture := false;