From effab0b2ca08c13d608c668b95f0e71e14bb2081 Mon Sep 17 00:00:00 2001
From: John Peel <john@dgby.org>
Date: Sun, 22 Sep 2013 19:40:30 -0400
Subject: [PATCH] Simba: Only allow monospaced fonts.

---
 Projects/Simba/simbaunit.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;