From 9e1647d2eacc4c76aaa5ac194702d9d397b4354a Mon Sep 17 00:00:00 2001 From: graemeg Date: Sun, 12 Aug 2007 17:34:42 +0000 Subject: * Extended the sample text string used in the Font Select dialog. --- examples/gui/gridtest/gridtest.lpr | 8 -------- 1 file changed, 8 deletions(-) (limited to 'examples/gui/gridtest') 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; -- cgit v1.2.3-70-g09d2