diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-11 14:45:24 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-11 14:45:24 +0000 |
| commit | 74bfea219da3b719ae61b445fc04c40948e2bca4 (patch) | |
| tree | bfe016fa5a84e63b1214a3506d99df47f9d43692 /examples | |
| parent | ebafc605dc3551b20ec7a8fd6f1d8f068222c86a (diff) | |
| download | fpGUI-74bfea219da3b719ae61b445fc04c40948e2bca4.tar.xz | |
* Implemented fpgApplicatio.GetFontfaceList (GDI untested)
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/gui/gridtest/gridtest.lpr | 8 |
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; |