Changeset 419

Timestamp:

Feb 25, 2019, 9:00:50 PM (6 years ago)

Author:

ataylor

Message:

NewView uses "Helv Combined" as default text font when running on DBCS OS.

File:

• trunk/NewView/SettingsUnit.pas (modified) (2 diffs)

trunk/NewView/SettingsUnit.pas

@@ -66 +66 @@
 
   DefaultTopicFontName = 'Helv';
+  DefaultTopicFontNameDBCS = 'Helv Combined';
   DefaultTopicFontSize = 8;
 
@@ -319 +320 @@
 
       // Fonts
-      NormalFont := Screen.GetFontFromPointSize(
-        ReadString( FontsSection, 'NormalFont', DefaultTopicFontName ),
-        ReadInteger( FontsSection, 'NormalFontSize', DefaultTopicFontSize ) );
+      if Application.DBCSSystem then
+        NormalFont := Screen.GetFontFromPointSize(
+          ReadString( FontsSection, 'NormalFont', DefaultTopicFontNameDBCS ),
+          ReadInteger( FontsSection, 'NormalFontSize', DefaultTopicFontSize ) )
+      else
+        NormalFont := Screen.GetFontFromPointSize(
+          ReadString( FontsSection, 'NormalFont', DefaultTopicFontName ),
+          ReadInteger( FontsSection, 'NormalFontSize', DefaultTopicFontSize ) );
       if NormalFont = nil then
         NormalFont := Screen.DefaultFont;