DEADSOFTWARE

it is now possible to use "--holmes-font <8|14|16>" cli arg to select Holmes UI font
authorKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 3 Oct 2017 20:23:45 +0000 (23:23 +0300)
committerKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 3 Oct 2017 20:25:06 +0000 (23:25 +0300)
src/game/g_window.pas

index 258b489b1f8f35f335061f207515c48406bab2b0..d20f32cc00e86ad555bb38a2a33735baf4f1d067 100644 (file)
@@ -767,6 +767,8 @@ var
   {$ENDIF}
   arg: AnsiString;
   mdfo: TStream;
+  itmp: Integer;
+  valres: Word;
 begin
 {$IFDEF HEADLESS}
   e_NoGraphics := true;
@@ -799,6 +801,7 @@ begin
     {.$ENDIF}
 
     if arg = '--holmes' then begin g_holmes_enabled := true; g_Game_SetDebugMode(); end;
+
     if (arg = '--holmes-ui-scale') or (arg = '-holmes-ui-scale') then
     begin
       if (idx <= ParamCount) then
@@ -808,6 +811,24 @@ begin
       end;
     end;
 
+    if (arg = '--holmes-font') or (arg = '-holmes-font') then
+    begin
+      if (idx <= ParamCount) then
+      begin
+        itmp := 0;
+        val(ParamStr(idx), itmp, valres);
+        if (valres = 0) then
+        begin
+          case itmp of
+            8: uiContext.font := 'win8';
+            14: uiContext.font := 'win14';
+            16: uiContext.font := 'win16';
+          end;
+        end;
+        Inc(idx);
+      end;
+    end;
+
     if (arg = '--game-scale') or (arg = '-game-scale') then
     begin
       if (idx <= ParamCount) then