From 5e8615fb2530d858a7c0276376a9603a7c4da6cc Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Mon, 24 Sep 2007 09:16:47 +0000
Subject: [PATCH] IDE: use editor font to display search results (bug #9698)
 from Anatol

git-svn-id: trunk@12159 -
---
 ide/searchresultview.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ide/searchresultview.pp b/ide/searchresultview.pp
index 4615ba1a4f..56ebc8b35b 100644
--- a/ide/searchresultview.pp
+++ b/ide/searchresultview.pp
@@ -39,7 +39,7 @@ interface
 uses
   Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
   ComCtrls, ExtCtrls, StdCtrls, Buttons, LCLType,
-  IDEOptionDefs, LazarusIDEStrConsts, EnvironmentOpts, InputHistory,
+  IDEOptionDefs, LazarusIDEStrConsts, EnvironmentOpts, EditorOptions, InputHistory,
   IDEProcs, FindInFilesDlg, Project, MainIntf;
 
 type
@@ -233,8 +233,8 @@ begin
   ALayout.Form:=TForm(Self);
   ALayout.Apply;
   fListBoxFont:= TFont.Create;
-  fListBoxFont.Name:= 'courier';
-  fListBoxFont.Height:= 12;
+  fListBoxFont.Height:=EditorOpts.EditorFontHeight; // set Height before name for XLFD !
+  fListBoxFont.Name:=EditorOpts.EditorFont;
   fListBoxFont.Style:= [];
   fOnSelectionChanged:= nil;
   ShowHint:= True;
@@ -735,8 +735,8 @@ begin
             OnShowHint:= @LazLBShowHint;
             OnMouseMove:= @LazLBMousemove;
             OnMouseWheel:= @LazLBMouseWheel;
-            Font.Name:=fListBoxFont.Name;
             Font.Height:=fListBoxFont.Height;
+            Font.Name:=fListBoxFont.Name;            
             ShowHint:= true;
             NewListBox.Canvas.Color:= clWhite;
           end;//with