[GExperts-CVS] gexperts/unstable/Src/Grep GX_GrepResults.pas,1.60,1.61 GX_GrepSearch.pas,1.41,1.42

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src/Grep
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv32660/Src/Grep

Modified Files:
	GX_GrepResults.pas GX_GrepSearch.pas 
Log Message:
Better default fonts (for ClearType systems) for a few forms

Index: GX_GrepResults.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Grep/GX_GrepResults.pas,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -d -r1.60 -r1.61
--- GX_GrepResults.pas	17 Apr 2006 06:06:37 -0000	1.60
+++ GX_GrepResults.pas	16 May 2006 02:06:13 -0000	1.61
@@ -933,6 +933,7 @@
 begin
   inherited Create(AOwner);
   SetToolbarGradient(ToolBar);
+  SetDefaultFont(Self);
 
   FSearchInProgress := False;
   lbResults.DoubleBuffered := True;

Index: GX_GrepSearch.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Grep/GX_GrepSearch.pas,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- GX_GrepSearch.pas	21 Jan 2006 21:03:41 -0000	1.41
+++ GX_GrepSearch.pas	16 May 2006 02:06:13 -0000	1.42
@@ -300,6 +300,7 @@
 begin
   if not Assigned(fmGrepResults) then
     raise Exception.Create(SGrepResultsNotActive);
+  SetDefaultFont(Self);
 
   FGrepExpert := fmGrepResults.GrepExpert;
   cbText.Items.Assign(FGrepExpert.SearchList);