Not related to isscint but: The editor's font now defaults to Consola…

…s if available, consistent with most other editors.

Projects/Src/CompForm.pas

@@ -671,7 +671,7 @@ function TCompileForm.InitializeMemoBase(const Memo: TCompScintEdit; const Popup
   Memo.Align := alClient;
   Memo.AutoCompleteFontName := Font.Name;
   Memo.AutoCompleteFontSize := Font.Size;
-  Memo.Font.Name := 'Courier New';
+  Memo.Font.Name := GetPreferredMemoFont;
   Memo.Font.Size := 10;
   Memo.ShowHint := True;
   Memo.Styler := FMemosStyler;

Projects/Src/CompFunc.pas

@@ -71,6 +71,7 @@ function ReadScriptLines(const ALines: TStringList; const ReadFromFile: Boolean;
 function CreateBitmapInfo(const Width, Height, BitCount: Integer): TBitmapInfo;
 function GetWordOccurrenceFindOptions: TScintFindOptions;
 function GetSelTextOccurrenceFindOptions: TScintFindOptions;
+function GetPreferredMemoFont: String;
 
 implementation
 
@@ -725,10 +726,21 @@ function GetSelTextOccurrenceFindOptions: TScintFindOptions;
   Result := [];
 end;
 
+var
+  PreferredMemoFont: String;
+
+function GetPreferredMemoFont: String;
+begin
+  Result := PreferredMemoFont;
+end;
+
 initialization
   var OSVersionInfo: TOSVersionInfo;
   OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
   GetVersionEx(OSVersionInfo);
   WindowsVersion := (Byte(OSVersionInfo.dwMajorVersion) shl 24) or (Byte(OSVersionInfo.dwMinorVersion) shl 16) or Word(OSVersionInfo.dwBuildNumber);
+  PreferredMemoFont := 'Consolas';
+  if not FontExists(PreferredMemoFont) then
+    PreferredMemoFont := 'Courier New';
 
 end.

whatsnew.htm

@@ -45,6 +45,7 @@
 </ul>
 <p>Other changes:</p>
 <ul>
+  <li>The editor's font now defaults to Consolas if available, consistent with most other editors.</li>
   <li>Added shortcuts to move selected lines up or down (Alt+Up and Alt+Down).</li>
   <li>Added a right-click popup menu to the editor's gutter column for breakpoints.</li>
   <li>Minor tweaks and documentation improvements.</li>