Simba: Only allow monospaced fonts.

Villavu · Sep 22, 2013 · effab0b · effab0b
1 parent b7ae4a1
commit effab0b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;