Changeset 167 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Jun 15, 2019, 12:03:12 AM (5 years ago)

Author:

chronos

Message:

• Added: Allow to change full screen mode to windowed mode.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -207 +207 @@
   MainTexture: TTexture;
   Templates, Colors, Paper, BigImp, LogoBuffer: TBitmap;
-  FullScreen, GenerateNames, InitOrnamentDone, Phrases2FallenBackToEnglish: boolean;
+  FullScreen, GenerateNames, InitOrnamentDone, Phrases2FallenBackToEnglish: Boolean;
 
   UniFont: array [TFontType] of TFont;
@@ -1643 +1643 @@
       WriteString('Locale', LocaleCode);
       WriteInteger('Gamma', Gamma);
+      if FullScreen then WriteInteger('ScreenMode', 1)
+        else WriteInteger('ScreenMode', 0);
     finally
       Free;