paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 19:56:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: use editor font to display search results (bug #9698) from Anatol

Browse Source 
git-svn-id: trunk@12159 -
This commit is contained in:
vincents 2007-09-24 09:16:47 +00:00
parent a5f461ec1f
commit 5e8615fb25
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/searchresultview.pp
View File

@ -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