make skip drawing when tape is running default option

zoran-vucenovic · Dec 27, 2022 · add77c6 · add77c6
1 parent 1dd9a7a
commit add77c6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/swan.lpi b/swan.lpi
@@ -23,7 +23,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="9"/>
       <RevisionNr Value="1"/>
-      <BuildNr Value="5294"/>
+      <BuildNr Value="5296"/>
       <StringTable FileDescription="Swan - ZX Spectrum emulator" LegalCopyright="Copyright 2022 Zoran Vučenović" OriginalFilename="Swan" ProductName="Swan - ZX Spectrum emulator" ProductVersion="0.9.1"/>
     </VersionInfo>
     <BuildModes>

diff --git a/unit1.pas b/unit1.pas
@@ -403,7 +403,7 @@ procedure TForm1.FormCreate(Sender: TObject);
   Caption := ApplicationName;
   Spectrum := nil;
 
-  FSkipWriteScreen := False;
+  FSkipWriteScreen := True;
   FWriteScreen := True;
 
   Label1.Constraints.MinWidth := PanelStatus.Canvas.GetTextWidth('Wspeed 100.99%W');
@@ -420,6 +420,7 @@ procedure TForm1.FormCreate(Sender: TObject);
     ScreenSizeFactor := 2;
     SetScreenSizeFactor(1);
   end;
+  UpdateCheckWriteScreen;
   //
   TCommonFunctionsLCL.FormToScreenCentre(Self);
 end;