From 74bfea219da3b719ae61b445fc04c40948e2bca4 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Sat, 11 Aug 2007 14:45:24 +0000
Subject: * Implemented fpgApplicatio.GetFontfaceList (GDI untested)

---
 examples/gui/gridtest/gridtest.lpr | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'examples/gui/gridtest')

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;
 
-- 
cgit v1.2.3-70-g09d2