1 files changed, 8 insertions, 0 deletions
diff --git a/examples/gui/gridtest/gridtest.lpr b/examples/gui/gridtest/gridtest.lpr
index 3f461155..24372c22 100644
--- a/examples/gui/gridtest/gridtest.lpr
+++ b/examples/gui/gridtest/gridtest.lpr
@@ -57,7 +57,15 @@ begin
 end;
 
 procedure TMainForm.btnQuitClick(Sender: TObject);
+var
+  sl: TStringList;
+  i: integer;
 begin
+  sl := fpgApplication.GetFontFaceList;
+  Writeln('Fontface Listing:');
+  for i := 0 to sl.Count-1 do
+    Writeln('  ', sl[i]);
+  sl.Free;
   Close;
 end;