diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index 3e20a1d94..35a5f0dc1 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -2219,7 +2219,7 @@ procedure TSimbaForm.ActionFontExecute(Sender: TObject);
   Dialog := TFontDialog.Create(nil);
   with Dialog do
   try
-    Options := [fdEffects];
+    Options := [fdEffects, fdFixedPitchOnly];
     Title := 'Font Editor';
     Font := SimbaSettings.SourceEditor.Font.Value;