From 8ed9eb8abafcbdac40175b9d99ca05bfb47bdabd Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 2 Jun 2009 08:35:40 +0000
Subject: [PATCH] ide: use editor font in the path editor

git-svn-id: trunk@20343 -
---
 ide/editoroptions.pp  | 20 +++++++++++++-------
 ide/patheditordlg.pas | 11 ++++++-----
 2 files changed, 19 insertions(+), 12 deletions(-)

diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp
index 6dd1702131..53afa38f87 100644
--- a/ide/editoroptions.pp
+++ b/ide/editoroptions.pp
@@ -676,7 +676,6 @@ type
     FUseCodeFolding: Boolean;
     FExpandedClickConf,
     FCollapsedClickConf: TSynGutterFoldClickConfList;
-
   public
     constructor Create;
     destructor Destroy; override;
@@ -694,6 +693,7 @@ type
     procedure SetSynEditSettings(ASynEdit: TSynEdit); // write synedit settings to file
     procedure GetSynEditPreviewSettings(APreviewEditor: TObject);
     procedure AddSpecialHilightAttribsToHighlighter(Syn: TSrcIDEHighlighter);
+    procedure ApplyFontSettingsTo(ASynEdit: TSynEdit);
 
     function CreateSyn(LazSynHilighter: TLazSyntaxHighlighter): TSrcIDEHighlighter;
     function ReadColorScheme(const LanguageName: String): String;
@@ -2917,6 +2917,16 @@ begin
   aMarkup.StyleMask := DEFAULT_COLOR_SCHEME.Additional[AddHilightAttr].StylesMask;
 end;
 
+procedure TEditorOptions.ApplyFontSettingsTo(ASynEdit: TSynEdit);
+begin
+  ASynEdit.Font.Height := fEditorFontHeight;// set height before name for XLFD !
+  ASynEdit.Font.Name := fEditorFont;
+  if fDisableAntialiasing then
+    ASynEdit.Font.Quality := fqNonAntialiased
+  else
+    ASynEdit.Font.Quality := fqDefault;
+end;
+
 procedure TEditorOptions.GetSynEditSettings(ASynEdit: TSynEdit);
 // read synedit settings from config file
 var
@@ -2961,12 +2971,8 @@ begin
   else
     ASynEdit.RightEdge := 0;
   ASynEdit.RightEdgeColor := fRightMarginColor;
-  ASynEdit.Font.Height := fEditorFontHeight;// set height before name for XLFD !
-  ASynEdit.Font.Name := fEditorFont;
-  if fDisableAntialiasing then
-    ASynEdit.Font.Quality := fqNonAntialiased
-  else
-    ASynEdit.Font.Quality := fqDefault;
+
+  ApplyFontSettingsTo(ASynEdit);
   //debugln(['TEditorOptions.GetSynEditSettings ',ASynEdit.font.height]);
 
   ASynEdit.ExtraCharSpacing := fExtraCharSpacing;
diff --git a/ide/patheditordlg.pas b/ide/patheditordlg.pas
index 8bca1b5c8e..f6ef8d523d 100644
--- a/ide/patheditordlg.pas
+++ b/ide/patheditordlg.pas
@@ -8,7 +8,7 @@
 
  *****************************************************************************
  *                                                                           *
- *  See the file COPYING.modifiedLGPL.txt, included in this distribution,        *
+ *  See the file COPYING.modifiedLGPL.txt, included in this distribution,    *
  *  for details about the copyright.                                         *
  *                                                                           *
  *  This program is distributed in the hope that it will be useful,          *
@@ -29,7 +29,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, SynEdit, Buttons, StdCtrls, Dialogs,
-  LResources, FileUtil, ButtonPanel, LazarusIDEStrConsts;
+  LResources, FileUtil, ButtonPanel, LazarusIDEStrConsts, EditorOptions;
 
 type
 
@@ -157,10 +157,11 @@ begin
   DeleteButton.LoadGlyphFromLazarusResource('laz_delete');
 
   PathEdit.Font.BeginUpdate;
-  PathEdit.Font.Name:=SynDefaultFontName;
-  PathEdit.Font.Height:=SynDefaultFontHeight;
-  PathEdit.Font.Pitch:=SynDefaultFontPitch;
+  PathEdit.Font.Pitch := SynDefaultFontPitch;
+  EditorOpts.ApplyFontSettingsTo(PathEdit);
   PathEdit.Font.EndUpdate;
+  PathEdit.ExtraCharSpacing := EditorOpts.ExtraCharSpacing;
+  PathEdit.ExtraLineSpacing := EditorOpts.ExtraLineSpacing;
 end;
 
 procedure TPathEditorDialog.FormResize(Sender: TObject);