diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-12 17:34:42 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-12 17:34:42 +0000 |
| commit | 9e1647d2eacc4c76aaa5ac194702d9d397b4354a (patch) | |
| tree | 424157efa14f586c7fa19f71d34028f49b8d5a6b /examples/gui/gridtest | |
| parent | 68c345d04c323d1e98b83236c465c63a916260cd (diff) | |
| download | fpGUI-9e1647d2eacc4c76aaa5ac194702d9d397b4354a.tar.xz | |
* Extended the sample text string used in the Font Select dialog.
Diffstat (limited to 'examples/gui/gridtest')
| -rw-r--r-- | examples/gui/gridtest/gridtest.lpr | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/examples/gui/gridtest/gridtest.lpr b/examples/gui/gridtest/gridtest.lpr index 24372c22..3f461155 100644 --- a/examples/gui/gridtest/gridtest.lpr +++ b/examples/gui/gridtest/gridtest.lpr @@ -57,15 +57,7 @@ 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; |